FizzBuzz問題の解答例 Prolog編

PrologによるFizzBuzz問題の解答例。

解答例

関係の再帰的定義によるプログラム:

/*
  fizzbuzz_rc.pl
  SWI Prologで実行
*/

% ?- fizzbuzz(100).

% 1からNまで
fizzbuzz(1) :- fb_cond(1).
fizzbuzz(N) :- N > 1, N1 is N - 1, fizzbuzz(N1), fb_cond(N), !. 

% fizzbuzzの条件
fb_cond(N) :- 
  0 is N mod 3, 0 is N mod 5, write('Fizz,Buzz'), nl;
  0 is N mod 3, 0 < N mod 5, write('Fizz'), nl;
  0 is N mod 5, 0 < N mod 3, write('Buzz'), nl;
  0 < N mod 3, 0 < N mod 5, write(N), nl.

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

検索フォーム
最新記事
リンク
RSSリンクの表示
プロフィール

よしいず

Author:よしいず
MATHEMATICS.PDFというウェブサイトを運営しています。アマゾンにて電子書籍を販売しています。

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

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

Kindle 本についても、販売開始直後は修正のためのアップロードを行うことが多いです。あと、購入前に、ダブルクォートで囲んたキーワード「"よしいず"」で検索し、結果を「出版年月が新しい順番」で並べ替えて、今購入しようとしている Kindle 本の新バージョンがないかどうか確認してください。

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

カテゴリ
月別アーカイブ