このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1263824755/907
# [1] 授業単元:http://pc12.2ch.net/test/read.cgi/tech/1267799238/
# [2] 問題文(含コード&リンク):
# 保存済みのメモ帳に書いてある10個の数字からランダムに5個読み取るプログラム。
#  [3.1] OS:わかりません
#  [3.2] コンパイラ名とバージョン: わかりません
#  [3.3] 言語:C++
# [4] 期限:201x年
# [5] その他の制限:fopen、fscanf、for、ifまで習いました。

% Prolog 「10個の」をどう反映させればよいか解らない・・・

保存済みのメモ帳に書いてある10個の数字からランダムに5個読み取る(_保存済みのメモ帳,L) :-
      get_chars(_保存済みのメモ帳,Chars),
      findall(N,(for(1,M,5),数字にヒットするまでランダムにならびを探す(Chars,N)),L).

数字にヒットするまでランダムにならびを探す(L,N) :-
      length(L,Len),Len > 0,
      repeat,
      M is (random mod Len) + 1,
      list_nth(M,L,A),
      member(A,['0','1','2','3','4','5','6','7','8','9']),!.