いろんな言語で宿題スレ

いろんな言語で宿題ス ..

613:デフォルトの名無しさん
09/08/04 08:59:20
ｽﾚﾘﾝｸ(tech板:794番)
# 【質問テンプレ】
# [1] 授業単元：アルゴリズムとデータ構造
# [2] 問題文(含コード&リンク)：ハッシュ（チェイン法）を使ってkeyを検索し、
# 該当するものがあればそのdataを表示する。
# （実際には検索してkeyとdataを返すまでです）
# 詳しくはこちらで　URLﾘﾝｸ(ime.nu)
# URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)

614:デフォルトの名無しさん
09/08/04 09:02:27
>>613
% Prolog でハッシュといえば述語のこと。

t613(Key,Data) :- 'KeyAndData'(Key,Data).

615:デフォルトの名無しさん
09/08/05 12:35:12
ｽﾚﾘﾝｸ(tech板:812番)
# 続けて申し訳ありません
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：
#
# 引数に度(degree)をとるsin_degree関数を作成しなさい。
# math.hで宣言されているsin関数を使用せずに自作すること。

616:デフォルトの名無しさん
09/08/05 12:52:14
>>615
% Prolog

sin_degree(_角度,X) :-
　　R is (_角度 / 180) * 3.14159,
　　sin_degree(1,20,R,1.0,0.0,X).

sin_degree(M,N,_,_,X,X) :- M > N,!.
sin_degree(M,N,R,K,Y,X) :-
　　sin_degree(M,R,1,U),
　　Y2 is Y + U * K,
　　K2 is K * (-1),
　　M2 is M + 2,
　　sin_degree(M2,N,R,K2,Y2,X).

sin_degree(0,R,X,X) :- !.
sin_degree(N,R,Y,X) :-
　　Y2 is (Y * R) / N,
　　N2 is N - 1,
　　sin_degree(N2,R,Y2,X).