部分適用っぽく
なんか大学のプログラミングの授業の最中なんですけど - [・ _ゝ・]日記を書くはやみずさんで書いたプログラムのメイン部分を、部分適用のためのcut macroを使ってみた。かなり見通しがよくなったね。
そろそろGauche使いになろうと思ってGaucheのリファレンスを読み始めた。
(define (each-line-head-word str) (map head (map (cut split-string (cut char-whitespace? <>) <>) (split-string #\newline str))))