このディレクトリの索引

# 出典 :: Python の宿題ここで答えます Part 1 #935 # 引数として英数字からなる文字列を1つ与えて呼び出すと,その全体,最後の1文字を 削ったもの,最後の2文字を削ったもの,…と1文字になるまで表示する関数を定義せよ .値を返す必要はない. # # 次に,キーボードから文字列を読み込み,読み込んだ文字列を引数として定義した関数を呼び出すようにせよ. # '引数として英数字からなる文字列を1つ与えて呼び出すと,その全体,最後の1文字を削ったもの,最後の2文字を削ったもの,…と1文字になるまで表示する'(_文字列) :- sub_atom(_文字列,0,M,1,_), 'その全体,最後の1文字を削ったもの,最後の2文字を削ったもの,…と1文字になるまで表示する'(_文字列,M). 'その全体,最後の1文字を削ったもの,最後の2文字を削ったもの,…と1文字になるまで表示する'(_文字列,M) :- forall( '最後の1文字を削ったもの,最後の2文字を削ったもの,…と1文字になるまで'(_文字列,M,_副文字列), writef('%w\n',[_副文字列])). '最後の1文字を削ったもの,最後の2文字を削ったもの,…と1文字になるまで'(_文字列,M,_副文字列) :- between(0,M,N), sub_atom(_文字列,0,_,N,_副文字列). 'キーボードから文字列を読み込み,読み込んだ文字列を引数とする' :- 催促付き行入力('文字列を入力してください : ',_文字列), '引数として英数字からなる文字列を1つ与えて呼び出すと,その全体,最後の1文字を削ったもの,最後の2文字を削ったもの,…と1文字になるまで表示する'(_文字列). 催促付き行入力(_催促,_行) :- write(_催促), 行入力(_行). 行入力(_行) :- read_line_to_codes(current_input,_コードならび), atom_codes(_行,_コードならび).