屑俺日記

☆ もう少し短かく

眠気を堪えてどうにかできた昨日のfizzbuzzを 少し書き直す。
改行出力は一回でたくさん。and とか not とか も要らないだろう。終了か再帰かの判定は or にすると 括弧を一組減らせた。

#!/usr/bin/env gosh
 
(define flist '#0=(#f #f "fizz" . #0#))
(define blist '#0=(#f #f #f #f "buzz" . #0#))
 
(define fizz
  (lambda (fl bl first last)
    (cond
     ((eq? (car fl) (car bl))
      (display first)))
    (cond
     ((car fl) (display (car fl))))
    (cond
     ((car bl) (display (car bl))))
    (display '#\newline)
    (or
     (eq? first last)
     (fizz (cdr fl) (cdr bl) (+ first 1) last))))
 
(fizz flist blist 1 100)