このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1357748713/176
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  下記の文字列を2次元配列に入力する。 
#  LISP 
#  C++ 
#  Ada 
#  次に配列の2列の文字 
#  S+a 
#  を表示する。 
#  

'下記の文字列を2次元配列に入力する。
LISP
C++
Ada
次に配列の2列の文字
S+a
を表示する。' :-
        '下記の文字列を2次元配列に入力する。'('LISP
C++
Ada',_二次元配列),
        '次に配列の2列の文字
S+a
を表示する。'(_二次元配列).

'下記の文字列を2次元配列に入力する。'('LISP
C++
Ada',_二次元配列) :-
        split('LISP
C++
Ada',['\n'],L),
        findall(Chars,(
                    member(A,L),
                    atom_chars(A,Chars)),
                _二次元配列).

'次に配列の2列の文字
S+a
を表示する。'(_二次元配列) :-
        append(_,[[_,_,_文字|_]|R],_二次元配列),
        writef('%t',[_文字]),
        R = [],
        write('\n').