プログラムのアルゴリズムを調べていて見つけた質問。

OKWAVE というQ&A サイトへ「偶数／奇数の判定」という質問が投げられていました。リンク先をご覧頂くと分かるとおり、少しでもプログラミングをしたことがある人なら絶対に書かないコード。

この質問者、仕事できているんだろうかと心配になるレベルです。

1
2
3
4
5
6
7
8
9
10
11
12
13
14

//偶数なら true, 奇数なら false を返す関数
function IsEvenNum(a:Integer): Boolean;
begin
  if (a mod 2 = 0) then
    Result := true
  else
    Result := false;
end;
 
//もっと簡潔に書いてみる
function IsEvenNum(a:Integer): Boolean;
begin
  Result := (a mod 2 = 0);
end;

私は Delphi 使いなので、Pascal での偶数判定関数を書いてみました。2で割って余り（mod演算子）をチェックするという方法です。他にもビット演算を使う方法や、1桁目の数値をチェックするなど、方法は色々考えられますね。

「2で割り切れる数が偶数」というのは小学校で習ったはず。2で割ってみるというところまで考えが及ばなかったんでしょうね。