いろんな言語で宿題スレ
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
200:デフォルトの名無しさん 09/06/17 04:11:28 >>199 % Prolog % （１） 'その文字列の一番最後の文字を消去する'(_文字列,_一番最後の文字を消去された文字列 ) :- sub_atom(_文字列,0,Len,1,_一番最後の文字を消去された文字列). % （２） '文字列の一番最初の文字を消去する'(_文字列,_一番最初の文字を消去された文字列) :- sub_atom(_文字列,1,_,0,_一番最初の文字を消去された文字列). % （３） 文字列中である文字の出現回数(_文字,_文字列,_出現回数) :- findall(_,sub_atom(_文字列,_,1,_,_文字),L), length(L,_出現回数). 201:デフォルトの名無しさん 09/06/17 06:19:02 http://pc12.2ch.net/test/read.cgi/tech/1136994325/925 # １２３４５６７８９の順に数字を並べて，数字の間に＋，−を補うことで式を作り， その値が１００になる# 組み合わせをすべて求め，その式を出力するプログラムを作成しなさい． # お願いします 202:デフォルトの名無しさん 09/06/17 07:47:20 >>201 % Prolog t201 :- findall(Q,t201(Q),L), member(A,L), write(A), nl; true. t201(Q) :- 符号を含むならびの生成([1,2,3,4,5,6,7,8,9],L), atom_chars(S,L), atom_to_term(S,Q,_), 100 is Q. 符号を含むならびの生成([A],[A]). 符号を含むならびの生成([A|R1],[A|R2]) :- 符号を含むならびの生成(R1,R2). 符号を含むならびの生成([A|R1],[A,'+'|R2]) :- 符号を含むならびの生成(R1,R2). 符号を含むならびの生成([A|R1],[A,'-'|R2]) :- 符号を含むならびの生成(R1,R2).
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4630日前に更新/314 KB
担当:undef