運試し行ってみよー。
with Ada.Numerics.Discrete_Random;
with Ada.Text_IO; use Ada.Text_IO;
procedure Omikuji is
type Result_Type is (大吉, 中吉, 吉, 凶, 大凶);
package Omikuji_Bako is new Ada.Numerics.Discrete_Random (Result_Type);
use Omikuji_Bako;
G : Generator;
begin
Reset (G);
Put_Line (Result_Type'Image (Random(G)));
end Omikuji;/ _ / X < gnatmake -gnatif omikuji gcc -c -gnatif omikuji.adb gnatbind -x omikuji.ali gnatlink omikuji.ali / _ / X < ./omikuji 大凶
ゆのっち……
http://yudai.arielworks.com/memo/2009/01/01/174439.trackback
末尾に「9 + 7」の計算結果を繋げて下さい。例えば計算結果が「17」の場合、「174439.trackback17」です。これは機械的なトラックバックスパムを防止するための措置です。