FizzBuzz問題の解答例 Scheme編

Scheme プログラムによる FizzBuzz 問題の解答例。

解答例

名前つき let によるプログラム:

#|
  fizzbuzz.scm

  How to run this program on a command line:

  Racket (formerly PLT Scheme): 
  mzscheme -r ./fizzbuzz.scm

  Gauche: 
  gosh ./fizzbuzz.scm
|#

(define fizzbuzz
  (lambda (n)
    (let countup ((i 1))
      (cond
        ((and (= (modulo i 3) 0) (= (modulo i 5) 0))  ; iが3の倍数かつ5の倍数
          (begin (display "Fizz,Buzz") (newline)))
        ((= (modulo i 3) 0)  ; iが3の倍数(かつ5の倍数でない)
          (begin (display "Fizz") (newline)))
        ((= (modulo i 5) 0)  ; iが5の倍数(かつ3の倍数でない)
          (begin (display "Buzz") (newline))) 
        (else  ; iが3の倍数でも5の倍数でもない
          (begin (display i) (newline))))
      (if (= i n) #T (countup (+ i 1))))))

(fizzbuzz 100)

関数の再帰呼び出しによるプログラム:

#|
  fizzbuzz_rc.scm

  How to run this program on a command line:

  Racket (formerly PLT Scheme): 
  mzscheme -r ./fizzbuzz_rc.scm

  Gauche: 
  gosh ./fizzbuzz_rc.scm
|#

(define fizzbuzz
  (lambda (n)
    (begin
      (if (> n 1) (fizzbuzz (- n 1)) #F)
      (cond
        ((and (= (modulo n 3) 0) (= (modulo n 5) 0))  ; nが3の倍数かつ5の倍数
          (begin (display "Fizz,Buzz") (newline)))
        ((= (modulo n 3) 0)  ; nが3の倍数(かつ5の倍数でない) 
          (begin (display "Fizz") (newline)))
        ((= (modulo n 5) 0)  ; nが5の倍数(かつ3の倍数でない)
          (begin (display "Buzz") (newline)))
        (else  ; nが3の倍数でも5の倍数でもない
          (begin (display n) (newline)))))))

(fizzbuzz 100)

関連記事

FizzBuzz問題の解答例 まとめ

【theme : プログラミング
【genre : コンピュータ

プロフィール

よしいず

Author:よしいず
MATHEMATICS.PDFというウェブサイトを運営しています。

管理の都合上、トラックバックとコメントはオフにしてあります。ブログ経験者なら分かっていただけると思いますが、スパム(アダルトやその他の宣伝)ばかりなのが現実です。

リンクは自由です。当サイトの記事に対する間違いの指摘・意見・感想などを述べた記事からのリンクは歓迎です。ただし、ブログ記事アップ直後はミスが多く、頻繁に修正します。場合によっては削除する可能性もあります。その際、何も断りもなく修正・削除しますがご了承ください。内容を参考にする場合には投稿後一週間ほど様子を見てからにしてください(笑)。

記事の間違いを指摘するときは、その具体的箇所、理由(仕様に反するなど)・根拠(参考にした文献など)、代替案(同じ結果を得るための正しいやり方)も教えてください。そうしないと、(指摘される側および第三者はその時点では無知の状態なので、)どこが間違いなのか分かりませんし、本当に間違っているのかどうかが判断・検証できません。実際、間違いだと指摘されたことが結局は正しかったというケースもありますので。

このブログのタイトル一覧

リンク
月別アーカイブ
カテゴリ
最新記事
検索フォーム
RSSリンクの表示