運試し行ってみよー。
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 大凶
ゆのっち……