このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1258158172/869
# [1] 授業単元:c言語
# [2] 問題文(含コード&リンク):
# 文字列ABCDEFGHIJKLMNに対して入力した文字列の第1文字目と第2文字目の間にある文字列を表示するプログラムを作る。 ただし標準ライブラリは使用しないこと。
# 

文字列ABCDEFGHIJKLMNに対して入力した文字列の第1文字目と第2文字目の間にある文字列を表示する :-
  atom_chars('ABCDEFGHIJKLMN',Chars),
  write('文字列を入力してください :'),
  get_line(_文字列),
  sub_atom(_文字列,0,1,_,_第1文字),
  sub_atom(_文字列,1,1,_,_第2文字),
  append(L1,[_第1文字|L2],Chars),
  第1文字目と第2文字目の間にある文字列(_第2文字,L1,L2,L),
  concat_atom(L,_第1文字目と第2文字目の間にある文字列),
  write_formatted('第1文字目と第2文字目の間にある文字列は %t です\n',[_第1文字目と第2文字目の間にある文字列]).

第1文字目と第2文字目の間にある文字列(_第2文字,L1,_,L) :-
  append(_,[_第2文字|L],L1),!.
第1文字目と第2文字目の間にある文字列(_第2文字,_,L2,L) :-
  append(L,[_第2文字|_],L2),!.