Object Pascal で FizzBuzz
FizzBuzz
「FizzBuzz をどれだけ短く書けるか」というブームが定期的にやってきます。
今まで作った FizzBuzz は
program FizzBuzz;
uses
System.SysUtils;
var
i: Integer;
Values: array [0.. 3] of String = ('', 'Fizz', 'Buzz', 'FizzBuzz');
begin
for i := 1 to 100 do
begin
Values[0] := i.ToString;
Writeln(Values[Ord(i mod 3 = 0) or (Ord(i mod 5 = 0) shl 1)]);
end;
end.
こんなのや
program FizzBuzz;
uses
System.SysUtils;
var
i: Integer;
S: array [0.. 2] of String = ('', 'Fizz', 'Buzz');
begin
for i := 1 to 100 do
Writeln(S[Ord(i mod 3 = 0)] + S[Ord(i mod 5 = 0) shl 1], i.ToString.Substring(0, (i mod 3) * (i mod 5) * $ff));
end.
こんなのがあります。
今回は DEKO さんの
こうですか！？わかりません >< https://t.co/AuGM07MR34 #FizzBuzzを書いてみよう #delphi_jp pic.twitter.com/HpiK7lz4bU
— DEKO (@ht_deko) 2017年10月16日
このツイートによって、またブームが来ました。
Delphi で恐らく一番短い Fizz Buzz
今のところ、一番短いはず！
97 バイト！
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.
こんな感じ。
コード中の ^m は、コントロールコードを書く古い書き方です。
^m = #13 = CR です。
キャリッジリターンで先頭まで戻るのがポイント。
なお、'Fizz' の所を 'Fizz ' にすると "Fizz Buzz" と間にスペースを入れられます。
そうすると 98 バイトになります。
Val バージョン
また、試行錯誤の最中に Val を使うと計算しなくて済むことに気がつきました。
Delphi だと Copy の第三引数は省略できるのですが、Ideone / FreePascal でも動くように第三引数も書きました。
Ideone 上のコードはこちら
program FizzBuzz;
var
S: String;
i, R, C: Integer;
begin
for i := 1 to 100 do
begin
Str(i, S);
S := S + Copy('Fizz', i mod 3 * 9, 4) + Copy('Buzz', i mod 5 * 9, 4);
Val(S, R, C);
Writeln(Copy(S, C, 8));
end;
end.
まとめ
Val とか Str とか ^ 記法とか、古の技術がコードゴルフには役に立つのだ…
そして、FizzBuzz は永遠のテーマ…
求む！挑戦者！
Author And Source
この問題について(Object Pascal で FizzBuzz), 我々は、より多くの情報をここで見つけました https://qiita.com/pik/items/8f0a36857487b9bb8eea著者帰属：元の著者の情報は、元のURLに含まれています。著作権は原作者に属する。
Content is automatically searched and collected through network algorithms . If there is a violation . Please contact us . We will adjust (correct author information ,or delete content ) as soon as possible .