Thank you! That is a keeper.





However, I had to add a reset to get the first one to work becuase it appears the Stream runs to the end at each iteration of the Array.





|ios|

ios := ReadStream on: 'Neque porro quisquam est qui dolorem ipsum quia dolor sit amet, consectetur, adipisci velit...|-'.



{ '{|'  . '|-' . '|}' . '{{' . '}}' .  '[[' . ']]' . '__' . '==' . '::' . '**' . '##' . ''''  } anySatisfy: [:pattern | ios match: pattern. ios reset].








The second form is not detecting the the '|-'  at the end, as far as I can tell.



|ios|

ios := ReadStream on: 'Neque porro quisquam est qui dolorem ipsum quia dolor sit amet, consectetur, adipisci velit...|-'.

{ '{|'  . '|-' . '|}' . '{{' . '}}' .  '[[' . ']]' . '__' . '==' . '::' . '**' . '##' . '''' }

    detect: [:pattern | ios match: pattern]

    ifFound: [:pattern | self inform: 'Matched pattern: ' , pattern.]

    ifNone: [self inform: 'no match'. ].

  ios reset




cheers,
t







---- On Sat, 27 Nov 2021 11:36:49 -0500 Thiede, Christoph <Christoph.Thiede at student.hpi.uni-potsdam.de> wrote ----


What about



{ '{|'  . '|-' . '|}' . '{{' . '}}' .  '[[' . ']]' . '__' . '==' . '::' . '**' . '##' . '''' } anySatisfy: [:pattern | self match: pattern]



?



Maybe also this one if the identity of the matching pattern is of interest:



{ '{|'  . '|-' . '|}' . '{{' . '}}' .  '[[' . ']]' . '__' . '=='
 . '::' . '**' . '##' . '''' }

    detect: [:pattern | self match: pattern]

    ifFound: [:pattern | self inform: 'Matched pattern: ' , pattern]

    ifNone: [self inform: 'no match']



Best,

Christoph



PS: Don't use #| unless you explicitly want every method to be
 invoked always. Use #or:... instead, this is faster.



Von: Squeak-dev <mailto:squeak-dev-bounces at lists.squeakfoundation.org> im Auftrag von gettimothy via Squeak-dev <mailto:squeak-dev at lists.squeakfoundation.org>
 Gesendet: Samstag, 27. November 2021 17:30:38
 An: squeak-dev
 Betreff: [squeak-dev] Anybody got an elegent construct for this functional monstrosity?  


I have a ReadStream and I want to detect some substrings in it.



This works, but it is ugly.





((self match:'{|') | 

(self match:'|-') |

(self match:'|}') |

(self match:'{{') |

(self match:'}}') |

(self match:'[[') |

(self match:']]') |

(self match:'__') |

(self match:'==') |

(self match:'::') |

(self match:'**') |

(self match:'##') |

(self match:'''') )




Is anybody aware of an elegant approach to this?





Something along the lines of 





self matchAny: { '{|'  . '|-' . '|}' . '{{' . '}}' .  '[[' . ']]' . '__' . '==' . '::' . '**' . '##' . '''' }






thx in advance
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20211127/772fbb2b/attachment.html>