FC2ブログ
--.--
--
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

06.25
Mon
一つくらいは関数型な言語に触れておこうと思いまして、Lispを始めました。

関数型で得られる考え方は絶対どこかで役に立つだろうと私は思いますので。

ということでFizzBuzzをLispでやってみましたw

なかなか苦戦しましたw

本当に考え方とか、特に表記が違ってめんど慣れませんね...

とりあえず、1から100までやります。ところでfizzbuzz自体はまさか間違ってないよね...(

(setq counter 100)


(defun isnull (target divider)
	(- target (* divider (floor (/ target divider))))
)



(dotimes (each counter)
	(progn
		(setq trgt (+ each 1))
		(cond 
			((= (isnull trgt 15) 0)
				(print "FizzBuzz")
			)
			((= (isnull trgt 5) 0)
				(print "Buzz")
			)
			((= (isnull trgt 3) 0)
				(print "Fizz")
			)
			(t
				(print trgt)
			)
		)	
	)
)
スポンサーサイト

comment 0 trackback 0
トラックバックURL
http://telracsmoratori.blog.fc2.com/tb.php/120-6f3f9abe
トラックバック
コメント
管理者にだけ表示を許可する
 
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。