- 720 名前：デフォルトの名無しさん mailto:sage [2014/06/05(木) 19:08:53.35 ID:h2Dia7Mk]
- % 特に改善されたという訳ではない。
generate(CELL) :-
findall(A,(
between(1,4,_),
N is random(26),
sub_atom('ABCDEFGHIJKLMNOPQRSTUVWXYZ',N,1,_,A)),
L),
atomic_list_concat(L,CELL).
main :-
nth1(Count,_,_),
generate(CELL),
writef('%w細胞', [CELL]),
CELL = 'STAP',
writef('%w回目で陽性かくにん！\nよかった☆\n', [Count]).
