いろんな言語で宿題ス ..
231:デフォルトの名無しさん
09/06/18 17:26:54
>>226 書き直し
% Prolog
gcd(M,N,N) :-
0 is M mod N,!.
gcd(M,N,X) :-
Mod is M mod N,
gcd(N,Mod,X).
gcd(M,N,O,X) :-
gcd(M,N,Y),
gcd(Y,O,X).
232:デフォルトの名無しさん
09/06/18 17:46:05
>>228
ニュートン・コーツ とか
区分求積法 でググれ
233:デフォルトの名無しさん
09/06/18 18:28:43
ｽﾚﾘﾝｸ(tech板:592番)
# [1] 授業単元： Ｃ
# [2] 問題文(含コード&リンク)：入力した文字の種類を表示するプログラムを作成せよ。ただし、表示は次に従うとする
# 入力キーＡ～Ｚ 表示メッセージ 英大文字です
# 入力キーa～ｚ 表示メッセージ 英小文字です
# 入力キー０～９ 表示メッセージ 数字です
# 上記以外 表示メッセージ その他のキャラクターです
234:デフォルトの名無しさん
09/06/18 18:32:23
>>233
% Prolog
入力した文字の種類を表示するプログラム(_文字,_文字の種類) :-
文字の範疇(_文字の範疇,_文字),
表示は次に従うとする(_文字の範疇,_,_表示メッセージ),
write(_表示メッセージ).
表示は次に従うとする(入力キーＡ～Ｚ,表示メッセージ,英大文字です).
表示は次に従うとする(入力キーa～ｚ,表示メッセージ,英小文字です).
表示は次に従うとする(入力キー０～９,表示メッセージ,数字です).
表示は次に従うとする(上記以外,表示メッセージ,その他のキャラクターです).
文字の範疇(入力キーＡ～Ｚ,_文字) :-
member(_文字,['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z']).
文字の範疇(入力キーa～ｚ,_文字) :-
member(_文字,[a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z]).
文字の範疇(入力キー０～９,_文字) :-
member(_文字,['0','1','2','3','4','5','6','7','8','9']).
文字の範疇(上記以外,_文字) :-
not(member(_文字,['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'])),
文字の範疇(入力キーa～ｚ,_文字) :-
member(_文字,[a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z]).
文字の範疇(入力キー０～９,_文字) :-
member(_文字,['0','1','2','3','4','5','6','7','8','9']).
文字の範疇(上記以外,_文字) :-
not(member(_文字,['A','B','C','D','E','F','G','H',
'I','J','K','L','M','N','O','P',
'Q','R','S','T','U','V','W','X','Y','Z'])),
not(member(_文字,[a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z])),
not(member(_文字,['0','1','2','3','4','5','6','7','8','9'])).
235:デフォルトの名無しさん
09/06/18 18:40:39
>>233 訂正
% Prolog
入力した文字の種類を表示するプログラム(_文字) :-
文字の範疇(_文字の範疇,_文字),
% 2引数ではなく、1引数の述語です。削り忘れてました。
% なんて冗長な馬鹿なプログラムだと思われるでしょうが、渡された
% 仕様を可能な限りそのまま利用して、何も考えずにプログラムすると
% こんな事になるという例です。
入力した文字の種類を表示するプログラム(_文字,_文字の種類) :-
表示は次に従うとする(_文字の範疇,_,_表示メッセージ),
文字の範疇(_文字の範疇,_文字),
write(_表示メッセージ).
% 順序をひっくり返してもちゃんと動作します。開発順序としては
% この述語を作ってから、2行目と3行目を入れ替えました。
236:デフォルトの名無しさん
09/06/18 20:51:57
ｽﾚﾘﾝｸ(tech板:615番)
# [1] 授業単元： C初心者コース
# [2] 問題文(含コード&リンク)：試験の点数（１００点満点）を入力すると、評価値（A+,A,B,C,F)を表示する
# プログラムを作れ９０～１００Ａ+８０～８９Ａ７０～７９Ｂ６０～６９Ｃ０～５９Ｆそれ以外error
# [3] 環境
# [3.1]linux
# [3.2] gcc
# [3.3]C
# [4]６月１９日
# [5]if文(gotoは論外）while do while for等 ループ文を使ってはいけないそうです
237:デフォルトの名無しさん
09/06/18 20:55:20
>>236
% Prolog
評価値(_点数,'A+') :- _点数>=90,_点数=<100.
評価値(_点数,'A') :- _点数>=80,_点数=<89.
評価値(_点数,'B') :- _点数>=70,_点数=<79.
評価値(_点数,'C') :- _点数>=60,_点数=<69.
評価値(_点数,'F') :- _点数>=0,_点数=<59.
評価値(_,error).
238:デフォルトの名無しさん
09/06/18 23:44:11
ｽﾚﾘﾝｸ(tech板:737番)
#【 課題 】適当な文字列を入力して、暗号化するプログラムを作る。
# 暗号キーは2桁で、暗号文は奇数番目と偶数番目の文字列を、
# 暗号キーの値だけ交互にずらして作成する。
# 使用する文字種は「！」から「ｚ」までの90個とする（0x21~0x7A)。
# またを超えたら！に戻すこと。
239:デフォルトの名無しさん
09/06/18 23:46:10
>>238
% Prolog
URLﾘﾝｸ(nojiriko.asia)
240:デフォルトの名無しさん
09/06/19 07:51:19
ｽﾚﾘﾝｸ(tech板:650番)
# [1] 授業単元： Ｃ
# [2] 問題文(含コード&リンク)：キーボードから入力された１以上の整数ｎについて、
# 次の例に示すように行番号と*を表示するプログラムを作成せよ。
# なお、*の数は、１行目はn個とし、１行毎に１ずつへっていくこととする。
# また、０や負の数が入力された場合はプログラムが終了するようにせよ。
241:デフォルトの名無しさん
09/06/19 07:58:05
>>240
% Prolog
% 述語 同一要素ならび/3 は事実上の組込述語ですね
t240(N) :-
for(N,M,1),t240_1(M),N=1.
t240_1(N) :-
同一要素ならび(*,L,N),
concat_atom([N|L],S),
write_formatted('%t\n',[S]).
同一要素ならび(_要素,List,Length) :-
length(List,Length),
同一要素ならび(_要素,List) .
同一要素ならび(_,[]).
同一要素ならび(A,[A|R]) :-
同一要素ならび(A,R).
242:デフォルトの名無しさん
09/06/19 14:42:10
ｽﾚﾘﾝｸ(tech板:674番)
# [1] 授業単元：プログラム
# [2] 4*3行列Aと 3*5行列B の各要素をキーボードから入力し、
# C = A*B を計算し、表示するプログラムを作成せよ。
243:デフォルトの名無しさん
09/06/19 14:43:51
>>242
% Prolog 少し前に一度あった。
URLﾘﾝｸ(nojiriko.asia)
244:デフォルトの名無しさん
09/06/19 14:47:02
ｽﾚﾘﾝｸ(tech板:669番)
# 内容：
# [1] 授業単元： プログラミング論
# [2] 問題文(含コード&リンク)：
# 1からnまでの整数値の和を再帰的に求めるプログラムを作成する
# [実行結果の例]
# 1からnまでの整数値の和を計算します
# nの値を入力してください:100
# 1から100までの整数値の和は5050です
245:デフォルトの名無しさん
09/06/20 04:31:12
>>149 >>150
% Prolog (下請け述語を改変)
% ｽﾚﾘﾝｸ(tech板:289番) 参照
交互にならべた文字列(Str1,Str2,Str) :-
atom_chars(Str1,Chars1),
atom_chars(Str2,Chars2),
交互にならべた文字列_1(Chars1,Chars2,Chars3),
atom_chars(Str,chars3).
交互にならべた文字列_1([],L,L) :- !.
交互にならべた文字列_1([A|R1],L2,[A|R]) :-
交互にならべた文字列_1(L2,R1,R)..
?- 交互にならべた文字列(abcde,opq,X).
X = aobpcqde;
no
?-
246:デフォルトの名無しさん
09/06/20 04:58:24
>>246
もっと一般化したら・・
二つの文字列を交互に併合する(Str1,Str2,Str) :-
atom_chars(Str1,Chars1),
atom_chars(Str2,Chars2),
順併合(Chars1,Chars2,Chars3),
atom_chars(Str,chars3).
順併合([],L,L) :- !.
順併合([A|R1],L2,[A|R]) :-
順併合(L2,R1,R).
247:デフォルトの名無しさん
09/06/20 05:37:07
>>246
順併合というソートと誤解されるかな。
二つの文字列を交互に併合する(Str1,Str2,Str) :-
atom_chars(Str1,Chars1),
atom_chars(Str2,Chars2),
交互併合(Chars1,Chars2,Chars3),
atom_chars(Str,chars3).
交互併合([],L,L) :- !.
交互併合([A|R1],L2,[A|R]) :-
交互併合(L2,R1,R).
248:デフォルトの名無しさん
09/06/20 08:33:46
ということは、
>>238 >>239 文字コードによる暗号化/3 も以下がよい。
文字列の暗号化(_鍵整数,_元の文字列,_暗号文字列) :-
integer(_鍵整数),
_鍵整数>=10
_鍵整数=<99,
atom_codes(_元の文字列,Codes),
_奇数番目の鍵 is _鍵整数 // 10,
_偶数番目の鍵 is _鍵整数 mod 10,
文字コードによる暗号化(_奇数番目の鍵,_偶数番目の鍵,Codes,_暗号Codes),
atom_codes(_暗号文字列,_暗号Codes).
文字コードによる暗号化(_,_,[],[]) :- !.
文字コードによる暗号化(_鍵1,_鍵2,[A|R1],[B|R2]) :-
一文字の暗号化(_鍵1,A,B),
文字コードによる暗号化(_鍵2,_鍵1,R1,R2).
一文字の暗号化(_変位,_文字コード,_暗号化された文字コード) :-
_文字コード+_変位 =< 122,!,
_暗号化された文字コード is _文字コード+_変位.
一文字の暗号文字化(_変位,_文字コード,_暗号化された文字コード) :-
_文字コード+_変位 >122,!,
_暗号化された文字コード is _文字コード+_変位-90.
249:248
09/06/20 08:47:22
ごめんなさい。>>238 を更新してしまった。
これでは以前との比較ができない。もう一度復元しますから、少し待って。
250:デフォルトの名無しさん
09/06/20 09:01:05
>>249 >>239 の話でした。元々はこうなっていたはずです。
文字コードによる暗号化(_,_,[],[]).
文字コードによる暗号化(_奇数番目の鍵,_,[A],[C]) :-
一文字の暗号化(_奇数番目の鍵,A,C).
文字コードによる暗号化(_奇数番目の鍵,_偶数番目の鍵,[A,B|R1],[C,D|R2]) :-
一文字の暗号化(_奇数番目の鍵,A,C),
一文字の暗号化(_偶数番目の鍵,B,D),
文字コードによる暗号化(_奇数番目の鍵,_偶数番目の鍵,R1,R2).
251:デフォルトの名無しさん
09/06/20 19:19:22
ｽﾚﾘﾝｸ(tech板:750番)# 【 課題 】
# String a ="@test あいう@aaaおえてURLﾘﾝｸ(test.com)と";
# aから@から始まるアルファベットとURLを取り除く処理
# System.out.println(a);
#
# 出力結果
# あいうおえてと
#
# aから@から始まるアルファベットとURLを取り除く処理はどのように書けばいいのでし
ょうか？
252:デフォルトの名無しさん
09/06/20 19:44:01
>>251
% Prolog
t251(_文字列,_取り除いた文字列) :-
atom_chars(_文字列,Chars),
t251_1(Chars,L),
atom_chars(_取り除いた文字列,L).
t251_1([],[]) :- !.
t251_1([@|R1],R2) :-
t251_2(R1,R2),!.
t251_1([h,t,t,p,:,/,/|R1],R2) :-
t251_2(R1,R2),!.
t251_1([A|R1],[A|R2]) :-
t251_1(R1,R2).
t251_2([],[]) :- !.
t251_2([A|R1],R2) :-
A @>=' ',
A @=< z,!,
t251_2(R1,R2).
t251_2(L,R2) :-
t251_1(L,R2).
253:デフォルトの名無しさん
09/06/21 04:51:24
ｽﾚﾘﾝｸ(tech板:708番)
# 入力件数ｎをキーボードより入力し、ｎ人分のテストデータを入力する。
# その際、合計点、最高点、最低点を求め、最後に平均点を計算しそれぞれを出力するプログラムを作成せよ。
# ただし、平均点は実数型とし小数点第２位まで出力する。
# 平均点以外の変数は整数型とする。
#
# 問②棒グラフ出力プログラム
# 値２つを入力し、*を横に並べて棒グラフ状に出力するプログラム。
# 大きい値の方の棒グラフが上に来るようにすること。
# （値として０～５０までしか入力されないものとする）
254:デフォルトの名無しさん
09/06/21 05:43:15
>>253 問②棒グラフ出力プログラム
% Prolog
t253_2(A,B) :-
t253_2_make_list(50,A,B,L),
t253_2_print(L).
t253_2_make_list(0,_,_,[]).
t253_2_make_list(N,A,B,[[X1,X2]|R]) :-
( N > A,X1=' ';N =< A,X1='*'),
( N > B,X2=' ';N =< B,X2='*'),
N2 is N - 1,
t253_2_make_list(N2,A,B,R).
t253_2_print([],[]).
t253_2_print([F|R1],[B|R2]) :-
write_formatted(' %t %t\n',F),
t253_2_print(R1,R2).
255:デフォルトの名無しさん
09/06/21 05:47:01
>>254 間違えた。t253_2_printを直すの忘れてた。
% Prolog
t253_2(A,B) :-
t253_2_make_list(50,A,B,L),
t253_2_print(L).
t253_2_make_list(0,_,_,[]).
t253_2_make_list(N,A,B,[[X1,X2]|R]) :-
( N > A,X1=' ';N =< A,X1='*'),
( N > B,X2=' ';N =< B,X2='*'),
N2 is N - 1,
t253_2_make_list(N2,A,B,R).
t253_2_print([]).
t253_2_print([L|R]) :-
write_formatted(' %t %t\n',L),
t253_2_print(R).
256:デフォルトの名無しさん
09/06/21 06:25:06
ｽﾚﾘﾝｸ(tech板:742番)
# [1] 授業単元： Ｃ
# [2] 問題文(含コード&リンク)：年ｒ％の複利でｙ円を借り、ｎ年後に一括返済する場合の返済額を計算するプログラムを作成せよ
# ただしｒ％の複利でｎ年借りた場合の利率を計算する部分を関数として作成すること。
# 表示結果の例
# 利率（ｒ）：7.5
# 金額（ｙ）：1000000
# 期間(n):2
# 返済金額は1155625
# ヒント：返済金額はｙ（１+ｒ/１００）のｎ乗円である。ｒ％の複利でｎ年間の利率（１+ｒ/１００）のｎ乗を計算する関数
# float interest(float r, int n)を作る。そしてmain()からinterest()を呼び出し、返された値にｙを掛けて返済額を求める。
257:デフォルトの名無しさん
09/06/21 12:51:45
ｽﾚﾘﾝｸ(tech板:748番)
#【 課題 】URLﾘﾝｸ(rg550.hp.infoseek.co.jp)
#【 形態 】Javaアプリケーション(main()で開始)
# URLﾘﾝｸ(rg550.hp.infoseek.co.jp)
上記仕様は意味不明のところがあり、
入力ファイルを以下のように変更しましょう。
売上明細ファイル
1)支店コード（数値3byte)
2)販売日（yyyymmdd)
3)販売先コード（数値6byte)
4)売上金額(数値8byte)
支店名ファイル
1)支店コード（数値3byte)
2)支店名（文字10byte)
販売先名ファイル
1)販売先コード（数値6byte)
2)販売先名（文字30byte)
258:デフォルトの名無しさん
09/06/21 15:00:09
>>251 >>252 URLのチェックの認識部分を修正
% Prolog
t251(_文字列,_取り除いた文字列) :-
atom_chars(_文字列,Chars),
t251_1(Chars,L),
atom_chars(_取り除いた文字列,L).
t251_1([],[]) :- !.
t251_1([' '|R1],R2) :-
t251_1(R1,R2),!.
t251_1([@|R1],R2) :-
t251_2(R1,R2),!.
t251_1(L,R2) :-
url_check(L,R1),
t251_2(R1,R2),!.
t251_1([A|R1],[A|R2]) :-
t251_1(R1,R2).
url_check([h,t,t,p,:,/,/|R],R) :- !.
url_ckeck([h,t,t,p,s,:,/,/,|R],R) :- !.
url_check([f,t,p,:,/,/|R],R) :- !.
url_check([f,i,l,e,:,/,/|R],R) :- !.
t251_2([],[]) :- !.
t251_2([A|R1],R2) :-
A @>' ',
A @=< z,!,
t251_2(R1,R2).
t251_2(L,R2) :-
t251_1(L,R2).
259:デフォルトの名無しさん
09/06/21 19:17:19
ｽﾚﾘﾝｸ(tech板:765番)
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# 診断プログラムを作ろう
# 「計算ドリル」。質問文全てを一つの文字列配列に格納し、その順番に表示しましょう
。正解するたびに、
# tokuten を増やすことで、最後に「あなたは 5 問正解です」みたいな結果を表示させ
ることが出来ます。
# char questions[6][100]={
# “１２×（３＋４）＝”, “（１＋１÷９）×９＝”,
# “（２９‐５）÷（１７‐１１）＝”, “２の１０乗＝”,
# “（３×９＋４４÷２）のルート＝”, “８の階乗＝”};
# ソースプログラム、変数の意味、工夫した点を書きなさい
260:デフォルトの名無しさん
09/06/21 19:21:42
>>259
% Prolog
計算ドリル :-
write('五問出題します。すぐに答えてください\n'),
質問(L1),
正解(L2),
計算ドリル(L1,L2,0,X),
write_formatted('%t問正解です\n',[X]).
計算ドリル([],_,N,N) :- !.
計算ドリル([A|R1],[B|R2],N,X) :-
write(A),
get_line(S),
atom_to_term(S,B),
M is N + 1,
計算ドリル([A|R1],[B|R2],M,X),!.
計算ドリル([_|R1],[_|R2],N,X) :-
計算ドリル(R1,R2,N,X).
質問(['１２×（３＋４）＝',
'（１＋１÷９）×９＝',
'（２９‐５）÷（１７‐１１）＝',
'２の１０乗＝',
'（３×９＋４４÷２）のルート＝',
'８の階乗＝']).
正解([84,10,4,1024,7,40320]).
261:260
09/06/21 20:08:59
% 正解かどうかを示すタイミングは
計算ドリル([],_,N,N) :- !.
計算ドリル([A|R1],[B|R2],N,X) :-
write(A),
get_line(S),
atom_to_term(S,B),
write('正解です!\n'),
M is N + 1,
計算ドリル([A|R1],[B|R2],M,X),!.
計算ドリル([_|R1],[B|R2],N,X) :-
write('残念でした!! 正解は%tですね\n',[B]),
計算ドリル(R1,R2,N,X).
262:デフォルトの名無しさん
09/06/21 20:37:25
% 一般的には以下のような定義にします。これだと不正解の時にもSを表示できます。
計算ドリル([],_,N,N) :- !.
計算ドリル([A|R1],[B|R2],N,X) :-
write(A),
get_line(S),
正誤の判定(S,B,N,N2),
計算ドリル(R1,R2,N2,X).
正誤の判定(S,B,N,N2) :-
atom_to_term(S,B1),
B1 = B,
write('正解です!\n'),N2 is N + 1,!.
正誤の判定(S,B,N,N) :-
atom_to_term(S,B1),
integer(B1),
not(B1=B),
write_formatted('残念でした!! 正解は%tですね\n',[B]),!.
正誤の判定(S,B,N,N) :-
atom_to_term(S,B1),
not(integer(B1)),
write_formatted('入力に形式的な誤りがあったようです\nあなたは%tと入力しました\n',[S]).
263:デフォルトの名無しさん
09/06/21 22:02:23
>>256
% Prolog
interest(R,N,X) :-
X is (1+R/100)^N.
返済額(Y,R,N,,X) :-
interrest(R,N,Z),
X is Y * Z.
264:デフォルトの名無しさん
09/06/22 04:34:04
ｽﾚﾘﾝｸ(tech板:580番)
# 【質問テンプレ】
# [1] 授業単元： プログラミング演習
# [2] 問題文: 人の名前（ローマ字）を検索（部分一致）することができるプログラム
を作成せよ。
265:デフォルトの名無しさん
09/06/22 14:46:14
>>264
% Prolog こういう処理のためのユーティリティ sub_atom/10 を提案する。
URLﾘﾝｸ(nojiriko.asia)
266:デフォルトの名無しさん
09/06/22 17:23:44
ｽﾚﾘﾝｸ(tech板:878番)
#エラトステネスの篩
#（コードは煩雑そうに見えるが、速度が圧倒的に速い。
# 大きな数までの素数表が必要な場合に必要な方法。）
% 宿題には見えないんだが・・
267:デフォルトの名無しさん
09/06/22 17:27:40
>>266
% Prolog
素数生成(N,X) :-
findall(M,for(2,M,N),L),
エラトステネスの篩(L,X).
エラトステネスの篩([],[]) :- !.
エラトステネスの篩([A|R1],[A|R2]) :-
エラトステネスの篩(A,R1,L),
エラトステネスの篩(L,R2).
エラトステネスの篩(_,[],[]) :- !.
エラトステネスの篩(N,[A|R1],R2) :-
0 is A mod N,
エラトステネスの篩(N,R1,R2),!.
エラトステネスの篩(N,[A|R1],[A|R2]) :-
エラトステネスの篩(N,R1,R2).
268:デフォルトの名無しさん
09/06/22 22:55:11
ｽﾚﾘﾝｸ(tech板:842番)
# [1] C言語
# [2]１～５の数字の組み合わせをを2次元配列index[][]に格納し、表示しなさい。
269:デフォルトの名無しさん
09/06/22 22:59:07
>>268
% Prolog
t268(X) :- 組合せ([1,2,3,4,5],2,X).
組合せ(X,1,[A]) :-
member(A,X) .
組合せ([A|Y],N,[A|X]) :-
N > 1,
M is N - 1,
組合せ(Y,M,X) .
組合せ([_|Y],N,A) :-
N > 1,
組合せ(Y,N,A) .
270:デフォルトの名無しさん
09/06/22 23:01:19
>>268
% Prolog
t268(X) :- 組合せ([1,2,3,4,5],2,X).
組合せ(X,1,[A]) :- member(A,X) .
組合せ([A|Y],N,[A|X]) :- N > 1,M is N - 1,組合せ(Y,M,X) .
組合せ([_|Y],N,A) :- N > 1,組合せ(Y,N,A) .
271:デフォルトの名無しさん
09/06/22 23:05:33
ｽﾚﾘﾝｸ(tech板:837番)
# キーボードから入力した数値の段数を持つ逆ピラミッドを表示するプログラム。
#
# 例えば３と入力した時、
#
# ＊＊＊＊＊
# ＊＊＊
# ＊
#
# となるようなプログラムです。
# どうか早急にお願いします。
272:デフォルトの名無しさん
09/06/22 23:08:00
>>271
問題が面白くないっす
やる気起きないっす
273:デフォルトの名無しさん
09/06/22 23:17:35
% Prolog
:- op(250,xfx,対).
t271(N,1 対 M) :-
for(N,N2,1),
N3 is (N2 - 1) * (M - 1) + 1,
for(1,N4,N3),write(*),N3=N4,
N=N2.
274:デフォルトの名無しさん
09/06/23 04:33:24
ｽﾚﾘﾝｸ(tech板:851番)
# あいうえお
# /*かきくけこ*/
# さしす/*せそ
# なにぬ*/ねの
#
# というファイル（test.txt）から文字数、改行数、コメント文字数をカウントし、出力するプログラムです。
# お願いいたします。
275:デフォルトの名無しさん
09/06/23 05:03:46
>>274
% Prolog
t274(_文字数,_改行数,_コメント数) :-
get_chars('test.txt',Chars),
length(Chars,_文字数),
改行数を数える(Chars,_改行数),
コメント数を数える(Chars,_コメント).
改行数を数える(Chars,_改行数) :-
findall(_,append(_,['\n'|_],Chars),L),
length(L,_改行数).
コメント文字数を数える(Chars,_コメント文字数) :-
append(_,['/','*'|L2],Chars),
append(_コメント文字候補,['*','/'|_],L2),
not(append(_,['/','*'|_],_コメント文字候補)),
改行を取り除く(_コメント文字候補,_改行を取り除いたコメント文字候補),
length(_改行を取り除いたコメント文字候補,_コメント文字数).
改行を取り除く([],[]).
改行を取り除く(['\n'|R1],R2) :-
改行を取り除く(R1,R2),!.
改行を取り除く([A|R1],[A|R2]) :-
not(A='\n'),
改行を取り除く(R1,R2).
276:デフォルトの名無しさん
09/06/23 05:11:18
>>274 >>275
% Prolog (訂正) コメント数 ではなく コメント文字数 です。
t274(_文字数,_改行数,_コメント文字数) :-
get_chars('test.txt',Chars),
length(Chars,_文字数),
改行数を数える(Chars,_改行数),
コメント文字数を数える(Chars,_コメント文字数).
改行数を数える(Chars,_改行数) :-
findall(_,append(_,['\n'|_],Chars),L),
length(L,_改行数).
コメント文字数を数える(Chars,_コメント文字数) :-
append(_,['/','*'|L2],Chars),
append(_コメント文字候補,['*','/'|_],L2),
not(append(_,['/','*'|_],_コメント文字候補)),
改行を取り除く(_コメント文字候補,_改行を取り除いたコメント文字候補),
length(_改行を取り除いたコメント文字候補,_コメント文字数).
改行を取り除く([],[]).
改行を取り除く(['\n'|R1],R2) :-
改行を取り除く(R1,R2),!.
改行を取り除く([A|R1],[A|R2]) :-
not(A='\n'),
改行を取り除く(R1,R2).
277:デフォルトの名無しさん
09/06/23 05:19:10
ｽﾚﾘﾝｸ(tech板:861番)
# 以下のように出力されるプログラムを作成せよ
# 年齢を入力してください
# 16
# 生まれた年を入力してください
# 1986
# 好きな数字を入力してください
# 7
# あなたは1986年生まれの16才で、7が好きですね
278:デフォルトの名無しさん
09/06/23 05:30:30
>>277
% Prolog
t277 :-
質問文(L),
findall(U,(member(A,L),write(A),nl,get_line(U)),VL),
write_formatted('あなたは%t年生まれの%才で、%tが好きですね\n',VL).
質問文([年齢を入力してください,生まれた年を入力してください,好きな数字を入力してください]).
279:デフォルトの名無しさん
09/06/23 05:41:29
ｽﾚﾘﾝｸ(tech板:879番)
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
280:デフォルトの名無しさん
09/06/23 07:00:07
>>279
% Prolog
t279(M,N,StartX,StartY,_壁衝突回数,_ポケットX,_ポケットY) :-
t279(M,N,StartX,StartY,1,1,0,_壁衝突回数,_ポケットX,_ポケットY),!.
t279(M,N,X,Y,_,_,Count,Count,X,Y) :-
member([X,Y],[[M,0],[0,N],[N,0],[M,N]]),!.
t279(M,N,X1,Y1,VX,VY,Count1,Count,X,Y) :-
member(X1,[0,M]),
VX1 is (-1) * VX,
Count2 is Count1 + 1,
X2 is X1 + VX1,
Y2 is Y1 + VY,
t279(M,N,X2,Y2,VX1,VY,Count2,Count,X,Y).
t279(M,N,X1,0,VX,VY,Count1,Count,X,Y) :-
member(Y1,[0,N]),
VY1 is (-1) * VY,
Count2 is Count + 1,
X2 is X1 + VX,
Y2 is Y1 + VY1,
t279(M,N,X2,Y2,VX,VY1,Count2,Count,X,Y).
t279(M,N,X1,Y1,VX,VY,Count1,Count,X,Y) :-
X2 is X1 + VX,
Y2 is Y1 + VY,
t279(M,N,X2,Y2,VX,VY,Count1,Count2,X,Y).
281:デフォルトの名無しさん
09/06/23 07:26:37
ｽﾚﾘﾝｸ(tech板:849番)
# [1]授業単元：プログラミング演習課題3
# [2]問題文：URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
# ファイルに登録された成績コードを読み、構造体列にデータを編集し指定された項目で
# ソート処理を行って、画面に一覧（見出しと明細データ）を出力する。
# ソートの順序は降順とし、10行毎に見出しを入れる。
#
# 成績ファイル：
# コード（6桁）,氏名（20桁）,国語（3桁）,算数（3桁）,理科（3桁）,社会（3桁）
#
# 構造体の定義：
# struct seito {
# char cd[7];
# char simei[21];
# int kokugo;
# int sansu;
# int rika;
# int syakai;
# };
#
# ソート項目は、コード、氏名、国語、算数、理科、社会が選択できるようにする。
282:デフォルトの名無しさん
09/06/23 15:12:50
>>281
% Prolog
URLﾘﾝｸ(nojiriko.asia)
283:デフォルトの名無しさん
09/06/23 15:20:30
ｽﾚﾘﾝｸ(tech板:890番)
# [1] 授業単元：数理物理
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(www.mns.kyutech.ac.jp)
sub8.html
# の課題３のプログラムで解くところまで
# 課題（３）
#
# 次の力が働いているときの、運動方程式を解く。
#
# F = -x - v ^ 3 + 1 + cos(t)
#
# 初期条件：ｔ＝０の時、ｘ（０）＝１．０、速度ｖ（０）＝‐０．５
# として解き、０＜ｔ＜１０までをgnuplot（など）で、プロットせよ。
#
# ヒント：
# ６章の減衰振動のプログラム（C言語）
# URLﾘﾝｸ(www.mns.kyutech.ac.jp)
284:デフォルトの名無しさん
09/06/23 20:03:38
ｽﾚﾘﾝｸ(tech板:905番)
# [1]c++
# [2]2次元配列n[10][10]のすべての要素に1を代入してから、その内容を表示しなさい。
# また、対角要素だけを1を代入し、ほかはすべて0を代入してから、表示しなさい。
# ただし、対角要素は左上隅から右下隅への対角線上の要素とする。次の図は実行例であ
る。
# --- (2)配列nの内容 ---
#
# 100000000
# 010000000
# 001000000
# 000100000
# 000010000
# 000001000
# 000000100
# 000000010
# 000000001
285:デフォルトの名無しさん
09/06/23 20:27:54
>>284
% Prolog
t284_1 :-
findall(L,(for(1,M,10),findall(1,for(1,N,10),L)),LX),
member(U,LX),
concat_atom(U,A),
write_formatted('%t\n',[A]),
fail;
true.
t284_2 :-
findall(L,(for(1,M,10),findall(B,(for(1,N,10),
(N=M,B=1;not(N=M),B=0))),LX),
member(U,LX),
concat_atom(U,A),
write_formatted('%t\n',[A]),
fail;
true.
286:デフォルトの名無しさん
09/06/24 04:35:26
>>284
% Prolog for/3を使いたくない場合。表示は省略。
t284_2(X) :- length(L,10),findall(L,一つだけ1で他は全部零(L),X).
一つだけ壱で他は全部零(L) :- append(L1,[1|R],L),零ならび(L1),零ならび(R).
零ならび([]).
零ならび([0|R]) :- 零ならび(R).
287:デフォルトの名無しさん
09/06/24 04:52:46
>>284 一ヶ所間違えた。
% Prolog for/3を使いたくない場合。表示は省略。
t284_2(X) :- length(L,10),findall(L,ひとつだけ壱で他は全部零(L),X).
ひとつだけ壱で他は全部零(L) :- append(L1,[1|R],L),零ならび(L1),零ならび(R).
零ならび([]).
零ならび([0|R]) :- 零ならび(R).
288:デフォルトの名無しさん
09/06/24 08:30:30
>>287
forループがlengthの中に閉じ込められているんだね。
これぞ宣言型プログラミング！
289:デフォルトの名無しさん
09/06/24 12:04:36
>>257
% Prolog
URLﾘﾝｸ(nojiriko.asia)
290:デフォルトの名無しさん
09/06/24 19:14:07
ｽﾚﾘﾝｸ(tech板:953番)
# [1] 授業単元： ピラミッドアート
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
課題「ピラミッドアート」
数値を一つ入力し、その個数分の'*'を1辺とする
①ダイヤ型、②八角形、③星型 などを描画する
実行画面例①ダイヤ型
数字（2～9）を入力してください：3
*
***
*****
***
*
実行画面例②八角形
数字（2～9）を入力してください：2
**
****
****
**
実行画面例③星型
数字（2～9）を入力してください：7
* * *
* * *
***
*******
***
* * *
* * *
291:デフォルトの名無しさん
09/06/24 19:16:01
>>290
空白がうまく表示できなかった。
URLﾘﾝｸ(ime.nu)
で確認してください。
292:デフォルトの名無しさん
09/06/24 20:15:45
>>290
% Prolog
URLﾘﾝｸ(nojiriko.asia)
293:デフォルトの名無しさん
09/06/26 16:58:48
ｽﾚﾘﾝｸ(tech板:75番)
# [1] 授業単元： Ｃ
# [2] 問題文(含コード&リンク)：
# キーボードから入力された１以上の整数ｎについて、次の例に示すように行番号と*を表示するプログラムを作成せよ
# 。また、０や負の数が入力された場合はプログラムが終了するようにせよ。
# 表示結果の例
# 正の整数：6
# 1******
# 2 *****
# 3 ****
# 4 ***
# 5 **
# 6 *
294:デフォルトの名無しさん
09/06/26 17:14:14
>>293
% Prolog 最後6の表示が間違ってるが。
t293(N) :-
length(L,N),
append(L1,L2,L),
not(L2=[]),
all(L1,' '),
all(L2,'*'),
length(L1,N),
N2 is N + 1,
concat_atom(L,S),
write_formatted('%t %t\n',[N2,S]),
fail;
true.
all([],_).
all([A|R],A) :- all(R,A).
295:デフォルトの名無しさん
09/06/26 17:16:07
>>294
all(L1,' '), はスペース2個だと思ってください。
296:デフォルトの名無しさん
09/06/26 18:11:51
ｽﾚﾘﾝｸ(tech板:83番)
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# 自分の名前の英字名のASCIIコードを順番に表示するプログラムを作りなさい。
297:デフォルトの名無しさん
09/06/26 18:13:37
>>296
% Prolog
t296(Name) :-
sub_atom(Name,S,1,R,A),
not(A=' '),
char_code(A,C),
N is S+1,
write_formatted('%2d: %t\n',[N,C]),
fail;
true.
298:デフォルトの名無しさん
09/06/26 18:41:30
ｽﾚﾘﾝｸ(tech板:85番)
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
299:デフォルトの名無しさん
09/06/26 19:17:51
>>298
% Prolog
phon(_フォネティックコードファイル,_文字列) :-
assertz_フォネティックコード(_フォネティックコードファイル),
sub_atom(_文字列,_,1,_,A),
フォネティックコード(A,B),
write_formatted('%t ',[B]),
fail;
true.
assertz_フォネティックコード(_フォネティックコードファイル) :-
abolish(フォネティックコード/2),
get_lines(_フォネティックコード,Lines),
member(Line,Lines),
split(Line,[','],[A,B]),
assertz((フォネティックコード(A,B) :- !)),
fail;
assertz((フォネティックコード(A,A))).
300:デフォルトの名無しさん
09/06/26 19:32:49
>>298
-- Haskell
import IO
import Data.Char (isAlpha, toLower)
import Data.Maybe (fromJust)
main = do
fname <- getLine
h <- openFile fname ReadMode
phon <- readPhon h
str <- getLine
putStrLn $ t298 phon str
hClose h
readPhon :: Handle -> IO [(Char,String)]
readPhon h = hGetContents h >>= return . map parse . lines
where
parse :: String -> (Char,String)
parse (c:',':p) = (c,p)
t298 :: [(Char,String)] -> String -> String
t298 phon [] = []
t298 phon (x:xs) | isAlpha x = (fromJust $ lookup (toLower x) phon) ++ ' ' : t298 phon xs
| otherwise = x : t298 phon xs
301:デフォルトの名無しさん
09/06/26 19:49:43
>>299 違ったみたい。どこが違ってたか捜してみて下さい。
% Prolog
phon(_フォネティックコードファイル,_文字列) :-
assertz_フォネティックコード(_フォネティックコードファイル),
atom_chars(_文字列,Chars),
phon_1(Chars,XL),
phon_2(XL).
phon_1([],[]) :- !.
phon_1([A,B|R1],[C,' '|R2]) :-
フォネティックコード(A,C),
フォネティックコード(B,_),
phon_1([B|R1],R2).
phon_1([A,B|R1],[C,' '|R2]) :-
フォネティックコード(A,C),
not(フォネティックコード(B,_)),
phon_1([B|R1],R2).
phon_1([A,B|R1],[A,' '|R2]) :-
not(フォネティックコード(A,_)),
フォネティックコード(B,_),
phon_1([B|R1],R2).
phon_1([A,B|R1],[A|R2]) :-
not(フォネティックコード(A,_)),
not(フォネティックコード(B,_)),
phon_1([B|R1],R2).
phon_2([]).
phon_2([A|R]) :-
write(A),
phon_2(R).
302:デフォルトの名無しさん
09/06/26 19:56:51
>>301 さらに訂正。
phon_1([],[]) :- !. の後に、
phon_1([A],[C]) :-
フォネティックコード(A,C),!.
phon_1([A],[A]) :-
not(フォネティックコード(A,_)),!.
の2節を追加してください。
URLﾘﾝｸ(nojiriko.asia)
に書き直しておきます。
303:299
09/06/26 20:35:21
なぜこうまでも全編の書き直しを余儀なくされたかというと、
123abc の場合の 123 Alfa ... 3とAlfaの間のスペースを入れることが
難しかったと言うことです。sub_atomで次の文字をこっそり見てしまえば
いいだけの事なのですが、潔しとせずと言うところでしょうか。
304:デフォルトの名無しさん
09/06/26 20:44:07
>>303
前後関係を検査しやすいパターンで記述するので正解じゃないか。
ご苦労様ですｗ
305:デフォルトの名無しさん
09/06/26 22:04:55
ｽﾚﾘﾝｸ(tech板:46番)
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：入力した数を2の何乗より大きいかを求めるプログラム。
306:デフォルトの名無しさん
09/06/26 22:15:19
>>305
% Prolog
t305(N,X) :-
for(1,M,N),
2 ^ M > N,
X is M - 1.
307:デフォルトの名無しさん
09/06/26 22:29:32
>>305
-- Haskell
import Data.List (find)
main = do
n <- getLine
let Just m = find ((read n <=) . (2^)) [1..] in print (m-1)
308:デフォルトの名無しさん
09/06/28 14:57:43
「いろんな言語で宿題スレ」の中で
ｽﾚﾘﾝｸ(tech板:168番)
ｽﾚﾘﾝｸ(tech板:225番)
といったProlog向き問題が未回答となっています。
どなたか、よろしくお願いします。
309:308
09/06/28 14:59:04
「Prologでまったり」スレに書き込んだつもりでした。失礼しました。
310:デフォルトの名無しさん
09/06/29 04:55:03
ｽﾚﾘﾝｸ(tech板:162番)
# [1] 授業単元：数値計算
# [2] 問題文(含コード&リンク)：の連立１次方程式の解をガウスの消去法用いて解くプログラムを作成しなさい。
# （この行列を使用してください
# ｛{10,-9,0,0,0,0,0,0},
# {-9,17,-8,0,0,0,0,0},
# {0,-8,17,-9,0,0,0,0},
# {0,0-9,13,-4,0,0,0},
# {0,0,0,-4,12,-8,0,0},
# {0,0,0,0,-8,10,-2,0},
# {0,0,0,0,0,-2,2,7}｝）
311:デフォルトの名無しさん
09/06/29 11:08:26
ｽﾚﾘﾝｸ(tech板:856番)
# 【 課題 】百ます計算プログラムの作成
# 足す数、足される数は実行毎にランダムな順番にする。
# スタートボタンを押すと同時に問題が表示され、答えをキー入力しおわるとストップボタンを押す。
# 終了までの時間と、正解数を表示する。
百ます計算ってなんですか？ ゲームに参加した人が行、列の先頭から
数字を得て百桝計算し終わるまでの時間でも競うのですか？
312:デフォルトの名無しさん
09/06/29 13:29:06
ｽﾚﾘﾝｸ(tech板:184番)
# [1] 授業単元：アルゴリズム
# [2] 問題文(含コード&リンク)：
# URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
313:デフォルトの名無しさん
09/06/29 13:30:41
>>312
% Prolog
t312(StackIn,StackOut) :-
new_stack(StackIn,NewStack),
get_chars(Chars),
t312_1(Chars,NewStack,StackOut,_).
t312_1([],X,X,true).
t312_1([A|R1],Stack1,Stack2,Return) :-
stack(A,Stack1,Stack3,Return1),
t312_2(Return1),
t312_1(R1,Stack3,Stack2,Return).
t312_2(true) :- !.
t312_2(C) :- write(C).
new_stack(Var,[]) :- var(Var),!.
new_stack([],[]) :- !.
new_stack(Stack,Stack).
stack_1('/',[A|R2],R2,A) :- !.
stack_1(C,Stack1,[C|Stack1],true).
314:デフォルトの名無しさん
09/06/29 13:45:08
>>313 まちがえた。stackという述語のところ。stack/4 stack_1/4
と出てきますが、stack_op/4にします。
% Prolog
t312(StackIn,StackOut) :-
new_stack(StackIn,NewStack),
get_chars(Chars),
t312_1(Chars,NewStack,StackOut,_).
t312_1([],X,X,true).
t312_1([A|R1],Stack1,Stack2,Return) :-
stack_op(A,Stack1,Stack3,Return1),
t312_2(Return1),
t312_1(R1,Stack3,Stack2,Return).
t312_2(true) :- !.
t312_2(C) :- write(C).
new_stack(Var,[]) :- var(Var),!.
new_stack([],[]) :- !.
new_stack(Stack,Stack).
stack_op('/',[A|R2],R2,A) :- !.
stack_op(C,Stack1,[C|Stack1],true).
315:デフォルトの名無しさん
09/06/30 03:45:34
ｽﾚﾘﾝｸ(tech板:222番)
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
316:デフォルトの名無しさん
09/06/30 10:02:40
>>315
% Prolog
URLﾘﾝｸ(nojiriko.asia)
317:デフォルトの名無しさん
09/06/30 10:50:45
ｽﾚﾘﾝｸ(tech板:234番)
# [1] 授業単元：確率論
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
318:デフォルトの名無しさん
09/06/30 14:50:16
ｽﾚﾘﾝｸ(tech板:243番)
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
319:デフォルトの名無しさん
09/06/30 17:28:19
ｽﾚﾘﾝｸ(tech板:244番)
# 〔1〕授業単元:Ｃ言語
# 〔2〕問題文:URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
320:デフォルトの名無しさん
09/07/01 04:08:33
ｽﾚﾘﾝｸ(tech板:273番)
# 1] 授業単元： 数理計画法
# [2] 問題文(含コード&リンク)： シンプレックス法のプログラムを作成せよ。
# [3] 環境
# [3.1] OS： Windows
# [3.3] 言語： C
# [4] 期限： 2009年７月１日
# [5] その他の制限： プログラムの授業で習うことはすべてやりました。
# URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
# のようなプログラムをつくたんですがこの先が悩んでいます。どなたかお願いします。
321:デフォルトの名無しさん
09/07/01 04:10:11
ｽﾚﾘﾝｸ(tech板:275番)
# [1] 授業単元：Ｃ言語の基礎
# [2] 問題文：年（西暦）、月、日を入力し、入力した、日時の曜日及び、経過した日数を表示したプログラムを作成せよ。
322:デフォルトの名無しさん
09/07/01 16:45:23
>>321
% Prolog
URLﾘﾝｸ(nojiriko.asia)
323:デフォルトの名無しさん
09/07/01 22:46:07
>>318
% Prolog
URLﾘﾝｸ(nojiriko.asia)
324:323
09/07/02 05:34:22
>>318
すみません。間違いが多かったので大幅に書き換えてupしました。
URLﾘﾝｸ(nojiriko.asia)
325:デフォルトの名無しさん
09/07/02 05:47:42
>>319 ①
% Prolog
swap(A,B,L,LX) :-
append(L1,[A|L2],[B|L3],L),
append(L1,[B|L2],[A|L3],LX),!.
swap(A,B,L,LX) :-
append(L1,[B|L2],[A|L3],L),
append(L1,[A|L2],[B|L3],LX),!.
326:デフォルトの名無しさん
09/07/02 08:49:55
>>319 ②
% Prolog
t319_2(X) :-
findall(U,(for(1,N,52),t319_2_1(N,U)),X).
t319_2_1(N,U) :-
M is N mod 13,
t319_2_2(M,U).
t319_2_2(1,'A') :- !.
t319_2_2(10,'T') :- !.
t319_2_2(11,'J') :- !.
t319_2_2(12,'Q') :- !.
t319_2_2(0,'K') :- !.
t319_2_2(N,N).
327:デフォルトの名無しさん
09/07/02 09:03:32
>>319 ③
% Prolog
t319_3(X) :-
findall(U,(for(1,N,52),t319_3_1(N,U)),X).
t319_3_1(N,U) :-
M is N mod 13,
M2 is (N - 1) // 13,
t319_2_2(M,U1),
t319_2_3(M2,U2),
atom_concat(U1,U2,U).
t319_2_3(0,s).
t319_2_3(1,h).
t319_2_3(2,d).
t319_2_3(3,c).
% どこでswapを使うのかわからない!
% これからカードを「切る」課題でも出てくるのだろうか。
328:デフォルトの名無しさん
09/07/02 09:21:08
>>319
% せっかくだからN回切るのをやってみよう。
% Prolog
t319_cut(N,L) :-
t319_3(L1),
t319_cut(N,L1,L).
t319_cut(0,L,L) :- !.
t319_cut(N,L,X) :-
M1 is (random mod 52) + 1,
M2 is (random mod 52) + 1,
swap_nth(M1,M2,L,L1),
N2 is N - 1,
t319_cut(N2,L1,X).
swap_nth(M,N,L1,L2) :-
list_nth(M,L1,A),
list_nth(N,L1,B),
swap(A,B,L1,L2).
329:デフォルトの名無しさん
09/07/02 09:55:49
>>319
失礼しました。問題文を読み落としていました。
すべて最初に「切る」ことが指定されていました。
最初に切ってしまうなら、swap_nthではなく、swapでも処理できます。
t319_xx(X) :-
findall(N,for(1,N,52),L),
t319_cut(100,L,L1),
... ,
のような進行になります。
330:デフォルトの名無しさん
09/07/02 10:54:28
>>319
% Prolog
URLﾘﾝｸ(nojiriko.asia)
331:デフォルトの名無しさん
09/07/03 07:12:07
ｽﾚﾘﾝｸ(tech板:472番)
# [1] 授業単元：C言語実習
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
/joyful/img/9658.txt
# {5,21,4,14,12},
# {25,20,15,3,7},
# {24,11,6,1,13},
# {16,2,17,19,8},
# {23,18,22,9,10}
#
# の横の各行を小さい順に並び替えた後、縦の各列を小さい順に並び替え（上が小さくな
るように）
# 結果を出力
#
# 結果は
#
# 5 21 4 14 12
# 25 20 15 3 7
# 24 11 6 1 13
# 16 2 17 19 8
# 23 18 22 9 10
#
# のような形で出力
332:デフォルトの名無しさん
09/07/03 07:32:08
>>331
% Prolog
t331(_行列1,_行列2) :-
各行を整列する(_行列1,_行列3),
各列を整列する(_行列3,_行列2),
member(L,_行列2),
concat_atom(L,' ',S),
write_formatted('%t\n',[S]),
fail;
true.
各行を整列する([],[]) :- !.
各行を整列する([_行|R1],[_整列された行|R2]) :-
sort(_行,_整列された行),
各行を整列する(R1,R2).
各列を整列する(_行列1,_行列2) :-
行列の転置(_行列2,_行列3),
各行を整列する(_行列3,_行列4),
行列の転置(_行列4,_行列2).
333:デフォルトの名無しさん
09/07/03 15:49:25
ｽﾚﾘﾝｸ(tech板:511番)
# [1] 授業単元：情報基礎B
# [2] 問題文(含コード&リンク)：試験の点数１０人分をキーボードから入力し、以下の内容を出力するプログラムを作成せよ。
# 平均点、標準偏差、得点の高い順の点数リスト(出来れば、バブルソート以外のアルゴリズムでお願いします。)
334:デフォルトの名無しさん
09/07/03 16:21:10
>>333
% Prolog (1/2)
t333(_点数ならび,_平均点,_標準偏差,_点数順ならび) :-
算術平均(_点数ならび,_平均点),
標準偏差(_点数ならび,_標準偏差),
quicksort(_点数ならび,_点数順ならび).
算術平均([],N,S,M) :- M is S / N,!.
算術平均([A|R],N,S,M) :- S1 is S + A,算術平均(R,N,S1,M) .
算術平均(L,M) :- length(L,N),算術平均(L,N,0.0,M).
標準偏差([],N,M,S,V) :- V is sqrt(S / (N - 1)),!.
標準偏差([A|R],N,M,S,V) :- S1 is (A - M) ^ 2,S2 is S + S1,標準偏差(R,N,M,S2,V).
標準偏差(L,V) :- length(L,N),算術平均(L,M),標準偏差(L,N,M,0.0,V) .
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
4630日前に更新/314 KB
担当:undef