FizzBuzz問題の解答例 Maple編

数式処理ソフトMapleによるFizzBuzz問題の解答例。

解答例

条件分岐とループによるプログラム:

# fizzbuzz.mw
# Maple 13で動作確認
# 複数行コメント (* ~ *) は2D Inputモードでは非サポート
# (Maple Inputモードではサポート)

for i from 1 by 1 to 100 do
  if i mod 3 = 0 and i mod 5 = 0 then
    print("Fizz,Buzz");  # iが3の倍数かつ5の倍数
  elif i mod 3 = 0 then
    print("Fizz");  # iが3の倍数(かつ、5の倍数でない)
  elif i mod 5 = 0 then
    print("Buzz");  # iが5の倍数(かつ、3の倍数でない)
  else
    print(i);  # iが3の倍数でも5の倍数でもない
  end if;
end do;

プロシージャの再帰呼び出しによるプログラム:

# fizzbuzz_rc.mw
# Maple 13で動作確認
# 複数行コメント (* ~ *) は2D Inputモードでは非サポート
# (Maple Inputモードではサポート)

fizzbuzz := proc(n)
  if n > 1 then
    fizzbuzz(n-1);
  end if;

  if n mod 3 = 0 and n mod 5 = 0 then
    print("Fizz,Buzz");  # nが3の倍数かつ5の倍数
  elif n mod 3 = 0 then
    print("Fizz");  # nが3の倍数(かつ、5の倍数でない)
  elif n mod 5 = 0 then
    print("Buzz");  # nが5の倍数(かつ、3の倍数でない)
  else
    print(n);  # nが3の倍数でも5の倍数でもない
  end if;
end proc:

fizzbuzz(100);

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

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

よしいず

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

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

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

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

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

カテゴリ
月別アーカイブ