このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1267796762/899
#  【 課題 】要素型がint型である配列を作り、全要素を1〜10の乱数で埋め尽くす(1以上10以下の値を 
#  代入する) 
#  【 形態 】1. Javaアプリケーション(main()で開始)/2. Applet/3. Servlet/ 
#         4. 携帯(開発環境のver.必須)/5. その他(明記のこと) 《必ず選択》 
#  【 GUI  】1. AWTのみ/2. Swing/3. SWT/4. 制限なし/ 5. その他(明記すること) 
#         《GUIの課題の場合必ず選択》 
#  【 期限 】提出期限、解答希望日を書きます。「できるだけ早く」はNG。 《必須》 
#  【 Ver  】コンソールでjava -versionを実行し、その結果を貼ります。 《必須》 
#  【 用語 】数学用語、専門用語の意味、説明を書きます。 《あれば必須》 
#  【 補足 】課題について自分なりに補足する事、何か思う事があれば書きます。 
#         丸投げでない場合は、途中までのソースとその経過報告、 
#         質問点、疑問点を書きます(なるべく丸投げにしてください)。 
#   
# 
# 

要素型がint型であるならびを作り、全要素を1〜10の乱数で埋め尽くす(L) :-
        ならびの長さを得る(_長さ),
        length(L,_長さ),
        findall(N,(
                    append(_,[N|_],L),
                    N is (random mod 10) + 1),
                L).

ならびの長さを得る(_長さ) :-
        write('ならびの長さを入力してください : '),
        get_line(Line),
        ならびの長さ診断(Line,_長さ),!.
ならびの長さを得る(_長さ) :-
        ならびの長さを得る(_長さ).

ならびの長さ診断(Line,_長さ) :-
        atom_to_term(Line,_長さ,_),
        integer(_長さ),
        _長さ > 0,!.
ならびの長さ診断(Line,_長さ) :-
        write_formatted('入力された %t からならびの長さとして適切な整数を得られませんでした。再入力をお願いします。\n',[Line]),
        fail.