2008-03-01から1日間の記事一覧

gaucheで正規表現を使う

gaucheでrubyのgsub相当の動きをやってみる。 >>(regexp-replace-all #/(a+)/ "abaacaaadae" "A") =>AbAcAdAeうん。わるくない。 イテレータっぽく使うには >>(regexp-replace-all #/(a+)/ "abaacaaadae" (lambda (x) (number->string (string-length (x))))…

gaucheを用いて標準入力から読み込んでそのまま出力する

強制的にschemeに馴染むためにコマンドラインからruby,perlを駆逐することにした。 (いいのか?こんな宣言をして)そしていきなりつまづいた。 schemeで標準入力いじってなかった事に気がついた。 (print (port->string (standard-input-port)))例: $ echo…

植物園

水月

八重松島

鹿児島紅

佐橋紅

白鷹

大盃

春日野

都錦

雪の曙

八重海どう

未開紅

唐梅

寒紅梅

扇流し

春曙光

太郎冠者

菊更紗

カンザクラ

もうすぐ