読者です 読者をやめる 読者になる 読者になる

おれおれ Lisp だいたい完成 \(^O^)/

lisp

おれおれ Lisp がだいたい完成しました。
正しいプログラムを入力すれば正しいく動きますが、間違ったプログラムだと bus error になったりしますが、このへんで終了!
本物の処理系を作ってる方は、これからが完成に近づいて行くが、なかなか完成しない大変なところだと思いますが、おれおれ言語なので苦しい世界に入らないうちに終了としました (^_^;)

FizzBuzz が動いたところ (適当に改行してます)

lisp> (FizzBuzz)
(1 2 Fizz 4 Buzz Fizz 7 8 Fizz Buzz 11 Fizz 13 14 FizzBuzz 16 17 Fizz 19
 Buzz Fizz 22 23 Fizz Buzz 26 Fizz 28 29 FizzBuzz 31 32 Fizz 34 Buzz Fizz
 37 38 Fizz Buzz 41 Fizz 43 44 FizzBuzz 46 47 Fizz 49 Buzz Fizz 52 53
 Fizz Buzz 56 Fizz 58 59 FizzBuzz 61 62 Fizz 64 Buzz Fizz 67 68 Fizz
 Buzz 71 Fizz 73 74 FizzBuzz 76 77 Fizz 79 Buzz Fizz 82 83 Fizz Buzz 86
 Fizz 88 89 FizzBuzz 91 92 Fizz 94 Buzz Fizz 97 98 Fizz Buzz)
lisp>

FizzBuzzのコード (http://karetta.jp/book-node/gauche-hacks/023107 からの引用です)

(defun iota(n init)
  (if (= n 0) 
      nil
    (cons init (iota (- n 1)(+ init 1)))))
;; 
(defun FizzBuzz()
  (mapcar
   (lambda (x) (cond ((= (% x 15) 0) 'FizzBuzz)
		     ((= (% x 5) 0) 'Buzz)
		     ((= (% x 3) 0) 'Fizz)
		     (t x)))
   (iota 100 1)))

コードは 「第一回 amachang カンファレンス(正式名: 話したい人のためのカンファレンス)」 が終わったら公開します(見たい人はいないかもしれませんが・・・)。