南武線の駅の中で、快速→各停→快速 となっている不憫な並びの３駅を抽出するegisonシェル芸。

gistfile1.sh

# 南武線の駅の中で、快速→各停→快速 となっている不憫な並びの３駅を抽出するegisonシェル芸。

curl -so- -L goo.gl/4Gl1BL | tr ',\n' '\t' | egison -F 1cs -m '(match-all-lambda (list something) [ <join _ <cons $x <cons ,"快速" <cons $y <cons ,"各停" <cons $z <cons ,"快速" >>>>>>> [x y z]] )'

# [Result]
# {["鹿島田" "平間" "向河原"] ["登戸" "中野島" "稲田堤"] ["稲田堤" "矢野口" "稲城長沼"]}
# 
# 既存のgrep等による単純な文字列マッチでは難しいオーバーラップしたパターンをループなしで検出できる。
# curlで習得する文字列には「稲田堤」はひとつしか含まれていないが、
# 例では稲田堤がオーバーラップしている。

面白い例ありがとうございます！

以下、同じことをするワンライナーを僕の期待している書き方に書き直してみました。
この場合、-sオプションを使ったほうが、より一般的なレコードに対応できます。

% curl -so- -L goo.gl/4Gl1BL | tr -d '\r' | tr ',' '\t' | egison -F1s -s '(match-all-lambda (list [string string]) [ <join _ <cons [$x ,"快速"] <cons [$y ,"各停"] <cons [$z ,"快速"] _>>>> [x y z]])'
["鹿島田" "平間" "向河原"]
["登戸" "中野島" "稲田堤"]
["稲田堤" "矢野口" "稲城長沼"]

Egiさん、なるほど、コレクションではなく-sオプションをつかってタプルとして読ませればよかったんですね！私がやろうとして挫折したやり方でした……ｗ
ありがとうございます！