あけましておめでとうございます

運試し行ってみよー。

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
大凶

ゆのっち……