09/12/22 09:57:19
第二編も512Kbyte越えで終了しました。
前スレで未解決な課題は順次このスレにコピーします。
2:デフォルトの名無しさん
09/12/22 10:15:16
ｽﾚﾘﾝｸ(tech板:309番)
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
# ●基本課題 2a（数式の読み込みと表示）
#
# 課題 2a と 2b では，算術式を読み，表示し，値を求めるプログラムを作る．
#
# 限られた時間内で数式処理の本質部分を効率よく学ぶために，
# 入力できる算術式の構文を，次の BNF で定めるものに限る．
#
# 定数 ::= 0 | 1 | … | 9
# 変数 ::= a | b | … | z | A | B | … | Z
# 算術式 ::= 定数
# | 変数
# | (算術式+算術式)
# | (算術式*算術式)
#
# つまり，１桁の定数や１文字の変数の和や積からなる式が入力である．
#
# 入力された算術式を読み込み，２分木データとして格納し，そのデータをもとに
# 入力と同じ算術式を表示する，という処理（下図）を繰り返すプログラムを作れ．
#
3:デフォルトの名無しさん
09/12/22 10:18:27
>>2
% Prolog
算術式解析(_文,_残りの文,_初期節番号,_終了節番号,_式) :-
atom_chars(_文,Chars),
算術式(_初期節番号,_終了節番号,Chars,R,_式),
atom_chars(_残りの文,R),!.
定数(A) :- member(A,['0','1','2','3','4','5','6','7','8','9']),!.
変数(A) :- member(A,[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,['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']),!.
算術式(N1,N2,[A|R],R,B) :-
定数(A),
atom_to_term(A,B,_),
assertz(算術式構文木(N1,[],[],B)),
N2 is N1 + 1,!.
算術式(N1,N2,[A|R],R,A) :-
変数(A),
assertz(算術式構文木(N1,[],[],A)),
N2 is N1 + 1,!.
算術式(N1,N2,L,R,'+'(S1,S2)) :-
append(['('|L1],[')'|R],L),append(L2,['+'|L3],L1),
N3 is N1 + 1,
算術式(N3,N4,L2,_,S1),算術式(N4,N2,L3,_,S2),
assertz(算術式構文木(N1,N3,N4,'+')),!.
算術式(N1,N2,L,R,'*'(S1,S2)) :-
append(['('|L1],[')'|R],L),append(L2,['*'|L3],L1),
N3 is N1 + 1,
算術式(N3,N4,L2,_,S1),算術式(N4,N2,L3,_,S2),
assertz(算術式構文木(N1,N3,N4,'*')),!.
4:デフォルトの名無しさん
09/12/22 10:23:44
ｽﾚﾘﾝｸ(tech板:309番)
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
# ●基本課題 2b（数式の値の計算）
#
# 課題 2a のプログラムに，算術式の値を計算して表示する機能を追加せよ．
# ただし，変数の値は全て１であるとして，式の値を求めること．
#
# 例えば，入力が (2*3) と (x+(y+z)) の場合，次のような出力をすればよい．
# show: に続いて入力された算術式を，eval: に続いて算術式の値を表示している．
#
# (2*3) ←入力
# show: (2*3)
# eval: 6
#
# (x+(y+z)) ←入力
# show: (x+(y+z))
# eval: 3
#
# まず，算術式の値を求める関数 eval_exp()（exp.c にある）を完成させる．
# 十分な数の検査データを使って動作の正しさを確かめよ．
#
5:デフォルトの名無しさん
09/12/22 10:24:43
ｽﾚﾘﾝｸ(tech板:309番)
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
# ●基本課題 2c（数式データの基本操作）
# 算術式の値を変えずに括弧をくくり直す簡単な式変形を考える．例えば，式
# (1+(2+3))
# (a*(b*c))
# ((i*x)+((j*y)+(k*z)))
# の括弧を左にくくり直すと，それぞれ，次の式になる．
# ((1+2)+3)
# ((a*b)*c)
# (((i*x)+(j*y))+(k*z))
# 括弧を左にくくり直せる (Ａ+(Ｂ+Ｃ)) や (Ａ*(Ｂ*Ｃ)) の形の算術式を
# ((Ａ+Ｂ)+Ｃ) や ((Ａ*Ｂ)*Ｃ) の形にする式変形は，式に対応する木を
# 「左に転回」する変形と捉えられる（下図）．
#
# URLﾘﾝｸ(www.cs.info.mie-u.ac.jp) → URLﾘﾝｸ(www.cs.info.mie-u.ac.jp)
#
# この操作を実行する関数 rotate_left_exp()（exp.c にある）を完成させよ．
# この関数を使い，可能な場合にだけ算術式の括弧を左にくくり直す関数
# assoc_left() を ex2.c に作って動作確認せよ．
6:デフォルトの名無しさん
09/12/22 11:00:48
ｽﾚﾘﾝｸ(tech板:977番)
# ターミナル上でテキストを編集するプログラムを作成せよ
# 以下のコマンドも使えるようにする事
#
# i ＝テキスト挿入
# p ＝単語の手前にポインタ移動
# d ＝入力した数だけポインタの後ろの文字を消す
# c ＝入力した文字列をポインタの後の文字列に置き換える
# s ＝ポインタの後に空白挿入
# q ＝終了
#
7:デフォルトの名無しさん
09/12/22 11:03:24
ｽﾚﾘﾝｸ(tech板:112番)
# 授業単元：アルゴリズムとデータ構造
# [2] 問題文(含コード&リンク)：
# ポーカーゲーム（の一部）をC言語にて作成する。
#
# ポーカーゲーム（の一部）は以下の条件を満足させてください。
#
# カードのシャッフルを行い、プレイヤ、ディーラにそれぞれ5枚ずつカードを配る。
# プレイヤは配られたカードの中から交換するものを選択できるようにする。
# ディーラ側の選択ルーチンはダミーの関数（たとえば全部交換、交換しない等）を用意すれば十分です。
# プレイヤ、ディーラそれぞれの役を判定して勝敗を表示する。
#
# 表示、カードの選択は標準入出力を利用してください。
#
8:デフォルトの名無しさん
09/12/22 12:09:23
>>6
% Prolog (その一) VT100のエスケープシーケンスの一部。前スレに書いたものだけど、これがないとエディタは作れないと思うので再掲。
カーソルをPl行上へ移動(Pl) :- put_code(27),write_formatted('[%tA',[Pl]).
カーソルをPl行下へ移動(Pl) :- put_code(27),write_formatted('[%tB',[Pl]).
カーソルをPc桁右へ移動(Pc) :- put_code(27),write_formatted('[%tC',[Pc]).
カーソルをPc桁左へ移動(Pc) :- put_code(27),write_formatted('[%tD',[Pc]).
カーソルを移動(Pl,Pc) :- put_code(27),write_formatted('[%t;%tH',[Pl,Pc]).
カーソルから画面の終わりまでを消去 :- put_code(27),write('[J').
画面の始めからカーソルまでを消去 :- put_code(27),write('[1J').
画面全体を消去 :- put_code(27),write('[2J').
カーソルから行の終わりまでを消去 :- put_code(27),write('[K').
行全体を消去 :- put_code(27),write('[2K').
行の始めからカーソルまでを消去 :- put_code(27),write('[1K').
9:デフォルトの名無しさん
09/12/22 12:38:54
ｽﾚﾘﾝｸ(tech板:509番)
# 【 課題 】URLﾘﾝｸ(prolog.asia)
# 図の有向グラフの最短経路を求めよ。
# 初期値がMAXでアルゴリズムを作れ。
10:デフォルトの名無しさん
09/12/22 14:08:52
>>4
% Prolog
算術式の値を計算して表示 :-
get_line(Line),
算術式解析(Line,_,1,_,_式),
write_formatted('show:%t\n',[_式]),
X is _式,
write_formatted('eval:%t\n',[X]).
% 算術式解析/5 他の定義は ｽﾚﾘﾝｸ(tech板:3番) 参照
11:デフォルトの名無しさん
09/12/22 14:16:58
ｽﾚﾘﾝｸ(tech板:365番)
# [1] 授業単元：初級プログラミング
# [2] 問題文(含コード&リンク)：マインスイーパーを作ってください。
# ・縦の列はABC...で、横の列は123...で表示し、座標を繰り返し入力する
# ・枡の大きさは自由である（難易度ごとに大きさを選べる等要工夫）
# ・地雷の位置は毎回ランダムであること
# ・指定（入力）した座標には周囲の地雷の数を表示させる
# ・地雷のある座標を入力するか、全ての安置を入力することでクリアとする
# ・その他、工夫等が見られると加点
12:デフォルトの名無しさん
09/12/22 14:44:32
ｽﾚﾘﾝｸ(tech板:353番)
# [1] 授業単元：基礎プログラミング講義
# [2] 問題文(含コード&リンク)：以下の処理はサブ関数で作成する。数値(n)を反転した値を表示せよ。123→321
#
13:デフォルトの名無しさん
09/12/22 14:49:40
>>12
% Prolog
'数値(n)を反転した値を表示' :-
get_integer(N),
'数値(n)を反転する'(N,N2),
write_formatted('%t\n',[M]).
'数値(n)を反転する'(N,N1) :-
number_chars(N,Chars1),
reverse(Chars1,Chars2),
number_chars(N1,Chars2).
14:デフォルトの名無しさん
09/12/22 15:57:49
>>9
% Prolog 一番基本的なもの。
有向グラフ(1,2,50).
有向グラフ(1,3,80).
有向グラフ(2,4,15).
有向グラフ(2,3,20).
有向グラフ(4,5,30).
有向グラフ(3,4,10).
有向グラフ(3,5,15).
有向グラフの最短経路(_頂点1,_頂点2,_最短距離,_最短経路) :-
findmin([_距離,_経路],有向グラフの距離と経路(_出発点,_終点,_距離,_経路),[_
最短距離,_最短経路]).
有向グラフの距離と経路(_頂点,_頂点,0,[_頂点]) :- !.
有向グラフの距離と経路(_頂点1,_頂点2,_距離,[_頂点1|R]) :-
有向グラフ(_頂点1,_頂点3,_距離1),
有向グラフの距離と経路(_頂点3,_頂点2,_距離2,R),
_距離 is _距離2 + _距離1.
15:デフォルトの名無しさん
09/12/23 02:04:11
ｽﾚﾘﾝｸ(tech板:388番)
# [1] 授業単元：計算機入門及び演習
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(ime.nu)
# URLﾘﾝｸ(prolog.asia)
16:デフォルトの名無しさん
09/12/23 03:34:55
>>15
% Prolog
入力したデータセットを一枚交換して合計が一致する組をすべて示す(AL,BL,A,B) :-
データセットの入力(N,M,AL,BL),
一枚ずつ全てを交換してみる(N,M,AL,BL,A,B).
データセットの入力(N,M,AL,BL) :- get_split_line([' '],[N,M]),\+((N=0,M=0)),'Aの入力'(N,AL),'Bの入力'(M,BL),!.
'Aの入力'(N,AL) :- findall(A,(for(1,_,N),get_integer(A)),AL).
'Bの入力'(M,AL) :- findall(B,(for(1,_,M),get_integer(B)),BL).
一枚ずつ全てを交換してみる(0,M,AL,BL,_,_) :- !,fail.
一枚ずつ全てを交換してみる(N,M,AL,BL,A,B) :-
ならびの回転(左方向,1,AL,[A|R1]),
交換して合計が一致する(M,BL,A,B).
一枚ずつ全てを交換してみる(N,M,AL,BL,A,B) :-
ならびの回転(左方向,1,AL,AL2),
N1 is N - 1,
一枚ずつ全てを交換してみる(N1,M,AL2,BL,A,B).
交換して合計が一致する(0,[A|R1],[B|R2],A,B) :- !,fail.
交換して合計が一致する(M,[A|R1],[B|R2],A,B) :- sum([B|R1],Sum), sum([A|R2],Sum).
交換して合計が一致する(M,[A|R1],[B|R2],A,B) :-
ならびの回転(左方向,1,BL,BL2),
M1 is M - 1,
交換して合計が一致する(M1,[A|R1],BL2,A,B).
17:デフォルトの名無しさん
09/12/23 03:39:42
>>6
% Prolog (その二) Prolog-KABA風にやってみる。まだまだ続く。
e_do(11,P1,P2,B1,B2,K1,K2,no) :- e_kill(B1,B2,K1,K2),P2 is P1 - 1,e_disp(P2,B2),!.
e_do(1,P1,Tol,B1,B1,K1,K1,no) :- e_tol(P1,Tol),e_jump(Tol),e_disp(Tol,B1),!.
e_do(5,P1,Eol,B1,B1,K1,K1,no) :- e_eol(P1,Eol),e_jump(Eol),e_disp(Eol,B1),!.
e_do(4,P1,P2,B1,B2,K1,K1,no) :- e_delete(1,P1,B1,B2),e_disp(P2,B1),!.
e_do(8,P1,P2,B1,B2,K1,K1,no) :- P2 is P-1,e_jump(P2),e_delete(1,P2,B1,B2),e_disp(P2),!.
e_do(6,P1,P2,B1,B1,K1,K2,no) :- P2 is P+1,e_disp(P2,B1),!.
18:17
09/12/23 04:08:35
>>6 は行エディタを指定しているらしいけれど、どうせやるなら、Emacs風にいきたいｗ
19:デフォルトの名無しさん
09/12/23 04:11:57
ｽﾚﾘﾝｸ(tech板:635番)
# 【 課題 】コマンドラインから数値を受け取り、その数値の因数を全て表示するプログラムを完成させなさい。
# 【 形態 】1. Javaアプリケーション(main()で開始)
20:デフォルトの名無しさん
09/12/23 04:23:00
>>19
% Prolog
program :-
user_parameters([A]),
atom_to_term(A,N,_),
N2 is N // 2,
findall([M,D],(for(1,M,N2),0 is N mod M,D is N // M),L),
因数の表示(N,L),
halt.
因数の表示(_,[]).
因数の表示(N,[[M,D]|R]) :-
write_formatted('%t = %t * %t\n',[N,M,D]),
因数の表示(N,R).
21:デフォルトの名無しさん
09/12/23 05:18:44
このスレのPrologの回答アーカイブ URLﾘﾝｸ(nojiriko.asia) は
落雷事故以来停止していますが、来週に復旧する予定です。今は雪が
積もってしまって、少々ラッセルしないとたどり着けないので一週間先
に延ばしました。
22:デフォルトの名無しさん
09/12/23 05:25:12
ｽﾚﾘﾝｸ(tech板:52番)
# 【 課題 】和歌について考察する問題。
# 歌 ... こぬ人を待つほの浦の夕凪にやくやもしほの身もこがれつつ (定家)
# これはかなり複雑なうたです。
# 人をまつとは「待つ」であり、「松」です。まつ帆だからです。松の姿に似た帆です。
# もちろん松は浦の背景でもあります。浦は夕凪ですから心は風を「待って」もいます。
# 風はありませんから、待ってもこぬ人なのです。風があの人なのかそれとも帆船なのか
# 微妙です。浦は「浦」であると同時に心の「裏」であり、あの人(風)の気持ちを「占」なふ、
# うらでもあります。
# 「焼くや」(やいているのだろうか)とは、恋に焦がれて身を焼いているのであり、
# やくやもしほとは藻塩(自分)が陽にあぶられ、渇き、焼かれ、煙でいぶされ、さらに
# 煮られ、再び乾かされというような、製塩法の愛の地獄絵であり、身もこがれという
# 言葉には「藻」がここでも含まれています。製塩の煙は夕凪の浦に実際に漂って
# いるのかもしれません。
# 以上のような、この歌に含まれる語とそれからくる連想をプログラムで表現しなさい。
23:デフォルトの名無しさん
09/12/23 05:30:37
ｽﾚﾘﾝｸ(tech板:177番)
# [1] 授業単元： コンピュータプログラミング
# [2] 問題文(含コード&リンク)
# １）f(x,y)=dy/dx=-4(x-1)y,y(0)=e^-2の一階微分方程式についてオイラーの方法で数値解を求めるプログラムを作成せよ。
# ２）dy/dx=f(x,y)=1-y,y(0)=0
# dy/dx=f(x,y)=y(1-y),y(0)=0.01
# dy/dx=f(x,y)=2yx,y(0)=1
# の数値解をオイラー法によって求めよ。
#
24:デフォルトの名無しさん
09/12/23 05:32:24
ｽﾚﾘﾝｸ(tech板:112番)
# 授業単元：アルゴリズムとデータ構造
# [2] 問題文(含コード&リンク)：
# ポーカーゲーム（の一部）をC言語にて作成する。
#
# ポーカーゲーム（の一部）は以下の条件を満足させてください。
#
# カードのシャッフルを行い、プレイヤ、ディーラにそれぞれ5枚ずつカードを配る。
# プレイヤは配られたカードの中から交換するものを選択できるようにする。
# ディーラ側の選択ルーチンはダミーの関数（たとえば全部交換、交換しない等）を用意すれば十分です。
# プレイヤ、ディーラそれぞれの役を判定して勝敗を表示する。
#
# 表示、カードの選択は標準入出力を利用してください。
#
25:デフォルトの名無しさん
09/12/23 05:37:08
URLﾘﾝｸ(sum2cha.blogpico.com) レス番号606
[1] 授業単元： プログラミング
[2] 問題文(含コード&リンク)：
# ３．以下のプログラムを作成
# ３ｘ３マスのマルバツゲームのボードを作成
# ○側と×側が交互に2次元座標上の位置を入力
# 入力後、毎回ボードを表示する
# たて、よこ、斜めのいずれかに○か×が3つ並んだ
# 時点でプログラムを終了
26:デフォルトの名無しさん
09/12/23 05:38:27
ｽﾚﾘﾝｸ(tech板:596番)
# [1] 授業単元：
# アルゴリズムとプログラミング
# [2] 問題文(含コード&リンク)：
# 下のアドレスのプログラムに追加して、ダイクストラ法のプログラムを完成させてください
# URLﾘﾝｸ(ime.nu)
# プログラムに使用するデータファイル↓
# URLﾘﾝｸ(ime.nu)
# 次のプログラムに、以下の2～6の処理を追加してダイクストラのプログラムを完成させてください。
# 2、送信ノードに接続されている全てのノードについて、接続リンクの長さを送信ノードからの距離とする。
# 3、送信ノードに接続されている全てのノードのうち、最短の距離を持つノードを確定とする
# 4、確定したノードに接続されている全てのノードについて、送信ノードからこの確定ノードを経由して到達する経路の距離を計算し、これまでの距離より短ければ更新する
# 5、まだ確定していないノードのうち、送信ノードからの距離が最短のノードを確定とする
# 6、全てのノードが確定するまで4,5の処理を繰り返す。
27:デフォルトの名無しさん
09/12/23 05:44:54
ｽﾚﾘﾝｸ(tech板:209番)
# [1] 授業単元：Cプログラミング入門
# [2] 問題文(含コード&リンク)：
# 五目並べの作成
# 主に終了判定関数、コンピューターによる着手の生成関数の作成
# サンプルプログラム：URLﾘﾝｸ(ime.nu)
#
28:デフォルトの名無しさん
09/12/23 05:46:32
#【 課題 】
#「0.2+0.4+0.6+・・・・・+10.0の計算を行うプログラムを作成せよ。」と
# いう課題文が与えられたとする。
# この文を、公差数列 0.2,0.4,0.6...10.0の和を計算する課題であると認識する
# ことができる最小限のプログラムを示せ。
29:デフォルトの名無しさん
09/12/23 05:51:43
ｽﾚﾘﾝｸ(tech板:12番)
# 実際の問題を簡単にした問題例です。
#
# 流れ：
# キャラクタがバイトをして財布がいっぱいになったら銀行へ行く
# ということを目標金額まで繰り返し、到達したらその金がなくなるまで
# 家でごろ寝し、なくなったらまた働く
#
# キャラクタは
# ・バイトをする ： 手持ちが１増える
# ・銀行で貯金をする ： 手持ちを０にし、貯金が１増える
# ・家で寝る ： 貯金が１減る
# の状態を取ります。
# 財布の許容量は３、目標貯金額は５とします。
#
30:デフォルトの名無しさん
09/12/23 05:56:02
ｽﾚﾘﾝｸ(tech板:434番)
# ５０人のクラス（男子３５人）から５人の委員をランダムに選ぶ。このとき選ばれた委員の中に男３人、女２人が入る確率をBASICで求めよ。
#
31:デフォルトの名無しさん
09/12/23 06:01:59
# <<課題>
ｽﾚﾘﾝｸ(tech板:364番)
# [1] 授業単元： プログラミング実験
# [2] 問題文(含コード&リンク)：
URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
#【課題１】
#
# 完全列挙法（力ずく法）を用いて巡回セールスマン問題（TSP） を解くプログラムを作成せよ。
# （※1 ： 適当に出発点を設定し、そこから出発するすべての閉路を求めその中で最短のものを選択、出力する）
# （※2 ： 都市数は外部から入力するものとする）
# （注意 ： プログラムを動かすとき決して大きな都市数を与えてはならない）
32:デフォルトの名無しさん
09/12/23 06:03:02
#【課題２】
#
# 順次生成・比較法により、閉路を順次生成し、これまでの最短経路長をもった閉路と閉路長を比較することによってTPSを解くプログラムを作成せよ。
# （※1 ： 適当に出発点を定め、そこを出発点とする閉路をひとつ生成し、それをとりあえず最短閉路とする）
# （※2 ： 新たに経色を生成し、その閉路長をその時点での最短閉路長と比較し、短い方を最短閉路とする）
# （※3 ： 上記のことを全ての閉路について繰り返し、最短閉路を求める）
33:デフォルトの名無しさん
09/12/23 07:04:58
ｽﾚﾘﾝｸ(tech板:923番)
# [1] 授業単元： プログラミング
# [2] 問題文：ナップサック問題のプログラムを利用し、グラフ彩色問題に当てはめる（色は4色で）
34:デフォルトの名無しさん
09/12/23 07:09:09
ｽﾚﾘﾝｸ(tech板:400番)
# [1]授業単元：プログラミング
# [2] 課題：いわゆる15パズル。
# 01 02 03 04
# 05 06 07 08
# 09 10 11 12
# 13 14 15
# のように配置された４x４のパネルを乱数を用いてシャフルする。シャフル時のパネルの動かし方は
# ゲーム進行中のパネルを動かすやり方と同じルールが適用される。
# パネル座標値(R,C) を入力させ (Rは行 Cは列 それぞれ1から４の値を取る)
# 対応するパネルが空白でないパネルで空白と隣接する場合はそこに移動させる方法で
# ゲームを進行させ、最初の状態に戻った場合（完成）は「暇人さんご苦労様」と出力して終了。
# 完成するまで入力と移動を繰り返す。無効なマスの指定は「そんなパネル動かせへん」と警告を表示すること。
# 盤面状況はコンソール出力とし、動かした回数と共に入力の直前に随時、及びゲーム
終了前に表示すること。
35:デフォルトの名無しさん
09/12/23 17:44:52
ｽﾚﾘﾝｸ(tech板:405番)
# [1]授業単元：プログラミング
# [2] 課題：覆面算
# URLﾘﾝｸ(www.iba.k.u-tokyo.ac.jp)
#
# osaka + kyoto = tokyo
#
# 覆面算を解く。
# 同じ文字は同じ数字を、違う文字は異なる数字を表す。
# 先頭の文字が０にならないことに注意する。
36:デフォルトの名無しさん
09/12/23 18:35:26
>>35 Haskellで
import Control.Monad.State
import qualified Data.Set as S
import qualified Data.Map as M
type Proc = StateT (M.Map Char Int, S.Set Int) []
solve :: [String]
solve = flip evalStateT (M.empty, S.fromList [0..9]) $ do
osaka <- int "osaka"
kyoto <- int "kyoto"
tokyo <- int "tokyo"
guard $ osaka + kyoto == tokyo
return $ show osaka ++ " + " ++ show kyoto ++ " = " ++ show tokyo
main = putStr $ unlines solve
int :: String -> Proc Int
int xs = do
(d:ds) <- mapM digit xs
guard $ d /= 0
return $ foldl (\n c -> n * 10 + c) 0 (d:ds)
digit :: Char -> Proc Int
digit c = do
(m, s) <- get
case M.lookup c m of
Just d -> return d
Nothing -> do
d <- lift $ S.toList s
put (M.insert c d m, S.delete d s)
return d
37:デフォルトの名無しさん
09/12/24 00:30:41
>>35
% Prolog 汎用性の全くない定義。
覆面算_35(O,S,A,K,Y,T) :-
加算表(A,O,K1,O),
(K1=0,加算表(K,T,K2,Y);K1=1,加算表の一(K,T,K2,Y)),
(K2=0,加算表(A,O,K3,K);K2=1,加算表の一(A,O,K3,K)),
(K3=0,加算表(S,Y,K4,O);K3=1,加算表の一(S,Y,K4,O)),
(K4=0,加算表(O,K,0,T);K4=1,加算表の一(O,K,0,T)),
\+(O=S),\+(O=A),\+(O=K),\+(O=Y),\+(O=T),
\+(S=A),\+(S=K),\+(S=Y),\+(S=T),
\+(A=K),\+(A=Y),\+(A=T),
\+(K=Y),\+(K=T),
\+(Y=T).
加算表の一(A,B,C,D) :- 加算表(1,A,K,E),加算表(E,B,C,D).
加算表定義 :-
for(0,M,9),
for(0,N,9),
D is (M+N) // 10,
Mod is (M+N) mod 10,
P=加算表(M,N,D,Mod),
assertz(P),
N=9,
M=9.
:- 加算表定義.
38:デフォルトの名無しさん
09/12/24 04:47:02
ｽﾚﾘﾝｸ(tech板:421番)
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：
# 問１ 辺の和が3以上1000以下の直角三角形の個数を求めよ。
# 各辺の長さは自然数で、ある直角三角形の各辺を定数倍したものもカウントすることとする。
# 問２ 問1 で検索した直角三角形のうち、最も面積の大きい直角三角形の３辺の長さ
#
39:デフォルトの名無しさん
09/12/24 04:58:45
ｽﾚﾘﾝｸ(tech板:273番)
# [1] 授業単元： 数理計画法
# [2] 問題文(含コード&リンク)： シンプレックス法のプログラムを作成せよ。
40:デフォルトの名無しさん
09/12/24 06:56:20
辺の和が3以上1000以下の直角三角形の個数を求める(_個数) :-
Max1 is truncate(sqrt(1000)),
findall(N2,(for(1,N,Max1),N2 is truncate(N*N)),L1),
count((組み合わせ(L1,3,[A,B,C]),C is A+B,C>=3,C=<1000),_個数).
辺の和が3以上1000以下の直角三角形のうち、最も面積の大きい直角三角形の３辺の長さ(_短辺1,_短辺2,_長辺) :-
Max1 is truncate(sqrt(1000)),
findall(N2,(for(1,N,Max1),N2 is truncate(N*N)),L1),
findmax([C,A,B],(組み合わせ(L1,3,[A,B,C]),C is A+B,C>=3,C=<1000),[_短辺1,_短辺2,_長辺]).
41:40
09/12/24 07:17:15
>>38
% Prolog
42:デフォルトの名無しさん
09/12/24 09:07:33
>>40 間違い。これは辺の二乗だったね。
% Prolog
辺の和が3以上1000以下の直角三角形のうち、最も面積の大きい直角三角形の３辺の長さを求める(_辺1,_辺2,_辺3) :-
Max1 is truncate(sqrt(1000)),
findall(N2,(for(1,N,Max1),N2 is truncate(N*N)),L1),
findmax([C,A,B],(組み合わせ(L1,3,[A,B,C]),C is A+B,C>=3,C=<1000),[A,B,C]),
_辺1 is truncate(sqrt(A)),
_辺2 is truncate(sqrt(B)),
_辺3 is truncate(sqrt(C)),!.
43:デフォルトの名無しさん
09/12/24 09:17:34
>>40 益々、間違えた。というより最初から問題を読み違えてる。
% Prolog
辺の和が3以上1000以下の直角三角形のうち、最も面積の大きい直角三角形の３辺の長さを求める(_辺1,_辺2,_辺3) :-
Max1 is truncate(sqrt(1000)),
findall(N2,(for(1,N,Max1),N2 is truncate(N*N)),L1),
findmax([S,A1,B1,C1],(組み合わせ(L1,3,[A,B,C]),C is A+B,C>=3,C=<1000,A1 is truncate(sqrt(A)),B1 is truncate(sqrt(B)),C1 is trucate(sqrt(C)),S is A1 * B1 / 2)),[S1,_辺1,_辺2,_辺3]),!.
44:40,41,42,43
09/12/24 10:09:01
辺の和が3以上1000以下の直角三角形という最初の部分が正しく書けていなかったので
後で両方とも書き直します。
45:デフォルトの名無しさん
09/12/24 11:01:39
>>40
の方針でやると、半日経っても答えは返らないのでは。Prologではね
46:デフォルトの名無しさん
09/12/24 15:14:15
>>38
% Prolog これで動くか？
辺の和が3以上1000以下の直角三角形の個数を求める(Min,Max,_個数) :-
辺の和がMin以上Max以下の直角三角形の個数を求める(3,1000,_個数).
辺の和がMin以上Max以下の直角三角形の個数を求める(Min,Max,_個数) :-
findall(N2,(for(1,N,Max),N2 is truncate(N*N)),L1),
count((for(1,N1,Max),辺の和がM以下の直角三角形(N1,Min,Max,L1,Sum)),_個数).
辺の和がM以下の直角三角形(N,Min,Max,L1,Sum) :-
N2 is N * N,
member(A,L1),
U is truncate(A + N2),
member(U,L1),
Sum is truncate(sqrt(A) + sqrt(U) + N),
Sum >= Min,
Sum =< Max.
47:デフォルトの名無しさん
09/12/24 15:19:58
>>46
述語名とそれへの副目標を
辺の和がM以下の直角三角形 -> 辺の和がMin以上Max以下の直角三角形
に変更してください。
48:デフォルトの名無しさん
09/12/24 15:59:46
>>38
% Prolog
辺の和が3以上1000以下の直角三角形のうち、最も面積の大きい直角三角形の３辺の長さを求める(Min,Max,_辺1,_辺2,_辺3) :-
辺の和がMin以上Max以下の直角三角形のうち、最も面積の大きい直角三角形の３辺の長さを求める(3,1000,_辺1,_辺2,_辺3).
辺の和がMin以上Max以下の直角三角形のうち、最も面積の大きい直角三角形の３辺の長さを求める(Min,Max,_辺1,_辺2,_辺3) :-
findall(N2,(for(1,N,Max),N2 is truncate(N*N)),L1),
findmax([_面積,A,B,C],(for(1,N1,Max),辺の和がMin以上Max以下の直角三角形の面積(N1,Min,Max,L1,_面積,A,B,C)),[_,_辺1,_辺2,_辺3]).
辺の和がMin以上Max以下の直角三角形の面積(N,Min,Max,L1,_面積,A1,N,B1) :-
N2 is N * N,
member(A,L1),
U is truncate(A + N2),
member(U,L1),
A1 is sqrt(A),
C is sqrt(U),
Sum is truncate(A1 + N + C),
Sum >= Min,
Sum =< Max,
_面積 is A1 * N / 2.
49:デフォルトの名無しさん
09/12/24 16:07:40
# [1] 授業単元：Prolog初歩
# [2] 課題：以下の情報を述語として定義しなさい。
#
# 賞味期限
# 16…予約はじまる
# 22…予約最盛期
# 23…我慢できない
# 24…最盛期
# 25…ロスタイム
# 26…半額
# 27…更に半額
# 28…返品
# 29…廃棄処分
# 30…廃棄処分逃れてもカビ
#
50:デフォルトの名無しさん
09/12/24 16:13:16
>>49
% Prolog
:- op(500,xfx,…).
賞味期限(16…予約はじまる).
賞味期限(22…予約最盛期).
賞味期限(23…我慢できない).
賞味期限(24…最盛期).
賞味期限(25…ロスタイム).
賞味期限(26…半額).
賞味期限(27…更に半額).
賞味期限(28…返品).
賞味期限(29…廃棄処分).
賞味期限(30…廃棄処分逃れてもカビ).
51:デフォルトの名無しさん
09/12/24 16:50:47
>>49
% Prolog
賞味期限(16,予約はじまる).
賞味期限(22,予約最盛期).
賞味期限(23,我慢できない).
賞味期限(24,最盛期).
賞味期限(25,ロスタイム).
賞味期限(26,半額).
賞味期限(27,更に半額).
賞味期限(28,返品).
賞味期限(29,廃棄処分).
賞味期限(30,廃棄処分逃れてもカビ).
52:デフォルトの名無しさん
09/12/24 17:11:44
>>22
% Prolog こんなところから。
重層的な対象(待つ,人).
重層的な対象(待つ,風).
重層的な対象(焼く,身).
重層的な対象(焼く,藻).
形態的近似(松,帆).
形態的近似(帆,松).
音通(待つ,松).
音通(松,待つ).
音通(裏,占).
音通(占,裏).
音通(裏,浦).
音通(浦,裏).
音通(占,浦).
音通(浦,占).
連想(X,Y) :- 音通(X,Y).
連想(X,Y) :- 形態的近似(X,Y).
連想(X,Y) :- 連想(X,Z),連想(Z,Y).
53:デフォルトの名無しさん
09/12/24 18:12:47
>>30
% Prolog
'５０人のクラス（男子３５人）から５人の委員をランダムに選ぶ。このとき選ばれた委員の中に男３人、女２人が入る確率'(_確率) :-
A is 50 * 49 * 48 * 47 * 46,
B is 35 * 34 * 33 * 15 * 14,
階乗(5,C),
階乗(3,D),
階乗(2,E),
F is C / ( D * E),
_確率 is (B * F) / A.
54:デフォルトの名無しさん
09/12/24 18:29:49
ｽﾚﾘﾝｸ(tech板:652番)
# 【 課題 】キーボードから文字入力し、":"で文字列分割をし、結果を表示する。
# 文字列分割の際にはsplitメソッドを利用すること。
55:デフォルトの名無しさん
09/12/24 18:52:34
>>54
% Prolog
'キーボードから文字入力し、":"で文字列分割をし、結果を表示する' :-
get_line(Line),
split(Line,[':'],L),
write_formatted('%t\n',[L]).
56:デフォルトの名無しさん
09/12/24 21:44:44
ｽﾚﾘﾝｸ(tech板:431番)
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# 20000～40000までの自然数のうち、数字の9を2個含む素数の個数を調べよ
#
57:デフォルトの名無しさん
09/12/24 22:41:59
>>56
% Prolog
'20000～40000までの自然数のうち、数字の9を2個含む素数の個数'(_個) :-
素数生成(40000,_素数ならび),
count((member(N1,_素数ならび),N1>=20000,数字の9を2個含む(N1)),_個).
数字の9を2個含む(N) :-
number_chars(N,L),
count(member('9',L),2),!.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
素数生成(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).
58:デフォルトの名無しさん
09/12/25 03:29:44
ｽﾚﾘﾝｸ(tech板:439番)
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：
#
# 三角形の「底辺」「高さ」「面積」を表現するために，整数型の2つの変数teihenとtakasaと浮動小数点型(double型)の1つの変数mensekiの，計3つの変数をメンバとしてもつ構造体型sankakuを宣言しよう．
#
# main関数の中で，構造体変数triangle1とtriangle2が次のように定義されているとする．
#
# struct sankaku triangle1 = {2, 8, 0.0};
#
# struct sankaku triangle2 = {3, 6, 0.0};
#
# このとき，以下の式で三角形の面積を計算し，それぞれのメンバ変数mensekiに求めた値を格納しよう．（整数同士の計算結果は必ず整数型の値になってしまうため，「2.0」という小数点付の数で割る計算をすること．そうすると，小数点以下の値まで求められる）
#
# （面積） = (底辺) × (高さ) / 2.0
#
# さらに，格納されたそれぞれの面積の値（triangle1のmensekiとtriangle2のmenseki）を表示するプログラムを作成せよ．（表示の際にはdouble型の値を表示することになるので，printfの" "の中の書き方に注意すること）
59:デフォルトの名無しさん
09/12/25 06:58:36
>>12
使用言語： J
f=:|.&.":
f 56789
98765
1 + f 56789
98766
60:デフォルトの名無しさん
09/12/25 07:00:36
>>30
% Prolog 一般解を試みる。あまりすっきりしない。
'メンバーが男Mn人女Fn人で構成される時、男M人女N人をランダムに取り出す確率'(Mn,Fn,M,N,_確率) :-
メンバー全員は(Mn,Fn,Sn),
Sm is Sn - M - N + 1,
Mm is Mn - M + 1,
Nm is Nn - N + 1,
'男M人女N人の取り出し順序は何通りか'(M,N,_何通り),
'分母はSn*S(n-1)*..*S(m+1)*Smである'(Sn,Sm,_分母),
'分子はMm*M(m-1)*..M(n+1)*M(n)*Fm*F(m-1)..*F(n+1)*Fnに取り出し順序の何通りかを掛けたものである'(Mn,Mm,Fn,Fm,_何通り,_分子),
_確率 is _分子 / _分母.
'分母はSn*S(n-1)*..*S(m+1)*Smである'(Sn,Sm,_分母) :- 階乗(Sn,Sm,_分母),!.
'分子はMm*M(m-1)*..M(n+1)*M(n)*Fm*F(m-1)..*F(n+1)*Fnに取り出し順序の何通りかを掛けたものである'(Mn,Mm,Fn,Fm,_何通り,_分子) :-
階乗(Mn,Mm,A),
階乗(Fn,Fm,B),
_分子 is A * B * _何通り,!.
'男M人女N人の取り出し順序は何通りか'(M,N,_何通り) :-
S is M + N,
階乗(M,M1),
階乗(N,N1),
階乗(S,S1),
_何通り is S1 / ( M1 * N1 ).
61:デフォルトの名無しさん
09/12/25 07:05:28
>>30 つづき。
% Prolog
メンバー全員は(Mn,Fn,Sn) :- Sn is Mn + Fn.
階乗(0,_,1) :- !.
階乗(1,_,1) :- !.
階乗(M1,M,1) :- M1 < M,!.
階乗(N,M,X) :-
N1 is N - 1,
階乗(N1,M,Y),
X is N * Y,
asserta((階乗(N,M,X) :- (!))),!.
62:デフォルトの名無しさん
09/12/25 07:55:10
>>56
PHP
URLﾘﾝｸ(codepad.org)
63:デフォルトの名無しさん
09/12/25 07:58:46
>>56
使用言語： J
+/2=+/"1'9'=":,.p:a+i.(_1&p:40000)-(a=._1&p:20000)
141
64:デフォルトの名無しさん
09/12/25 11:27:52
>>12
使用言語： maxima
(%i36) f(n):=(r:0,while(n>0)do (r:r*10+mod(n,10),n:fix(n/10)),r);
(%i37) f(987654321);
(%o37) 123456789
65:デフォルトの名無しさん
09/12/25 11:57:00
ｽﾚﾘﾝｸ(tech板:442番)
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
#
# ★演習問題３＊
# "izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"の７個の
# 文字列の長さを求めて表示しなさい．ただし，ポインタのボインタを用いること．
#
# (実行結果)
# 6 :izumi
# 5 : kanto
# 4 : Kudo
# 4 : Sato
# 8 : Sugawara
# 6 : Matuda
# 4 : Wada
66:デフォルトの名無しさん
09/12/25 12:04:17
>>65
% Prolog
指定された文字列('"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"').
'"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"の７個の文字列の長さを求めて表示する' :-
指定された文字列(_指定された文字列),
atom_to_term(_指定された文字列,_文字コードならびのならび),
member(Codes,_文字コードならびのならび),
length(Codes,_長さ),
atom_codes(_表示文字列,Codes),
write_formatted('%t:%t\n',[_長さ,_表示文字列]),
fail.
'"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"の７個の文字列の長さを求めて表示する'.
67:デフォルトの名無しさん
09/12/25 12:09:16
>>65
% Prolog
指定された文字列('"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"').
'"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"の７個の文字列の長さを求めて表示する' :-
指定された文字列(_指定された文字列),
split(_指定された文字列,[',','"'],_文字ならびのならび),
member(Chars,_文字ならびのならび),
length(Chars,_長さ),
atom_chars(_表示文字列,Chars),
write_formatted('%t:%t\n',[_長さ,_表示文字列]),
fail.
'"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"の７個の文字列の長さを求めて表示する'.
68:デフォルトの名無しさん
09/12/25 12:15:11
>>65
% Prolog
指定された文字列('"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"').
'"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"の７個の文字列の長さを求めて表示する' :-
指定された文字列(_指定された文字列),
split(_指定された文字列,[',','"'],_文字ならびのならび),
文字列を長さと共に表示する(_文字ならびのならび).
文字列を長さと共に表示する([]) :- !.
文字列を長さと共に表示する([Chars|R]) :-
length(Chars,_長さ),
atom_chars(_表示文字列,Chars),
write_formatted('%t:%t\n',[_長さ,_表示文字列]),
文字列を長さと共に表示する(R).
69:デフォルトの名無しさん
09/12/25 12:17:10
>>68
splitの下の行のインデントが狂いました。
70:デフォルトの名無しさん
09/12/25 12:20:47
そうそう。
インデントはPrologの実行にはまったく関係ありません。
これを習慣にしている人には見易いかなという程度の問題です。
冬休みに入って課題が出ない日がしばらくは続くでしょうね。
71:デフォルトの名無しさん
09/12/25 13:54:28
ｽﾚﾘﾝｸ(tech板:442番)
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
#
# 演習問題1
# 入力されたデーク数に応じた配列を確保し，入力されたデータをその配列に保存し，
それらの和を求めよ.
# (実行結果例)
# データの数は?10
# 1番目のデータを人力してください:1
# 2番目のデータを入力してください:2
# 3番目のデータを入力してください:3
# 4番目のデータを入力してください:4
# 5番目のデータを入力してください:5
# 6番目のデータを人力してください:6
# 7番目のデータを入力してください:7
# 8番目のデータを入力してください:8
# 9番目のデータを入力してください:9
# 10番目のデータを入力してください:10
# 和＝55
72:デフォルトの名無しさん
09/12/25 14:00:34
>>71
% Prolog
入力されたデーク数に応じた配列を確保し，入力されたデータをその配列に保存し，それらの和を求める :-
催促付き整数入力('データの数は?',N),
findsum(X,(for(1,M,N),催促付き整数入力('%t番目のデータを入力してください:',[M],X)),_和),
write_formatted('和=%t\n',[_和]).
73:デフォルトの名無しさん
09/12/25 14:40:46
>>71
% Prolog >>72はズルしてるのでもうひとつ。配列はリストと読み替えてください。
入力されたデーク数に応じた配列を確保し，入力されたデータをその配列に保存し，それらの和を求める :-
催促付き整数入力('データの数は?',N),
入力されたデーク数に応じた配列を確保し(N,L),
入力されたデータをその配列に保存し、([_],L),
それらの和を求める(L,_和),
write_formatted('%\n',[_和]).
入力されたデーク数に応じた配列を確保し(N,L) :- length(L,N).
入力されたデータをその配列に保存し、(_,[]) :- !.
入力されたデータをその配列に保存し、(L,[N|R]) :-
length(L,M),
催促付き整数入力('%t番目のデータを入力してください:',[M],N),
入力されたデータをその配列に保存し、([_|L],R).
それらの和を求める([],0).
それらの和を求める([N|R],X) :- それらの和を求める(R,Y),X is N + Y.
74:デフォルトの名無しさん
09/12/25 15:26:57
>>65
使用言語： J
(,.~#&.>)'izumi';'Kanto';'Kudo';'Sato';'Sugawara';'Matuda';'Wada'
+-+--------+
|5|izumi |
+-+--------+
|5|Kanto |
+-+--------+
|4|Kudo |
+-+--------+
|4|Sato |
+-+--------+
|8|Sugawara|
+-+--------+
|6|Matuda |
+-+--------+
|4|Wada |
+-+--------+
75:デフォルトの名無しさん
09/12/25 16:11:50
ｽﾚﾘﾝｸ(tech板:314番)
# [1] 授業単元： プログラミング
#
# [2] 問題文(含コード&リンク)：
# 遺伝的アルゴリズムを基にTSP(巡回セールスマン問題)の近似解法のプログラムを書け。
# ただし都市数の数は5～6個程度で、都市間の距離は自由に決めてよいとする。
#
76:デフォルトの名無しさん
09/12/25 16:12:52
# [1] 授業単元： C言語
# [2] 問題文(含コード&リンク)：
# 巡回セールスマン問題をNearest Addition法で解くプログラムを作成せよ。
# Nearest Addition法とは
# (1)１つの都市からなる長さ０の部分閉路Ｔをひとつ作成する
# (2)現在の部分閉路Ｔが全ての都市を含むならば、それが解
# (3)そうでないならば、Ｔに含まれる都市jとＴに含まれない都市kの組み合わせで、
# jとkの間の距離Ｃjk(jkはＣの右下)を最小にするようなものを求める
# (4)(i,j)をＴに含まれるパスとするとき、これを２つのパス(i,k)と(k,j)で置き換える
# (5)以上の(2)～(4)を繰り返す
77:デフォルトの名無しさん
09/12/25 16:19:25
ｽﾚﾘﾝｸ(tech板:157番)
# 【 課題 】URLﾘﾝｸ(rg550.hp.infoseek.co.jp)
# 行列や固有値を扱う数値計算の課題です。
#
# 逆反復法(逆べき乗法)とLU分解を用いて、固有値問題を解く。
# 与える行列Aはn*n行列で、4*4や5*5でも、自由に数値を定めて良い。
# 1)一番小さい固有値に対応する固有ベクトルsVを求める。
# 2)二番目に小さい固有値に対応する固有ベクトルVを求める。
# double [] gauss(double[][] A , double[] b)
# のような形を作り、
# LU分解のメソッドを逆べき乗法のメソッドでコールするようにする。
# （あらかじめAをLU分解しておき、連立一次方程式を解いて反復するため）
# 解はdouble[]の形のベクトルで、for文の中でSystem.out.printを回して出力。
# ここまでが最低ライン。可能ならば
# ベクトル集合V=(v1,v2,....vn)において、
# Vi < 0 のときは-1のラベルを、
# Vi >=0 のときは 1のラベルをつける。
78:デフォルトの名無しさん
09/12/25 16:29:29
URLﾘﾝｸ(chomework.sakura.ne.jp) (レス番号194)
# [1] 授業単元： 情報処理
# [2] 問題文(含コード&リンク)：ファイルからデータ(迷路空間)を読み込む処理と構造体・リストを用いた、
# 迷路空間を作成せよ。
# 読み込むデータは右図のような形式であり、 ******
# 各記号は次の意味を持つものとする。 *8000*
# * : 壁 ****0*
# 0 : 通路 **000*
# 8 : 通路 & スタート *90*0*
# 9 : 通路 & ゴール ******
# 迷路空間は、必ず長方形であることを前提とする。
# そして、再帰を用いた迷路空間の探索プログラムも作成せよ。
# 最短経路と後戻りした記録付き経路のどちらを表示しても構わないが両方表示した方がポイント高し
79:デフォルトの名無しさん
09/12/25 16:51:53
ｽﾚﾘﾝｸ(tech板:384番)
# [1] 授業単元：ヒューマンインターフェイス
# [2] 問題文(含コード&リンク)：少なくとも以下の英文を日本語分に翻訳できるプログラムを作成せよ
# 1.The boy beats a dog with a stick.
# 2.Every boy loves a dog .
# 3.The dog is loved by every boy.
# 4.The boy saw a girl with a telescope.
# 5.The boy saw a girl with a dog.
# 6.The boy cut a stick with a saw.
80:デフォルトの名無しさん
09/12/25 17:16:22
ｽﾚﾘﾝｸ(tech板:389番)
# [1] 授業単元：C言語実習
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
# ■問題１
# 任意の画素数をもつ画像をアフィン変換（移動，拡大縮小，回転，せん断）するプログラムを作成せよ．
# 変換後の画像は画像ファイルとして保存すること．
#
# ■問題２
# 問題１で作成したプログラムに，逆アフィン変換を行う機能を追加せよ。
# そして，アフィン変換，逆アフィン変換（最近傍法），逆アフィン変換（線形補間法）での結果に違いがあることを確認せよ．
#
# ※逆アフィン変換とは，出力画像の座標値（X, Y）に対して逆変換を行うことで，入力画像の座標値（x, y）を求めるものである．
#
# （注意）
# 変換後の座標値が，配列のサイズ（縦と横）を越えるかどうかを確認し，超える場合は適切な例外処理を行うこと．
81:デフォルトの名無しさん
09/12/25 17:25:52
ｽﾚﾘﾝｸ(tech板:81番)
# [1] 授業単元： C++
# [2] 問題文(含コード&リンク)：公開鍵と秘密鍵を作り、これらを使い暗号化と復号化を行うプログラムを書け。（RSA暗号）
# [4] 期限： 2009/11/17朝まで
# 暗号化と復号化の手順は
# URLﾘﾝｸ(ime.nu)
#
82:デフォルトの名無しさん
09/12/25 17:55:57
宿題スレ難問集の様相を呈してきました。
HaskellやOCamlそして、Scalaなどの使い手がバッサバッサとプログラミングして
くれるといいんだがな。
83:デフォルトの名無しさん
09/12/25 19:22:44
>>38 問1
使用言語： 十進BASIC
LET st= TIME
LET r=0
FOR a=1 TO 1000
LET aa=a*a
FOR b=a TO 1000
LET bb=b*b
FOR c=1 TO 1000-a-b
IF aa+bb=c*c THEN LET r=r+1
NEXT C
NEXT B
NEXT A
PRINT r
PRINT TIME-st;" sec (CeleronM 1.46GHz)"
END
実行結果
325
10.5 sec (CeleronM 1.46GHz)
84:デフォルトの名無しさん
09/12/25 19:59:17
>>38 問2
使用言語： 十進BASIC
LET st= TIME
LET maxs=0
LET maxa=0
LET maxb=0
LET maxc=0
FOR a=1 TO 1000
LET aa=a*a
FOR b=a TO 1000
LET ab=aa+b*b
FOR c=1 TO 1000-a-b
IF ab=c*c THEN
LET ab2=a*b/2
IF ab2>maxs THEN
LET maxs=ab2
LET maxa=a
LET maxb=b
LET maxc=c
END IF
END IF
NEXT C
NEXT B
NEXT A
PRINT maxa;maxb;maxc
PRINT TIME-st;" sec (CeleronM 1.46GHz)"
END
実行結果
264 315 411
8.89999999999418 sec (CeleronM 1.46GHz)
85:デフォルトの名無しさん
09/12/25 21:49:13
ｽﾚﾘﾝｸ(tech板:442番)
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
#
# ★演習問題５
# 人力されたクラスの人数と科目の数に応じた配列を確保し，入力されたデータをその配列に保存し，科目ごとの和を求めよ。
# 例として，人数を３とし，科目数を３とした場合，それぞれの科日数に対する点数を読み込み，結果が正しく出力されるかを確認せよ。
# (時間があれば，人数や科日数を適当に変えて，動作を確認せよ)
# （実行結果例）
# クラスの人数は?4
# 科目の数は?3
# 1番目の学生
# 85
# 74
# 63
# < 中略>
# 各科目の和は以下の通りです
# 222
# 213
# 269
86:デフォルトの名無しさん
09/12/25 22:26:12
>>85
% Prolog ここでも配列はリストと読み替えてください
'人力されたクラスの人数と科目の数に応じた配列を確保し，入力されたデータをその配列に保存し，科目ごとの和を求めよ' :-
人力されたクラスの人数と科目の数に(_クラスの人数,_科目の数),
応じた配列を確保し(_クラスの人数,_科目の数,L),
データを入力する([_],L),
科目ごとの和を求める(_和ならび),
和ならびを表示する(_和ならび).
人力されたクラスの人数と科目の数に(_クラスの人数,_科目の数) :- 催促付き整数入力('クラスの人数は ?',_クラスの人数),催促付き整数入力('科目の数は ?',_科目の数),!.
応じた配列を確保し(_クラスの人数,_科目の数,L) :- length(L,_クラスの人数),findall(L1,(member(L1,L),length(L1,_科目の数)),L).
データを入力する(_,[]) :- !.
データを入力する(NL,[L|R]) :-
length(NL,N),write_formatted('%t番目の学生は ?',[N]),
findall(A,(member(A,L),get_integer(A)),L),
データを入力する([_|NL],R).
科目ごとの合計を求める(L,_和ならび) :- 行列の転置(L,L1),findall(S,(member(L2,L1),sum(L2,S)),_和ならび).
和ならびを表示する([]) :- !.
和ならびを表示する([_和|R]) :- write_formatted('%t\n',[_和]),和ならびを表示する(R).
87:デフォルトの名無しさん
09/12/26 00:00:33
>>12 使用言語： 十進BASIC 計算だけで反転するのと文字列に変換して反転するのを比べてみた。
FUNCTION f1(n)
LET r=0
DO WHILE n>0
LET r=r*10+MOD(n,10)
LET n=INT(n/10)
LOOP
LET f1=r
END FUNCTION
FUNCTION f2(n)
LET s1$=STR$(n)
LET s2$=s1$
LET b=LEN(s1$)
FOR i=1 TO b
LET s2$(b-i+1:b-i+1)=s1$(i:i)
NEXT I
LET f2=VAL(s2$)
END FUNCTION
LET st=TIME
FOR i=1 TO 1000000
LET a=f1(123456789)
NEXT I
PRINT "f1";TIME -st;"sec"
LET st=TIME
FOR j=1 TO 1000000
LET a=f2(123456789)
NEXT J
PRINT "f2";TIME -st;"sec"
END
f1 3.63000000000466 sec
f2 24.5599999999977 sec
88:デフォルトの名無しさん
09/12/26 05:18:54
ｽﾚﾘﾝｸ(tech板:464番)
# 1：単元名 C言語
# 2：問題文
# 元金、単利と複利の利率に対して、次のものを求めるプログラムを作成しなさい。
#
# 30年後の残高。
# 30年以内に複利の残高は単利の残高を上回るか。
# 上回るならば何年後か。
89:デフォルトの名無しさん
09/12/26 06:17:05
>>56 使用言語： 十進BASIC
FUNCTION isprime(n)
LET isprime=0
IF MOD(n,2)=0 THEN
IF n=2 THEN LET isprime=1
ELSE
FOR i=3 TO SQR(n) STEP 2
IF MOD(n,i)=0 THEN EXIT FOR
NEXT i
IF i>SQR(n) THEN LET isprime=1
END IF
END FUNCTION
FUNCTION is99(n)
LET is99=0
LET r=0
DO WHILE n>0
IF MOD(n,10)=9 THEN
LET r=r+1
IF r>2 THEN EXIT DO
END IF
LET n=INT(n/10)
LOOP
IF r=2 THEN LET is99=1
END FUNCTION
LET s=0
FOR j=20000 TO 40000
IF isprime(j)=1 AND is99(j)=1 THEN LET s=s+1
NEXT J
PRINT s
END ! 実行結果 141
90:デフォルトの名無しさん
09/12/26 06:36:52
'30年後の残高'(_単利か福利か,_元金,_利息,_30年後の残高) :-
findall(_残高1,残高(_単利か複利か,30,_元金,_利率,_,_,_残高1),_残高ならび),
last(_残高ならび,_30年後の残高).
残高(_単利か複利か,_期間,_元金,_利率,_年目,_利息,_残高) :-
length(L,_期間),
残高(_単利か複利か,L,[_],_元金,_元金,_利率,_年目,_利息,_残高).
残高(単利,[_|R1],L1,_元金,_残高1,_利率,_年目,_利息,_残高) :-
_利息 は 切り捨て(_元金 * _利率),
_残高 is _残高1 + _利息,
length(L1,_年目),
write_formatted('%t年目 利息=%t 残高=%t\n',[_年目,_利息,_残高]).
残高(複利,[_|R1],L1,_元金,_残高1,_利率,_年目,_利息,_残高) :-
_利息 は 切り捨て(_残高1 * _利率),
_残高 is _残高1 + _利息,
length(L1,_年目),
write_formatted('%t年目 利息=%t 残高=%t\n',[_年目,_利息,_残高]).
残高(単利,[_|R1],L1,_元金,_残高1,_利率,_年目,_利息,_残高) :-
_利息1 は 切り捨て(_元金 * _利率),
_残高2 is _残高1 + _利息1,
残高(単利,R1,[_|L1],_元金,_残高2,_利率,_年目,_利息,_残高).
残高(複利,[_|R1],L1,_元金,_残高1,_利率,_年目,_利息,_残高) :-
_利息1 は 切り捨て(_残高1 * _利率),
_残高2 is _残高1 + _利息1,
残高(複利,R1,[_|L1],_元金,_残高2,_利率,_年目,_利息,_残高).
91:デフォルトの名無しさん
09/12/26 06:38:57
>>90 訂正
% Prolog www
福利 -> 複利
92:デフォルトの名無しさん
09/12/26 06:45:46
>>90
残高という述語名は好ましくないだろう。
93:デフォルトの名無しさん
09/12/26 07:07:39
>>90
% Prolog
'30年以内に複利の残高は単利の残高を上回るか。'(_元金,_複利の利率,_単利の利率) :
findall(_残高1,残高(複利,30,_元金,_複利の利率,_,_残高1),L1),
findall(_残高1,残高(単利,30,_元金,_単利の利率,_,_残高2),L2),
行列の転置([L1,L2],L3),
member([A,B],L3),
A > B.
94:デフォルトの名無しさん
09/12/26 07:13:12
>>93 一ヶ所書き直し。さてどこでしょう？
>>90
% Prolog
'30年以内に複利の残高は単利の残高を上回るか。'(_元金,_複利の利率,_単利の利率) :-
findall(_残高1,残高(複利,30,_元金,_複利の利率,_,_残高1),L1),
findall(_残高1,残高(単利,30,_元金,_単利の利率,_,_残高2),L2),
行列の転置([L1,L2],L3),
member([A,B],L3),
A > B.
95:デフォルトの名無しさん
09/12/26 07:21:38
>>93 >>94
リンクを>>90 としてあるけどこれは>>88です。
さて、>>90の残高の中で表示をしているので、>>94の課題でも、
客年の何年目、利息、残高が煩く表示されてしまう。
?- tell('/dev/null'),'30年以内に複利の残高は単利の残高を上回るか。'(1000,0.045,0.031),told.
とでもやればよいか。
これでも、上回らないと中の副目標がfailになって、toldが実行されないままとなる。
96:デフォルトの名無しさん
09/12/26 07:28:12
それもそうだけど、
複利の利率の方が大きいのでは1年目で片がついてしまうw
97:デフォルトの名無しさん
09/12/26 07:41:11
>>88
% Prolog
'30年以内に複利の残高は単利の残高を上回るか。上回るならば何年後か。'(_元金,_複
利の利率,_単利の利率,_何年後) :-
findall(_残高1,残高(複利,30,_元金,_複利の利率,_,_残高1),L1),
findall(_残高1,残高(単利,30,_元金,_単利の利率,_,_残高2),L2),
行列の転置([L1,L2],L3),
append(L0,[[A,B]|_],L3),
A > B,
length([_|L0],_何年後).
98:デフォルトの名無しさん
09/12/26 07:42:40
>>97 (>>88) 再表示。
% Prolog
'30年以内に複利の残高は単利の残高を上回るか。上回るならば何年後か。'(_元金,_複利の利率,_単利の利率,_何年後) :-
findall(_残高1,残高(複利,30,_元金,_複利の利率,_,_残高1),L1),
findall(_残高1,残高(単利,30,_元金,_単利の利率,_,_残高2),L2),
行列の転置([L1,L2],L3),
append(L0,[[A,B]|_],L3),
A > B,
length([_|L0],_何年後).
99:デフォルトの名無しさん
09/12/26 07:55:00
>>98 すみません。間違い発見。またまた書き直し。
% Prolog
'30年以内に複利の残高は単利の残高を上回るか。上回るならば何年後か。'(_元金,_複利の利率,_単利の利率,_何年後) :-
findall(_残高1,残高(複利,30,_元金,_複利の利率,_,_残高1),L1),
findall(_残高2,残高(単利,30,_元金,_単利の利率,_,_残高2),L2),
行列の転置([L1,L2],L3),
append(L0,[[A,B]|_],L3),
A > B,
length([_|L0],_何年後).
100:デフォルトの名無しさん
09/12/26 07:57:58
どこが間違ってるのか、コメントしてよ。
間違いの部分を読むのは勉強になるから。
101:デフォルトの名無しさん
09/12/26 08:06:03
>>100
焦ってしまって、精神的にコメントを入れてる余裕がなくなるw
人に見られないうちに書き換えようって。
ところで、findall/3は奇妙な仕様になっていて、
findall(_残高,残高(複利,30,_元金,_複利の利率,_,_残高),L1),
findall(_残高,残高(単利,30,_元金,_単利の利率,_,_残高),L2),
でも通ってしまう。
この目標が終了する時にこの中で使われている変数の束縛を解いてしまう。
好ましい表現ではないと思うから、避けるようにしているけど。
102:デフォルトの名無しさん
09/12/26 08:24:51
# [1] 授業単元：Prolog基礎
# [2] 問題文(含コード&リンク)：カラムとして、電話番号と氏名を持つ
# 電話帳テーブルがある。この中で同姓同名が最も多い氏名を探せ。
103:デフォルトの名無しさん
09/12/26 09:17:55
>>102
% Prolog
'カラムとして、電話番号と氏名を持つ電話帳テーブルがある。この中で同姓同名が最も多い氏名'(_氏名ならび) :-
findall(_氏名,clause(電話帳(_,_氏名),_),_氏名ならび),
quicksort(_氏名ならび,_整列された氏名ならび),
同姓同名が最も多いもの(_整列された氏名ならび,0,[],_氏名ならび).
同姓同名が最も多いもの(_整列された氏名ならび,_これまでの最大数,_氏名ならび1,_氏名ならび).
整列された氏名ならび=[A|R1],
要素の連続数(1,A,R1,X,R2),
最大値は(A,X,_これまでの最大値,_更新された最大値,_氏名ならび1,_氏名ならび2),
同姓同名が最も多いもの(R2,_更新された最大値,_氏名ならび2,_氏名ならび),!.
同姓同名が最も多いもの(_,_,_氏名ならび,_氏名ならび).
最大値は(_氏名,X,_これまでの最大値,X,_氏名ならび,[_氏名]) :- X @> _これまでの最大値,!.
最大値は(_氏名,X,_これまでの最大値,X,_氏名ならび,[_氏名|_氏名ならび]) :- X = _これまでの最大値,!.
最大値は(_,_,_これまでの最大値,_これまでの最大値,_氏名ならび,_氏名ならび).
要素の連続数(X,A,[],X,[]) :- !.
要素の連続数(X,A,[B|R],X,[B|R]) :- \+(A==B),!.
要素の連続数(M,A,[A|R1],X,R) :- M2 is M + 1,要素の連続数(M2,A,R1,X,R).
104:デフォルトの名無しさん
09/12/26 09:20:30
>>102 書き直し。
% Prolog
'カラムとして、電話番号と氏名を持つ電話帳テーブルがある。この中で同姓同名が最も多い氏名'(_氏名ならび) :-
findall(_氏名,clause(電話帳(_,_氏名),_),_氏名ならび),
quicksort(_氏名ならび,_整列された氏名ならび),
同姓同名が最も多いもの(_整列された氏名ならび,0,[],_氏名ならび).
同姓同名が最も多いもの(_整列された氏名ならび,_これまでの最大数,_氏名ならび1,_氏名ならび).
整列された氏名ならび=[A|R1],
要素の連続数(1,A,R1,X,R2),
最大値は(A,X,_これまでの最大値,_更新された最大値,_氏名ならび1,_氏名ならび2),
同姓同名が最も多いもの(R2,_更新された最大値,_氏名ならび2,_氏名ならび),!.
同姓同名が最も多いもの(_,_,_氏名ならび,_氏名ならび).
最大値は(_氏名,X,_これまでの最大値,X,_氏名ならび,[_氏名]) :- X @> _これまでの最大値,!.
最大値は(_氏名,X,_これまでの最大値,X,_氏名ならび,[_氏名|_氏名ならび]) :- X = _これまでの最大値,!.
最大値は(_,_,_これまでの最大値,_これまでの最大値,_氏名ならび,_氏名ならび).
要素の連続数(X,A,[],X,[]) :- !.
要素の連続数(X,A,[B|R],X,[B|R]) :- \+(A==B),!.
要素の連続数(M,A,[A|R1],X,R) :- M2 is M + 1,要素の連続数(M2,A,R1,X,R).
105:デフォルトの名無しさん
09/12/26 09:32:12
>>104
ふたつ気になることがあります。
一つは、テーブルからの取得をclause/2で行っていること。本体(条件)を
殺しているのですが、電話番号による種別の判定など意味のあるケースも
想定できると思います。
二つめは、同一人が複数の回線を持つのは普通のことだから、カラムに
住所まで加えて、それも氏名+住所をキーにしなくてはいけないのではないか。
これは問題の不備ということになります。
106:デフォルトの名無しさん
09/12/26 09:43:09
>>105
問題がテーブルとありますから、やはり単位節のみと考えるべきなんでしょうね。
いきなり、条件部の記述によって自動発信してしまうケースなどを懼れました。
それから時刻を調べて週末だけはこの電話とか。
107:デフォルトの名無しさん
09/12/26 11:46:20
>>35 使用言語： 十進BASIC
FOR o=1 TO 9
FOR s=0 TO 9
IF o<>s THEN
FOR a=0 TO 9
IF o<>a AND s<>a THEN
FOR k=0 TO 9
IF o<>k AND s<>k AND a<>k THEN
FOR y=0 TO 9
IF o<>y AND s<>y AND a<>y AND k<>y THEN
FOR t=0 TO 9
IF o<>t AND s<>t AND a<>t AND k<>t AND y<>t THEN
IF (o+k)*10000+(s+y)*1000+(a+o)*100+(k+t)*10+a+o=t*10000+o*1000+k*100+y*10+o THEN
PRINT USING "# # # # # ＋ # # # # # ＝ # # # # #":o,s,a,k,a,k,y,o,t,o,t,o,k,y,o
END IF
END IF
NEXT T
END IF
NEXT Y
END IF
NEXT K
END IF
NEXT A
END IF
NEXT S
NEXT O
END
実行結果
3 2 0 4 0 ＋ 4 1 3 7 3 ＝ 7 3 4 1 3
108:デフォルトの名無しさん
09/12/26 12:06:26
>>37 (>>35) 訂正追加。
% Prolog 定義を一節増やします。
加算表の一(A,B,1,D) :- 加算表(1,A,1,E),加算表(E,B,_,D).
加算表の一(A,B,C,D) :- 加算表(1,A,0,E),加算表(E,B,C,D).
109:デフォルトの名無しさん
09/12/26 14:40:16
# [1] 授業単元：Prolog基礎
# A社の組織として営業部、総務部があります。営業部は営業一課、営業二課にわかれています。
# 総務部も人事課と経理課にわかれています。管理情報として所属テーブル、給与テーブルがあります。
# [所属テーブル]
# 部, 課, ,社員名
# 営業部,営業一課,岡部
# 営業部,営業二課,小野
# 営業部,営業二課,鹿戸
# 営業部,営業二課,小泉
# 総務部,人事課,大崎
# 総務部,経理課,嶋田
# 総務部,経理課,宮田
# [給与テーブル]
# 社員名,給与
# 岡部,300000
# 小野,250000
# 鹿戸,280000
# 小泉,350000
# 大崎,200000
# 嶋田,400000
# 宮田,200000
# [問題] 部・課、部をそれぞれキーとして給与額を集約して合計した
# 部・課集約テーブル、部集約テーブルを作り出す述語を定義しなさい。
110:デフォルトの名無しさん
09/12/26 16:42:37
>>109
% Prolog (その一) 一般化できる部分のみ。集約データの収集/3,_述語/_アリティに対応する述語定義
% データベースの項目に関する情報述語と集約項目に関する述語が別に必要。
集約述語の生成(_述語/_アリティ,_集約述語ならび) :-
findall(_集約キー,集約キーの生成(_述語/_アリティ,_集約キー),_集約キーならび),
集約述語の生成(_述語/_アリティ,_集約キーならび,_集約述語ならび).
集約述語の生成(_述語/_アリティ,[],[]) :- !.
集約述語の生成(_述語/_アリティ,[_集約キー|R1],[_集約述語名/_アリティ2|R2]) :-
concat_atom(_集約キー,'・',_集約述語名),
length([_|_集約キー],_アリティ2),
集約データの収集(_述語/_アリティ,_集約キー,_集約データならび),
集約データの定義(_集約述語名,_集約データならび),
集約述語の生成(_述語/_アリティ,R1,R2).
集約データの定義(_,[]) :- !.
集約データの定義(_集約述語名,[_集約データ|R]) :-
P =.. [_集約述語名|_集約データ],
assertz(P),
集約データの定義(_集約述語名,R).
集約キーの生成(_述語/_アリティ,_集約キー) :-
集約項目(_述語/_アリティ,L),
append(L1,_,L),
\+(L1=[]).
111:デフォルトの名無しさん
09/12/26 17:04:52
>>102 使用言語： J
data=:noun define
0123456789 山田一郎
1234567890 鈴木二郎
2345678901 伊藤三郎
3456789012 山田一郎
4567890123 伊藤一郎
5678901234 山田一郎
)
]a=:cutopen<;._2 data
+----------+------------+
|0123456789|山田一郎|
+----------+------------+
|1234567890|鈴木二郎|
+----------+------------+
|2345678901|伊藤三郎|
+----------+------------+
|3456789012|山田一郎|
+----------+------------+
|4567890123|伊藤一郎|
+----------+------------+
|5678901234|山田一郎|
+----------+------------+
f=:0{(~.\:#/.~)
f 1{"1 a
+------------+
|山田一郎|
+------------+
f >1{"1 a
山田一郎
112:デフォルトの名無しさん
09/12/26 18:08:14
>>110 (>>109)
% Prolog (その二) 具体的なテーブルを。あと、集約データの収集述語定義をすればよい。
所属(営業部,営業一課,岡部).
所属(営業部,営業二課,小野).
所属(営業部,営業二課,鹿戸).
所属(営業部,営業二課,小泉).
所属(総務部,人事課,大崎).
所属(総務部,経理課,嶋田).
所属(総務部,経理課,宮田).
給与(岡部,300000).
給与(小野,250000).
給与(鹿戸,280000).
給与(小泉,350000).
給与(大崎,200000).
給与(嶋田,400000).
給与(宮田,200000).
集約項目(所属/3,[部,課]).
述語構造(所属/3,1,部).
述語構造(所属/3,2,課).
述語構造(所属/3,3,社員名).
述語構造(給与/2,1,社員名).
述語構造(給与/2,2,給与).
113:デフォルトの名無しさん
09/12/27 17:08:07
>>19
使用言語： J
f=:monad def'((":y),'' = '',":@{.,'' * '',":@}.)"1~./:~"1|:(,:y&%)>:I.0=y|~>:i.y'
f 120
120 = 1 * 120
120 = 2 * 60
120 = 3 * 40
120 = 4 * 30
120 = 5 * 24
120 = 6 * 20
120 = 8 * 15
120 = 10 * 12
114:デフォルトの名無しさん
09/12/27 21:03:04
パズルでもやってみる？
2,0,1,0 の4個の数字をこの順番で1回だけ使い、0から99の数字を作れ。
演算子、関数の使用は自由。
例
201^0 -> 1
115:デフォルトの名無しさん
09/12/28 04:34:04
ｽﾚﾘﾝｸ(tech板:486番)
# [1] 授業単元：Ｃ言語プログラミング
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(ime.nu)
# ソケットを用いて，課題1のプログラムを以下のように改良する．
#
# サーバとクライアントに分割し，ユーザーはクライアントを用いて操作内容を入力し，その内容をサーバに送信する．
# それを受信したサーバは，その内容を基にファイルを操作する．必要であれば，サーバは結果をクライアントに送信し，クライアントはそれを受信して表示する．
# 機能ルーチンはサーバ側に実装し，課題1で作成した関数を改良し用いること
#
116:デフォルトの名無しさん
09/12/28 04:45:07
ｽﾚﾘﾝｸ(tech板:487番)
# [1] 授業単元：計算機入門及び演習
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(ime.nu)
#
以下の問題を解くプログラムをC言語を用いて作成しなさい．
AさんとBさんは点数が書かれたカードを何枚か持っている． AさんのカードとBさんのカ
ードを1枚ずつ交換して，Aさんの持つカードの合計点数とBさんの持つカード合計点数が
等しくなるようにしたい．
このときどのカードとどのカードを交換したらよいか．ただし，カードを交換しなくても合計点数が等しい場合でも，必ずカードの交換を行うものとする．
入力は，いくつかのデータセットからなる．各データセットは次の形式で与えられる．
n m
s1
s2
...
sn
sn+1
sn+2
...
sn+m
各データセットの最初の行は空白ひとつで区切られたふたつの数 n と m を含み， n はAさんのカードの枚数，m はBさんのカードの枚数を表す．続く n+m 行には，各カードの
点数が 1 行にひとつずつ並ぶ．最初の n 個の点数 (s1 から sn まで) はAさんのカードの点数，残りの m 個の点数 (sn+1 から sn+m まで) はBさんのカードの点数を表す．
n および m は 100 以下の正の整数とし，カードの点数は 0 以上 100 以下の整数値とする．入力の終わりは，空白ひとつで区切られたふたつの 0 を含む 1 行で示される．
各データセットに対し，Aさん，Bさんの交換前のすべてのカードと交換すべき2つのカードを出力すること．形式は特に問わない(実行例を参考にすること)．
なお，合計を等しくするようなカードの交換の方法が複数ある場合は，交換するカードの点数の和が最小となるもののみを出力すること．
また，カードの点数の合計を等しくするような交換が存在しない場合はその旨を出力すること．
117:デフォルトの名無しさん
09/12/28 11:41:33
>>114
使用言語： maxima
15までできたけど、結構、大変。
0 201*0;
1 2-0-1-0;
2 20/10;
3 2+0+1+0;
4 fix(sqrt(20.10));
5 ceiling(sqrt(20.10));
6 fix(sqrt(20.10));
7 fix(exp(2.010));
8 ceiling(exp(2.010));
9 ceiling(exp(2.0)+1.0);
10 fix(exp(2.0)+exp(1.0));
11 ceiling(exp(2.0)+exp(1.0));
12 2+0+10;
13 ceiling(exp(sin(2.0))+10);
14 fix(sqrt(201.0));
15 ceiling(sqrt(201.0));
118:デフォルトの名無しさん
09/12/28 15:12:17
ｽﾚﾘﾝｸ(tech板:489番)
# [1] 授業単元：
# 画像解析
# [2] 問題文(含コード&リンク)：
# 画像を、好きな倍率で大きくしたり小さくしたりするプログラムを作成してください
119:デフォルトの名無しさん
09/12/28 18:18:38
>>30 使用言語： 十進BASIC
FUNCTION 組合せの数(n,r)
LET a=1
LET b=n
FOR i=2 TO r
LET a=a*i
LET b=b*(n-i+1)
NEXT I
LET 組合せの数=b/a
END FUNCTION
PRINT 組合せの数(35,3)*組合せの数(15,2)/組合せの数(50,5)
PRINT 組合せの数(35,4)*組合せの数(15,1)/組合せの数(50,5)
PRINT 組合せの数(35,2)*組合せの数(15,3)/組合せの数(50,5)
PRINT "組み込み関数combを使った場合"
PRINT comb(35,3)*comb(15,2)/comb(50,5)
PRINT comb(35,4)*comb(15,1)/comb(50,5)
PRINT comb(35,2)*comb(15,3)/comb(50,5)
END
実行結果
.324352451433858
.370688515924409
.127775208140611
組み込み関数combを使った場合
.324352451433858
.370688515924409
.127775208140611
120:デフォルトの名無しさん
09/12/28 21:28:47
>>114
使用言語： maxima
(%i182) makelist(i,i,fix(sin(%pi)),fix(apply("^",reverse([2.0,10]))+cos(%pi)));
(%o182) [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38,
39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57,
58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76,
77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
96, 97, 98, 99]
121:デフォルトの名無しさん
09/12/28 22:03:28
>>114
使用言語： 十進BASIC
DEF f(n)=n*n-n/n
FOR i=z TO f(20-10)
PRINT i
NEXT I
END
122:デフォルトの名無しさん
09/12/29 01:44:55
>>114
使用言語： Arc
arc> (apply range (map [-(* _ _)(/ _ _)] (list(expt 2 0) 10)))
(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82
83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99)
123:デフォルトの名無しさん
09/12/29 02:02:20
>>114
使用言語： J
i. ,~ 20 - 10
0 1 2 3 4 5 6 7 8 9
10 11 12 13 14 15 16 17 18 19
20 21 22 23 24 25 26 27 28 29
30 31 32 33 34 35 36 37 38 39
40 41 42 43 44 45 46 47 48 49
50 51 52 53 54 55 56 57 58 59
60 61 62 63 64 65 66 67 68 69
70 71 72 73 74 75 76 77 78 79
80 81 82 83 84 85 86 87 88 89
90 91 92 93 94 95 96 97 98 99
124:デフォルトの名無しさん
09/12/29 08:55:53
>>114
使用言語： Haskell
Prelude> init $ (\[a,b]->[a..b]) $ map(^2)[0,10]
[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,
29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,
55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,
81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99]
125:デフォルトの名無しさん
09/12/29 11:03:55
ｽﾚﾘﾝｸ(tech板:79番)
# Windows XP上で、
# まず 同じディレクトリにあるsetting.iniを読み込んで
# その1行目, 2行目, 3行目を
# 文字列p, regex, aftに格納する。
# pをパスとして調べ、
# 1.実在するディレクトリだったらそのディレクトリの名前とサブディレクトリの名前と、
# それらの中にあるファイルの名前、およびファイルの中身に以下の置換作業を実行する。
# > 前からみて順に正規表現regexにマッチする文字列を全てaftに置換する。
# 2.実在しないディレクトリでなかったらエラーメッセージを標準出力に出力する。
126:デフォルトの名無しさん
09/12/29 11:25:43
>>114
使用言語： Scilab
-->a=2;[0:(10^a-a/a)]
127:デフォルトの名無しさん
09/12/29 16:48:55
>>125
% Prolog では正規表現は使わないので、その代わり以下のような述語を作っておく。
探索目標を真とする副文字列を置換文字列に置換(_文字列,_対象文字ならび,_探索目標,_置換文字列,X) :-
findall(S,探索目標を真とする副文字列を置換文字列に置換の一(_文字列,_対象文字ならび,_探索目標,_置換文字列,S),X).
探索目標を真とする副文字列を置換文字列に置換の一(_文字列,_対象文字ならび,_探索目標,_置換文字列,S) :-
atom_chars(_文字列,Chars),
探索目標を真とする文字ならびを得る(Chars,L1,_対象文字ならび,_探索目標,L3),
atom_chars(A1,L1),
atom_chars(A3,L3),
concat_atom([A1,_置換文字列,A3],S).
探索目標を真とする文字ならびを得る([],L1,L2,_探索目標,L3) :- !,fail.
探索目標を真とする文字ならびを得る(L,L1,L2,_探索目標,L3) :-
append(L1,L2,L3,L),
_探索目標.
探索目標を真とする文字ならびを得る(L,L1,L2,_探索目標,X) :-
変数指定項複写(_探索目標,_探索目標2,[L2],[L4]),
append(L11,L2,31,L),
_探索目標,
探索目標を真とする文字ならびを得る(L31,L1,L4,_探索目標2,X).
128:デフォルトの名無しさん
09/12/30 00:29:25
>>114
使用言語： Io
Io> list(2-0,10)reduce(a,b,b**a)repeat(v, v println)
129:デフォルトの名無しさん
09/12/30 01:18:56
>>114
使用言語： Io
Io> (20-10)squared repeat(v, v println)
130:デフォルトの名無しさん
09/12/30 06:12:33
>>127 (>>125) かなりの大間違い。訂正。
% Prolog では正規表現は使わないので、その代わり以下のような述語を作っておく。L1,L3が加わり、益々意味不明になってきた。
探索目標を真とする副文字列を置換文字列に置換(_文字列,L1,_対象文字ならび,L3,_探索目標,_置換文字列,X) :-
findall(S,探索目標を真とする副文字列を置換文字列に置換の一(_文字列,L1,_対象文字ならび,L3,_探索目標,_置換文字列,S),X).
探索目標を真とする副文字列を置換文字列に置換の一(_文字列,L1,_対象文字ならび,L3,_探索目標,_置換文字列,S) :-
atom_chars(_文字列,Chars),
探索目標を真とする文字ならびを得る(Chars,L1,_対象文字ならび,_探索目標,L3),
atom_chars(A1,L1),
atom_chars(A3,L3),
concat_atom([A1,_置換文字列,A3],S).
探索目標を真とする文字ならびを得る(L,L1,L2,_探索目標,L3) :-
append(L1,L2,L3,L),
_探索目標.
131:デフォルトの名無しさん
09/12/30 06:32:32
>>130 使い方の例。
% 行頭に「私は」を挿入。
?- 探索目標を真とする副文字列を置換文字列に置換(嘘を申しません,[],[],L3,true,私は,X).
L3 = _141192,
X = ['私は嘘を申しません']
% "d.f" を"aaa"に置換
?- 探索目標を真とする副文字列を置換文字列に置換(abcdefgdufz,_,[d,_,f],_,true,aaa,X).
_ = _141192,
_ = _141193,
_ = _141200,
X = [abcaaagdufz,abcdefgaaaz]
% "b"と"f"の間にありその中に"d"を2つ含む文字列をaaaに置換
?- 探索目標を真とする副文字列を置換文字列に置換(abcdefgdufz,_,L2,_,(append([b],LY,[f],L2),count(member(d,LY),2)),baaaf,X).
_ = _141192,
L2 = _141193,
_ = _141194,
LY = _141197,
X = [abaaafz]
132:デフォルトの名無しさん
09/12/30 08:22:02
>>131
Prologでは実際にこんな述語を呼び出して検索や置換を行うものですか？
133:デフォルトの名無しさん
09/12/30 08:57:48
>>132
一般にどうかはわからない。私の場合はcall/1を使って汎用述語を作ることは
絶対と言っていいほどしない。したがってここでは課題として書いてみたが、
>>130のような定義述語を利用することはない。少々煩わしくても、検索が必要に
なった時に一つ述語を定義する。
このスレでは、一度に書き込める行数に制限があるので、何度も使用された
述語を「汎用」のものとみなして定義なしに、呼び出している場合も多い。
これはやむを得ずそうしているのであって、それが模倣すべきプログラムスタイルだ
などと考えないでほしい。
134:デフォルトの名無しさん
09/12/30 10:15:59
ｽﾚﾘﾝｸ(tech板:496番)
# [1] 授業単元： C++実習
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(ime.nu)
# 問題２
# 個々のオブジェクトにint型の識別番号を与える（全オブジェクトに異なる整数値を与える）ように以下のクラスを書き換えよ。
# また書き換えたクラスがテストできる適切なmain関数も作成せよ。
# class Account {
# string name; //口座名義
# string no; //口座番号
# long balance; //預金額
# Date open; //口座開設日
#
# public:
# Account(string n, string num, long z, Date op);
#
# void Deposit(long k); //預ける
# void Withdraw(long k); //おろす
# string GetName() const { return name; } //口座名義を調べる
# string GetNo() const { return no; } //口座番号を調べる
# long CheckBalance() const { return balance; } //預金額を調べる
# Date OpeningDate() const { return open; } //口座開設日を調べる
# }
135:デフォルトの名無しさん
09/12/31 04:05:03
ｽﾚﾘﾝｸ(tech板:679番)
# [授業単元] : Prolog
# 知恵を貸してください。
# 今宿題で嫉妬深い恋人たちの問題をやっていて
# 初期状態とゴール状態をそれぞれ
# initial_state(jealousy, jealousy(left,[1,2,3],[1,2,3],[ ],[ ])).
# final_state(jealousy(right,[ ],[ ],[1,2,3],[1,2,3])).
# と作って指し手の移動と状態変化についてはかけたのですが
# 状態変化したときの合法性のチェックでつまっています。
# legal(jealousy(right,[[1],[1,2]], [[2,3],[3]]) ×
# legal(jealousy(left,[[2,3],[2,3]], [[1],[1]]) ○
# としたいのですがどうしたらいいのでしょうか？
136:デフォルトの名無しさん
09/12/31 04:26:43
ｽﾚﾘﾝｸ(tech板:536番)
# [1] 授業単元： C++
# [2] 問題文(含コード&リンク)：
# 課題1資料 URLﾘﾝｸ(ime.nu)
# 課題1 URLﾘﾝｸ(ime.nu)
# 課題1応用 URLﾘﾝｸ(ime.nu)
# 京都市の区ごとの人口（人）と面積（平方キロメートル）が記述されているデータ（URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)）がある。
# 区の名前，人口，面積のデータを格納しなさい。
# 人口についてソートした結果，面積についてソートした結果を出力する。
#
# 区の名前，人口，面積のてデータを格納し，格納したデータを調べて以下の情報を出力するプログラムを作成しなさい。
# 人口が最大の区と最小の区の、名前と人口。
# 面積が最大の区と最小の区の、名前と面積。
# 人口密度が最大の区と最小の区の、名前と人口密度。
# Kita 124306 94.92
# Kamigyo 83082 7.11
# Sakyo 168133 246.88
# Nakagyo 100145 7.38
# Higashiyama 41659 7.46
# Yamashina 136769 28.78
# Shimogyo 74897 6.82
# Minami 97877 15.78
# Ukyo 201819 291.95
# Nishikyo 155973 59.20
# Fushimi 284812 61.62
137:デフォルトの名無しさん
09/12/31 06:56:21
>>136
% Prolog
'京都市の区ごとの人口（人）と面積（平方キロメートル）が記述されているデータがある'('URLﾘﾝｸ(ime.nu)').
区の名前，人口，面積のデータを格納する :-
'京都市の区ごとの人口（人）と面積（平方キロメートル）が記述されているデータがある'(_ウェブサイト),
get_split_lines(_ウェブサイト,[' '],Lines),
member([_区の名前,_人口,_面積],Lines),
assertz('京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積)),
fail.
区の名前，人口，面積のデータを格納する.
人口についてソートする(_整列されたデータならび) :-
findall([_人口,_区の名前,_人口,_面積],'京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積),L),
sort(L,L1),
降順に並べ直しながら鍵項目の削除する(L1,[],_整列されたデータならび).
面積についてソートする(_整列されたデータならび) :-
findall([_面積,_区の名前,_人口,_面積],'京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積),L),
sort(L,L1),
降順に並べ直しながら鍵項目の削除する(L1,[],_整列されたデータならび).
降順に並べ直しながら鍵項目を削除する([],X,X) :- !.
降順に並べ直しながら鍵項目を削除する([[_|L]|R],Y,X) :-
降順に並べ直しながら鍵項目を削除する(R,[L|Y],X).
138:デフォルトの名無しさん
09/12/31 06:58:38
>>137 (>>136) 改行してはいけないところで折り返してしまった。
% Prolog
'京都市の区ごとの人口（人）と面積（平方キロメートル）が記述されているデータがある'('URLﾘﾝｸ(ime.nu)').
139:デフォルトの名無しさん
09/12/31 07:00:53
>>138
どうしても、ダメだね。勝手に改行が入ってしまう。"ある"の後の改行は
ないことにして下さい。
140:デフォルトの名無しさん
09/12/31 07:14:48
>>137 訂正
% Prolog Lines -> _区の名前・人口・面積ならび
区の名前，人口，面積のデータを格納する :-
'京都市の区ごとの人口（人）と面積（平方キロメートル）が記述されているデータがある'(_ウェブサイト),
get_split_lines(_ウェブサイト,[' '],_区の名前・人口・面積ならび),
member([_区の名前,_人口,_面積],_区の名前・人口・面積ならび),
assertz('京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積)),
fail.
区の名前，人口，面積のデータを格納する.
141:デフォルトの名無しさん
09/12/31 08:14:28
>>136
% Prolog
人口が最大の区と最小の区の、名前と人口(_人口が最大の区の名前,_人口が最大の区の人口,_人口が最小の区の名前,_人口が最小の区の人口) :-
findmax([_人口,_区の名前],京都市の区ごとの人口と面積のデータ(_区の名前,_人口,_),[_人口が最大の区の人口,_人口が最大の区の名前),
findmin([_人口,_区の名前],京都市の区ごとの人口と面積のデータ(_区の名前,_人口,_),[_人口が最小の区の人口,_人口が最小の区の名前).
面積が最大の区と最小の区の、名前と面積(_面積が最大の区の名前,_面積が最大の区の面積,_面積が最小の区の名前,_面積が最小の区の面積) :-
findmax([_面積,_区の名前],京都市の区ごとの人口と面積のデータ(_区の名前,_,_面積),[_面積が最大の区の面積,_面積が最大の区の名前),
findmin([_面積,_区の名前],京都市の区ごとの人口と面積のデータ(_区の名前,_,_面積),[_面積が最小の区の面積,_面積が最小の区の名前).
人口密度が最大の区と最小の区の、名前と人口密度(_人口密度が最大の区の名前,_人口密度が最大の区の人口密度,_人口密度が最小の区の名前,_人口密度が最小の区の人口密度) :-
findmax([_人口密度,_区の名前],(京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積),_人口密度 is _人口 / _面積),[_人口密度が最大の区の人口密度,_人口密度が最大の区の名前),
findmin([_人口密度,_区の名前],(京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積),_人口密度 is _人口 / _面積),[_人口密度が最小の区の人口密度,_人口密度が最小の区の名前).
142:デフォルトの名無しさん
09/12/31 08:38:12
>>141
ほとんどの場合これで済ませてしまいますが、本当は正しくない。
これだと、同一の人口、面積、人口密度が生じた時、名前の小さいまたは大きいもの
が採られてしまいます。正しい処理は、
人口が最大の区と最小の区の、名前と人口(_人口が最大の区の名前,_人口が最大の区の人口,_人口が最小の区の名前,_人口が最小の区の人口) :-
findmax(_人口,京都市の区ごとの人口と面積のデータ(_,_人口,_),_最大の人口),
findall([_区の名前,_最大の人口],京都市の区ごとの人口と面積のデータ(_区の名前,_最大の人口,_),L1),
findmin(_人口,京都市の区ごとの人口と面積のデータ(_,_人口,_),_最小の人口),
findall([_区の名前,_最小の人口],京都市の区ごとの人口と面積のデータ(_区の名前,_最小の人口,_),L2),
member([_人口が最大の区の名前,_人口が最大の区の人口],L1),
member([_人口が最小の区の名前,_人口が最小の区の人口],L2).
% なら、人口が同一の区があっても正しく解が得られます。
143:デフォルトの名無しさん
10/01/02 13:54:46
ｽﾚﾘﾝｸ(tech板:553番)
# (問題）
# 社員データを一元管理するためのサーバークライアントシステムを作れ
# 要求仕様）
# 管理するデータは社員番号、氏名、所属、入社年月日
# クライアントから追加、削除、修正が行えること
# 管理データはCSV形式で保存すること
144:デフォルトの名無しさん
10/01/02 22:13:02
ｽﾚﾘﾝｸ(tech板:557番)
# [1] 授業単元： 情報数学
# [2] 問題文(含コード&リンク)：
# オイラー級数を用いて、πの近似値を求めよ。
145:デフォルトの名無しさん
10/01/02 22:21:57
ｽﾚﾘﾝｸ(tech板:545番)
# [1] 授業単元：基礎プログラミング実習
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(ime.nu)
p/cgi-bin/joyful/img/10325.txt
# Step 3. 不偏分散を求める次の関数を定義する．
# float variance(float data[], int n) ．この関数は，data[]配列に入っている
# n個のデータの不偏分散を求め，関数値としてその不偏分散値を返す．
# なお，不偏分散の計算に必要な平均値は，関数average()を呼び出して求めること．
146:デフォルトの名無しさん
10/01/02 22:24:19
ｽﾚﾘﾝｸ(tech板:546番)
# [1] 授業単元： プログラミング応用
# [2] 問題文(含コード&リンク)：
# 任意の奇数n(nは15以下)を入力しn×nの魔方陣を出力する。
# そして、作成した魔方陣の縦、横、斜めの合計値も同時に出力せよ。
# ただし、１は必ず一番左の列の真ん中に置くこと。
# (例)
# n=3の時
# １５
# ６ ７ ２ １５
# １ ５ ９ １５
# ８ ３ ４ １５
# １５ １５ １５ １５
147:デフォルトの名無しさん
10/01/03 06:34:05
ｽﾚﾘﾝｸ(tech板:547番)
# [1] 授業単元： 情報数学
# [2] 問題文(含コード&リンク)：
#
# 問）同時整数関係を見つけるプログラムを考えなさい。
# 整数の解を求めるプログラムと、複素数の解を求めるプログラムを考え、
# それを組み合わせることで両方の解を同時に求め示すプログラムについて考えなさい。
148:デフォルトの名無しさん
10/01/03 06:39:51
ｽﾚﾘﾝｸ(tech板:545番)
# [1] 授業単元：基礎プログラミング実習
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(ime.nu)
# 一問目
#
# Step 1. scanf()を用いてfloat型の値を入力し，それを順番にdata[]配列に格納する．
# このdata[]配列は関数の呼び出し側で宣言するものとし，宣言した配列の要素数(入力可能なデータの最大個数)をmaxとして関数を呼び出すものとする．
# また，この関数は，データ入力数が最大のmax個に達するか，負値が入力されるまでデータ入力を繰り返すものとする．
149:デフォルトの名無しさん
10/01/03 06:43:39
ｽﾚﾘﾝｸ(tech板:545番)
# [1] 授業単元：基礎プログラミング実習
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(ime.nu)
# Step 2. 平均値を求める次の関数を定義する. float average(float data[], int n)
# この関数は， data[]配列に入っているn個のデータの平均値を求め，関数値としてその平均値を返す．
150:デフォルトの名無しさん
10/01/03 07:01:06
ｽﾚﾘﾝｸ(tech板:692番)
# 【 課題 】キーワードからクロスワードを完成させる
# URLﾘﾝｸ(rg550.hp.infoseek.co.jp)
# 【 形態 】Javaアプリケーション(main()で開始
# <template>
#
# ■２□■■
# １■□□□
# □□□■■
# ４■□□■
# ■□□３□
#
# <縦のかぎワード>
# コオリ
# ニホンカミ
# モモ
#
# <横のかぎワード>
# ウニ
# オデン
# ホクロ
# アミモノ
# カモ
151:デフォルトの名無しさん
10/01/03 07:45:45
ｽﾚﾘﾝｸ(db板:381番)
# 弁護士の名前(name)とその人の所属法律事務所の名称(ofic)から成るテーブルがあるとして、
# 法律事務所は弁護士がひとりしかいないところから300人以上いるところまでさまざまなので、
# 「所属する弁護士の数が多い事務所トップ10」 の事務所名と人数を select一発で表示させるには
# どうすればいい？
#
152:デフォルトの名無しさん
10/01/03 19:57:09
>>151
% Prolog は集約は得意としない。その場でこの述語を考えるのは負担が大きいので、
% 以下のような準備が必要だろう。SQLのcount(*)を解決する処理だが。
集約_数_逆順ならび([],L,L) :- !.
集約_数_逆順ならび([A|R1],L1,L) :-
\+(member([_,A],L1)),
集約_数_計測(A,R1,L2,1,Count),
逆順整列([Count,A],L1,L3),
集約_数_逆順ならび(L2,L3,L),!.
集約_数_計測(_,[],[],Count,Count) :- !.
集約_数_計測(A,[A|R1],L2,Count1,Count) :-
Count2 is Count1 + 1,
集約_数_計測(A,R1,L2,Count2,Count),!.
集約_数_計測(A,[B|R1],[B|R2],Count1,Count) :-
\+(A = B),
集約_数_計測(A,R1,R2,Count1,Count),!.
逆順整列(L,[],[L]) :- !.
逆順整列(L,[L1|R1],[L,L1|R1]) :-
L @>= L1,!.
逆順整列(L,[L1|R1],[L1|R2]) :-
逆順整列(L,R1,R2).
153:デフォルトの名無しさん
10/01/03 23:45:33
>>151
使用言語：J
ofic=:;:'b a b b a a c d g h c x r t a d c g j u y w q'
]ofic=:ofic,;:'g v c f g v a d e x n u y t y r t a s w'
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
|b|a|b|b|a|a|c|d|g|h|c|x|r|t|a|d|c|g|j|u|y|w|q|g|v|c|f|g|v|a|d|e|x|n|u|y|t|y|r|t|a|s|w|
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
10{.\:~(~.,.~<@#/.~)ofic
+-+-+
|6|a|
+-+-+
|4|g|
+-+-+
|4|c|
+-+-+
|3|y|
+-+-+
|3|t|
+-+-+
|3|d|
+-+-+
|3|b|
+-+-+
|2|x|
+-+-+
|2|w|
+-+-+
|2|v|
+-+-+
154:デフォルトの名無しさん
10/01/04 05:15:18
>>152 (>>151)
% Prolog 逆順ではなかった。降順だね。
集約_数_降順ならび([],L,L) :- !.
集約_数_降順ならび([A|R1],L1,L) :-
\+(member([_,A],L1)),
集約_数_計測(A,R1,L2,1,Count),
降順整列([Count,A],L1,L3),
集約_数_降順ならび(L2,L3,L),!.
集約_数_計測(_,[],[],Count,Count) :- !.
集約_数_計測(A,[A|R1],L2,Count1,Count) :-
Count2 is Count1 + 1,
集約_数_計測(A,R1,L2,Count2,Count),!.
集約_数_計測(A,[B|R1],[B|R2],Count1,Count) :-
\+(A = B),
集約_数_計測(A,R1,R2,Count1,Count),!.
降順整列(L,[],[L]) :- !.
降順整列(L,[L1|R1],[L,L1|R1]) :-
L @>= L1,!.
降順整列(L,[L1|R1],[L1|R2]) :-
降順整列(L,R1,R2).
155:デフォルトの名無しさん
10/01/04 05:37:34
>>151
% Prolog
所属する弁護士の数が多い事務所トップ10(L) :-
findall(_所属法律事務所,弁護士所属(_弁護士の名前,_所属法律事務所),L1),
集約_数_降順ならび(L1,[],L2),
length(L,10),
append(L,_,L2).
156:デフォルトの名無しさん
10/01/04 07:10:58
>>147
同時整数関係 -> 同次整数関係
であるとの訂正が出題スレに載っていました。
157:デフォルトの名無しさん
10/01/04 07:18:35
>>151
使用言語：Io
Io> ofic:="b a b b a a c d g h c x r t a d c g j u y w q"
Io> ofic=ofic .. "g v c f g v a d e x n u y t y r t a s w"
Io> ofic=ofic split
Io> ofic uniqueCount sortBy(block(x,y,x at(1)>y at(1)))slice(0,10)
==> list(list("a", 6), list("c", 4), list("b", 3), list("d", 3), list("g", 3),
list("y", 3), list("t", 3), list("v", 2), list("r", 2), list("w", 2))
158:デフォルトの名無しさん
10/01/04 07:28:00
>>109
% Prolog 出題から離れますが、2次元のリストの指定された列を取り出すユーティリティは
全ての行に対して位置指定により列を選択する(_,[],[]) :- !.
全ての行に対して位置指定により列を選択する(_選択する列位置ならび,[_行|R1],[L|R2
]) :-
列の選択(_選択する列位置ならび,_行,L),
全ての行に対して位置指定により列を選択する(_選択する列位置ならび,R1,R2).
列の選択([],_,[]) :- !.
列の選択([_列位置|R1],_行,[A|R2]) :-
integer(_列位置),
list_nth(_列位置,_行,A),
列の選択(R1,_行,R2),!.
列の選択([A|R1],_行,R2) :-
\+(integer(A)),
B は A,
integer(B),
列の選択([B|R1],_行,R2),!.
列の選択([A|R1],_行,[B|R2]) :-
\+(integer(A)),
B は A,
\+(integer(B)),
列の選択(R1,_行,R2),!.
159:デフォルトの名無しさん
10/01/04 08:04:41
>>158
list_nthは使わないで、第一引数を先にソートしてからやった方がいいと思う。
160:デフォルトの名無しさん
10/01/04 08:08:27
>>159
列の選択の第二・三節で変な事をやっているので、ソートできないw
161:デフォルトの名無しさん
10/01/04 08:13:24
そういうことか。それにしても危なっかしい仕様だな。
162:デフォルトの名無しさん
10/01/04 09:34:39
>>12
使用言語：Scala
scala> def f1(n:Int):Int={var r=0;var a=n;while(a>0){r=10*r+a%10;a/=10};r}
f1: (Int)Int
scala> f1(987654321)
res72: Int = 123456789
scala> def f2(n:Int):Int={n.toString.reverse.toInt}
f2: (Int)Int
scala> f2(987654321)
res73: Int = 123456789
163:デフォルトの名無しさん
10/01/04 11:40:11
>>144
使用言語：J
%:6*+/%2^~>:i.1000000
3.14159
164:デフォルトの名無しさん
10/01/04 12:24:50
>>144
使用言語：Io
Io> r:=0;for(i,1,1000000,r=r+1/(i*i));(r*6)sqrt
==> 3.1415916986605086
165:デフォルトの名無しさん
10/01/04 16:24:30
>>159
>>160 のような呑気なレスをつけてしまったが、取り出す順序が勝手に変わって
しまっては、後でmember/2などで取り出す時どうすればいいのかな？
166:デフォルトの名無しさん
10/01/04 17:10:15
ｽﾚﾘﾝｸ(db板:377番)
#
# Aテーブル
# aaa|ddd
#
# Bテーブル
# aaa|bbb
#
# Cテーブル
# bbb|ccc
#
# Aテーブルに対して、カラムaaaでBテーブルが紐づき、
# Bテーブルに対して、カラムbbbでCテーブルが紐づくとします。
# （つまり、Aテーブルのレコード1件は、Bテーブルを経由してCテーブルのレコード1件と紐づく）
# ここで、A.ddd = 'X'のとき、C.ccc = 'Y'に更新したいのですが
# 下記の文であってますでしょうか？
# また、もっと効率のいい方法はありますでしょうか？
#
# update C set C.ccc = 'Y' where C.bbb in
# ( select B.bbb from B where B.aaa in
# ( select A.aaa from A where A.ddd = 'X')
# ( select A.aaa from A where A.ddd = 'X')
# )