【激突】関数型言語 VS オブジェクト指向言語2at TECH【激突】関数型言語 VS オブジェクト指向言語2 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト489:デフォルトの名無しさん 12/04/17 00:47:44.00 >>487 FizzBuzzすら書けない口だけ野郎の基準よりマシだろｗｗｗ お前はこのスレでは最底辺のカスなんだから敬語使えｗ 490:デフォルトの名無しさん 12/04/17 00:53:04.36 >>481 ぶっちゃけ>>479のバカが理解できたのが たまたまRubyのコードだっただけでRuby厨ですらねーと思うぜ むしろバカにクソコード褒められてRuby可哀想ってなもんだ 491:デフォルトの名無しさん 12/04/17 00:59:54.74 あの問題出したのぶっちゃけPython使いだと思う（陰謀説） 492:466 12/04/17 01:35:17.45 >>491 ｱﾚは学部・卒研ﾚﾍﾞﾙの課題をここに投げたのかなーと ｵﾚは感じた。(真相はｼﾗﾈ) もしかしてｵﾚ様はﾎﾞｸちゃんに利用されたのかなとｗｗ 493:デフォルトの名無しさん 12/04/17 10:56:11.26 F#のスレッドローカル（有り体にはグローバル変数）と同様の方法でSqueak Smalltalkの解。 オープンクラスは使わずにブロック（無名関数）で。 | fb fizz buzz gizz | fb := [:x :cond :str | | p n | p := Processor activeProcess. (x isKindOf: Integer) ifTrue: [p instVarNamed: #env put: (n := x). x := ''] ifFalse: [n := p instVarNamed: #env]. (cond value: n) ifTrue: [x, str] ifFalse: [x ifEmpty: [n]]]. fizz := [:x | fb value: x value: [:n | n isDivisibleBy: 3] value: 'Fizz' ]. buzz := [:x | fb value: x value: [:n | n isDivisibleBy: 5] value: 'Buzz']. gizz := [:x | fb value: x value: [:n | n isDivisibleBy: 7] value: 'Gizz']. self assert: (fizz value: 1) = 1. self assert: (fizz value: 3) = 'Fizz'. self assert: (buzz value: (fizz value: 1)) = 1. self assert: (buzz value: (fizz value: 3)) = 'Fizz'. self assert: (buzz value: (fizz value: 5)) = 'Buzz'. self assert: (buzz value: (fizz value: 15)) = 'FizzBuzz'. self assert: (gizz value: (buzz value: (fizz value: 105))) = 'FizzBuzzGizz'. self assert: (buzz value: (gizz value: (fizz value: 105))) = 'FizzGizzBuzz'. 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch