Skip to content

Instantly share code, notes, and snippets.

@freeonterminate

freeonterminate/FizzBuzzNoIf2.pas

Created February 18, 2014 05:03
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save freeonterminate/9064923 to your computer and use it in GitHub Desktop.
Save freeonterminate/9064923 to your computer and use it in GitHub Desktop.
Download ZIP
if 文を使わない FizzBuzz version 2
Raw
FizzBuzzNoIf2.pas
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.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment