FizzBuzz on Windows/macOS/Linux

マルチプラットフォーム FizzBuzz

以前 Object Pascal で 97[byte] の FizzBuzz を書きました。

Object Pascal FizzBuzz コード

上記の記事で書いた最短コードはこれです。

var i:Byte;begin for i:=1to 100do Writeln(i,^m,Copy('Fizz',i mod 3*9)+Copy('Buzz',i mod 5*9))end.

清書

var
  i: Byte;
begin
  for i := 1 to 100 do
    Writeln(i, ^m, Copy('Fizz', i mod 3 * 9) + Copy('Buzz', i mod 5 * 9))
end.

マルチプラットフォームで動かす

で、当然 Delphi なのでマルチプラットフォームで動くんですよ。
ただし、コンソールアプリなので今回は Windows, macOS, Linux だけ対応します。

プラットフォームの追加

プロジェクトマネージャでプロジェクトを右クリックして「プラットフォームの追加」を選んで追加するだけです。

実行

ターゲットをダブルクリックしてアクティブ化して、実行（F9 キーかメインメニューの「実行」→「実行」）するだけ！

結果

各 OS での実行結果を載せておきます。

Windows

macOS

Linux (ubuntu 16.04)

ちなみにこの Ubuntu は Microsoft Store からインストールした ubuntu

まとめ

Delphi ならスゴい簡単にマルチプラットフォームアプリが作れてオススメ！
無料で使える Starter Edition もあるよ（ただし、今のところ Win32 のみ作成可能）。

※なお Linux の場合、Delphi 単体では GUI アプリは作成出来ない…
FMXLinux を使えば GUI アプリを作れるようにはなるけど有料。