このディレクトリの索引
#  出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1381909900/868
#  [2] 入力した5文字までの文字列を5個まで格納して表示する。 
#      5個未満で中断するときはEnterで入力し,5個入力後かEnter入力後に、入力したすべての文字列を表示。 
#  

'入力した5文字までの文字列を5個まで格納して表示する。5個未満で中断するときはEnterで入力し,5個入力後かEnter入力後に、入力したすべての文字列を表示。' :-
        '入力した5文字までの文字列を5個まで格納する。5個未満で中断するときはEnterで入力し,5個入力後かEnter入力後に、'(_文字列を5個まで格納),
        '入力したすべての文字列を表示。'(_文字列を5個まで格納).


'入力した5文字までの文字列を5個まで格納する。5個未満で中断するときはEnterで入力し,5個入力後かEnter入力後に、'(_文字列を5個まで格納) :-
        length(Ln,5),
        '入力した5文字までの文字列を5個まで格納する。5個未満で中断するときはEnterで入力し,5個入力後かEnter入力後に、'(Ln,_文字列を5個まで格納).

'入力した5文字までの文字列を5個まで格納する。5個未満で中断するときはEnterで入力し,5個入力後かEnter入力後に、'([_|Ln],[_5文字までの文字列|R]) :-
        入力した5文字までの文字列を(_5文字までの文字列),
        \+(_文字列=''),
        '入力した5文字までの文字列を5個まで格納する。5個未満で中断するときはEnterで入力し,5個入力後かEnter入力後に、'(Ln,R).
'入力した5文字までの文字列を5個まで格納する。5個未満で中断するときはEnterで入力し,5個入力後かEnter入力後に、'(_,_,[]).

入力した5文字までの文字列を(_5文字までの文字列) :-
        findall(_文字,(
                    nth1(Nth1,_,_),
                    (   Nth1 > 5,!,fail;
                        get_char(_文字),
                        (  _文字 = '\n',!,fail;
                           true))),
                _入力文字ならび),
        atomic_list_concat(_入力文字ならび,_5文字までの文字列).

'入力したすべての文字列を表示。'(_文字列を5個まで格納) :-
        forall(member(_文字列,_文字列を5個まで格納),writef('%t\n',[_文字列])).