はてなデビュー、したはいいけど

大した情報を持っていない・・・。
とりあえずFizzBuzz書き比べでも乗せてみる。

• Delphi

uses  SysUtils;

procedure fizzbuzz(n : Integer);
begin
  if (n mod 15 = 0) then
    Writeln('FizzBuzz')
  else if (n mod 5 = 0) then
    Writeln('Buzz')
  else if (n mod 3 = 0) then
    Writeln('Fizz')
  else
    Writeln(IntToStr(n));
end;

//Main
var
  i : Integer;
begin
  for i := 1 to 100 do
    fizzbuzz(i);
end.

• C++

#include < iostream >
using namespace std;

void fizzbuzz( int n ) {
  if(n % 15 == 0)
    cout << "FizzBuzz" << endl;
  else if(n % 5 == 0)
    cout << "Buzz" << endl;
  else if(n % 3 == 0)
    cout << "Fizz" << endl;
  else
    cout << n << endl;
}

int main() {
  for( int i=1; i<=100; i++) {
    fizzbuzz(i);
  }
}

• Haskell

fizzbuzz :: Int -> String
fizzbuzz n | mod n 15 == 0 = "FizzBuzz"
           | mod n 5  == 0 = "Buzz"
           | mod n 3  == 0 = "Fizz"
           | otherwise     = show n

main = putStrLn $ unlines $ map fizzbuzz [1..100]

• ioLanguage

fizzbuzz := method( n,
  if(n % 15 == 0) then(
    return "FizzBuzz" println;
  ) elseif(n % 5 == 0) then(
    return "Buzz" println;
  ) elseif(n % 3 == 0) then(
    return "Fizz" println;
  ) else(
    n println;
  );
)

main := for(i, 1, 100, fizzbuzz(i))

• Scheme

(use srfi-1)

(define (fizzbuzz n)
  (cond ((= 0 (remainder n 15)) "FizzBuzz")
        ((= 0 (remainder n 5) ) "Buzz")
        ((= 0 (remainder n 3) ) "Fizz")
        (else n)
  )  
)

(define (main) (for-each print (map fizzbuzz (iota 100 1))) #t)

書き比べって面白い。
いやしかし、もう少しタメになるような事書けるようになりたい・・・。