いろんな言語で宿題スレ

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

100:デフォルトの名無しさん
09/06/05 17:56:46
>>99
% Prolog (1/2)
可能経路数(_桝,_開始点_X,_開始点_Y,_経路の数) :-
　　findall(1,駒の動き(_開始点_X,_開始点_Y,_),L),
　　length(L,_経路の数).

駒の動き(_桝,_開始点_X,_開始点_Y,_経路) :-
　　駒の動き(_桝,_開始点_X,_開始点_Y,[[_開始点_X,_開始点_Y]],_経路).

駒の動き(_桝,X,Y,L,_経路) :-
　　移動可能点(_桝,X,Y,X2,Y2),
　　not(member([X2,Y2],L)),
　　駒の動き(_桝,X2,Y2,[[X2,Y2]|L],_経路).
駒の動き(_桝,X,Y,L,_経路) :-
　　_桝2 is _桝 * _桝,
　　list_length(L,_桝2),
　　reverse(L,_経路).

101:デフォルトの名無しさん
09/06/05 17:57:51
>>99
% Prolog (2/2)
変位(2,1).
変位(1,2).
変位(-1,2).
変位(-2,1).
変位(-2,-1).
変位(-1,-2).
変位(1,-2).
変位(2,-1).

移動可能点(_桝,I,J,X,Y) :-
　　変位(U,W),
　　X is I+U,
　　Y is J+W,
　　X > 0,
　　X =< _桝,
　　Y > 0,
　　Y =< _桝.

102:デフォルトの名無しさん
09/06/05 23:38:49
#-*- coding: utf-8 -*-
# python2.6で>99。といいつつ出題を無視してジェネレータで遊んでみた。schemeなら継続を使うところなんだろうね。
class solver:
　　 delta = ((1,2),(1,-2),(-1,2),(-1,-2),(2,1),(-2,1),(2,-1),(-2,-1))
　　 def __init__(self, n):
　　　　 self.n, self.field = n, [[0] * n for i in range(n)]
　　 def generator(self, x=0, y=0, m=1):
　　　　 if 0 <= x < self.n and 0 <= y < self.n and self.field[y][x] == 0:
　　　　　　 self.field[y][x] = m
　　　　　　 if m == self.n * self.n: yield tuple(self.field)
　　　　　　 else:
　　　　　　　　 for dx,dy in self.delta:
　　　　　　　　　　 for field in self.generator(x+dx, y+dy, m+1):
　　　　　　　　　　　　 yield field
　　　　　　 self.field[y][x] = 0
if __name__ == '__main__':
　　 import re, sys
　　 # 解を表示
　　 g = solver(5).generator();
　　 def display(f): print'\n'.join(' '.join(map(lambda x:'%2d'%x ,L)) for L in f)+'\n'
　　 while True:
　　　　 print u'数字入力で次のN件表示 / qで終了'
　　　　 line = sys.stdin.readline()
　　　　 if len(line) > 0 and line[0].lower() == 'q': break
　　　　 if re.match(r'^\d+$', line):
　　　　　　 try: map(lambda x: display(g.next()), range(int(line)))
　　　　　　 except: break

103:100
09/06/06 05:32:54
すみません。一箇所間違っていた。
可能経路数(_桝,_開始点_X,_開始点_Y,_経路の数) :-
　findall(1,駒の動き(_桝,_開始点_X,_開始点_Y,_),L),
　length(L,_経路の数).

findall/3の中の駒の動き/4 の第一引数 _桝が>>100では落ちていて、
駒の動き/3 になってしまっていた。

104:デフォルトの名無しさん
09/06/07 11:32:48
ｽﾚﾘﾝｸ(tech板:547番)

[1] 授業単元：プログラミング初歩
[2] 問題文(含コード&リンク)：(文字列を与えられた時、アルファベットを大文字小文字区別せずに出現頻度順
に小文字で並べた文字列を返すプログラムを作りなさい。)
[3] 環境
　[3.1] OS： (WindowsXP)
　[3.2] バージョン： (Ruby 1.8.6 )
　[3.3] 言語： (Ruby
[4] 期限： ([2009年06月01日21:00まで]
[5] その他の制限：配列などの初歩的な概念まで

105:デフォルトの名無しさん
09/06/07 15:16:32
import Data.Char (toLower)
import Data.List (sortBy)
import Data.Function (on)
import Data.Map (fromListWith, toList)

t104 :: String -> String
t104 = map fst . sortBy ((flip compare) `on` snd) . toList . fromListWith (+) . (flip zip (repeat 1)) . map toLower

106:デフォルトの名無しさん
09/06/07 16:43:57
% Prolog >>105とは対照的なプログラム
t104(Atom,AtomX) :-
　　findall([0,N],for(97,N,122),L),
　　to_lower(Atom,Atom2),
　　atom_codes(Atom2,L1),
　　t104_2(L1,L,L2),
　　sort(L2,L3),
　　t104_3(L3,[],L4),
　　atom_codes(AtomX,L4),!.

t104_2([],X,X).
t104_2([A|R1],L,X) :-
　　t104_3(A,L,L1),
　　t104_2(R1,L1,X).

t104_3(97,[[S,N]|R],[[S1,N]|R]) :-
　　S1 is S+1.
t104_3(N,[U|R1],[U|R2]) :-
　　N > 97,
　　M is N-1,
　　t104_3(M,R1,R2).

t104_4([],X,X).
t104_4([[0,_]|R1],Y,X) :-
　　t104_4(R1,Y,X).
t104_4([[C,N]|R1],Y,X) :-
　　C > 0,
　　t104_4(R1,[N|Y],X).

107:デフォルトの名無しさん
09/06/07 17:35:27
>>106
せっかく t104_2 から t104_3 が同一プログラムパターンできているのだから、
t104_4 も同一パターンに徹するべき。

t104_4([],[]).
t104_4([[0,_]|R1],X) :-
　　t104_4(R1,X).
t104_4([[C,N]|R1],[N|R2]) :-
　　C > 0,
　　t104_4(R1,R2).

その代わり、
t104(Atom,AtomX) :-
　　findall([0,N],for(97,N,122),L),
　　to_lower(Atom,Atom2),
　　atom_codes(Atom2,L1),
　　t104_2(L1,L,L2),
　　sort(L2,L3),
　　reverse(L3,L4),
　　t104_3(L4,L5),
　　atom_codes(AtomX,L5),!.

とする。多分、reverse/2 を使いたくなかったのだろうけれど。

108:デフォルトの名無しさん
09/06/08 04:59:14
ｽﾚﾘﾝｸ(tech板:590番)
[1] 授業単元：Cプログラミング
[2] 問題文(含コード&リンク)：ポインタ配列
char *month[ ] = { "None", "January", "February", "March", "April", "May", "June
", "July",
"August", "September", "October", "November", "December" };
を用いて1～12の数値を入力してJanuary～Decemberを返す関数GetMonthを作成せよ.

109:デフォルトの名無しさん
09/06/08 05:07:09
% Prolog (問題やさし過ぎた! Prologチュートリアルと思ってください)
month(['None','January','February','March','April','May','June','July',
'August','September','October','November','December']).

'GetMonth'(_数値,_月名) :-
　　month(_月名ならび),
　　M is _数値 + 1,　　/* どうしても'None'から始まるのだとすると */
　　list_nth(_数値,_月名ならび,_月名).

% 組込みになっていると思いますが list_nth/3 の定義は、
list_nth(1,[X|_],X).
list_nth(N,[_|R],X) :- integer(N),N > 1,M is N-1,list_nth(M,R,X).

110:109
09/06/08 05:41:15
% 間違い。
'GetMonth'(_数値,_月名) :-
　　month(_月名ならび),
　　M is _数値 + 1,　　/* どうしても'None'から始まるのだとすると */
　　list_nth(_数値,_月名ならび,_月名).
は

'GetMonth'(_数値,_月名) :-
　　month(_月名ならび),
　　M is _数値 + 1,　　/* どうしても'None'から始まるのだとすると */
　　list_nth(M,_月名ならび,_月名).

が正しい。お粗末!

111:デフォルトの名無しさん
09/06/08 05:52:17
ｽﾚﾘﾝｸ(tech板:640番)
【　課題　】
指定したフォルダの中身をフォルダの構成などを含めて完全にバックアップするソフトを作成すること。

尚、バックアップファイルには以下の機能を持つようにすること。

・対象ファイルや除外ファイルを指定できるような
仕組みを持つこと。
・バックアップ経過のログを作成すること。
ログにはバックアップ処理の実行時間を出力すること。

また、既にあるフォルダが指定された場合の対処についてもそれぞれ考慮して
機能の実装を行うこと。

作業に余裕のある人は以下の機能を追加すること。

・バックアップしたファイルを圧縮する仕組みの追加。
・プログラムが常駐する仕組みの追加。

112:デフォルトの名無しさん
09/06/08 06:06:01
ｽﾚﾘﾝｸ(tech板:385番)
問題文：
１、10個の文字を1つずつ入力し、それらを入力した順に
　　並べて表示
２、10個の文字を1つずつ入力し、それらを入力した順と逆順に
　　並べて表示
３、5文字以上の長さの文字列を入力し、4番目の文字と5番目の文字を入れ替えて表示
４、10個の1桁の整数を入力し、それらを大きい順に並べて表示
５、10個の1桁の整数を入力し、その中から最も大きい3個を入力した順に表示
６、1桁の整数の入力を、同じ数が3回入力されるまで繰り返す
７、1桁の整数の入力を、0から9までの全ての数が入力されるまで繰り返す

113:デフォルトの名無しさん
09/06/08 20:23:27
>>112 (5、この問題だけしか通用しないアルゴリズム？)
t112_5(L,X) :-
t112_5(L,[0,0,0],X).

t112_5([],L,L).
t112_5([A|R],L1,L) :-
top3(A,L1,L2),
t112_5(R,L2,L).

top3(N,[A,B,C],[A,B,N]) :-
A >= B,A >= C,B >= C,N > C.
top3(N,[A,B,C],[A,C,N]) :-
A >= B,A >= C,C >= B,N > B.
top3(N,[A,B,C],[B,C,N]) :-
B >= A,B >= C,C >= A,N > A.
top3(N,[A,B,C],[A,B,N]) :-
B >= A,B >= C,A >= C,N > C.
top3(N,[A,B,C],[B,C,N]) :-
C >= A,C >= B,B >= A,N > A.
top3(N,[A,B,C],[A,C,N]) :-
C >= A,C >= B,A >= B,N > B.
top3(_,L,L).

114:113
09/06/08 21:03:51
>>112 ちょっと読み難いので書き直し。私は力技でタイプしてしまいましたが
top3/3 をどれだけ素早く質問から(?- ...)生成できるかということのようです。

t112_5(L,X) :-
　　t112_5(L,[0,0,0],X).

t112_5([],L,L).
t112_5([A|R],L1,L) :-
top3(A,L1,L2),
　　t112_5(R,L2,L).

top3(N,[A,B,C],[A,B,N]) :-
　　A >= B,A >= C,B >= C,N > C.
top3(N,[A,B,C],[A,C,N]) :-
　　A >= B,A >= C,C >= B,N > B.
top3(N,[A,B,C],[B,C,N]) :-
　　B >= A,B >= C,C >= A,N > A.
top3(N,[A,B,C],[A,B,N]) :-
　　B >= A,B >= C,A >= C,N > C.
top3(N,[A,B,C],[B,C,N]) :-
　　C >= A,C >= B,B >= A,N > A.
top3(N,[A,B,C],[A,C,N]) :-
　　C >= A,C >= B,A >= B,N > B.
top3(_,L,L).

115:デフォルトの名無しさん
09/06/08 21:21:24
ｽﾚﾘﾝｸ(tech板:9番)
マッチロジックを用い、次に示すようなプログラムを作りなさい

1）顧客情報が入った旧マスタファイル（M)とトランザクションファイル（T）から新マスタファイル
（N)を作成する

2）各ファイルのレコードは以下
社員コード　社員名　電話番号
数値4桁　　文字18桁　文字12桁

3）Tには同一の社員レコードが複数ある

4）いずれのファイルも社員コードの昇順になっている

5）Mに存在する社員レコードがTにない場合は、MのレコードをNに追加し、Mに存在する社員レコードが
Tにある場合はTのレコードをNに追加する
（Tに同一の社員コードが複数存在する場合は1番下のレコードを追加）
Mに存在しない社員コードがTにある場合はTのレコードをNに追加

116:デフォルトの名無しさん
09/06/08 21:22:42
つづき、
処理手順
１）M、Tともにデータがある、MとTを比較
　①M<Tのとき
　　→Mを出力
　②M=Tのとき
　　→Tを出力③
　③T同士で比較
　　同じコードのデータが複数ある→1番下のデータを出力
　④Mを読み込む
　⑤M>Tのとき
　　→Tを出力③
２）Mにのみデータがある
　　Mを出力
３）Tにのみデータがある
　　Tを出力③
４）両方のファイルがなくなれば終了

117:デフォルトの名無しさん
09/06/09 12:12:08
>>115 COBOL向き問題
% Prolog(1/2) オンメモリ版
t115(M,T) :-
　　g115(M,L1),
　　g115(T,L2),
　　b(L1,L2,L3),
　　p115(M,L3).

b([],[],[]) :- !.
b([A|R1],[],[A|R3]) :- !,b(R1,[],R3).
b([],[B|R2],[B|R3]) :- !,b([],R2,R3).
b([[A|B]|R1],[[C|D]|R2],[[A|B]|R3]):-A@<C,!,b(R1,[[C|D]|R2],R3).
b([[A|B]|R1],[[C|D]|R2],[[D|D]|R3]):-A@>C,!,b([[A|B]|R1],R2,R3).
b(L1,L2,[[B|D]|R3]) :- b_2(L2,[[B|D]|R2]),b(L1,R2,R3).

b_2([A],[A]) :- !.
b_2([[A|B],[C|D]|R],[[A|B],[C|D]|R]]) :- A @< C.
b_2([[A|B],[C|D]|R],X) :- A = C,b_2([[C|D]|R],X).

118:デフォルトの名無しさん
09/06/09 12:13:21
% Prolog(2/2)

g115(File,X) :-
　　open(File,read,Input),
　　findall(W,(repeat,get_line(Input,U),(U=end_of_file,!,fail;cut115(U,W)),X),
　　close(Input).

p115(File,L) :-
　　open(File,write,Output),
　　( member(U,L),
　　　concat_atom(U,X),
　　　write_formatted(Output,'%t\n',[X]),
　　　fail;
　　　close(Output)
　　).

cut115(A,[A1,A2]) :- sub_atom(A,0,4,R,A1),subatom(A,4,R,_,A2).

% Library Utility
get_line(Stream,X) :-
　　findall(C,(repeat,get_char(C),(X='\n',!,fail;true)),X).
　　concat_atom(L,X).

concat_atom([A],A).
concat_atom([A|R],X) :- concat_atom(R,Y),atom_concat(A,Y,X).

119:117
09/06/09 12:20:20
>>118 間違いがありました。訂正します。
get_line(Stream,X) :-
　　findall(C,(repeat,get_char(C),(X='\n',!,fail;true)),X).
　　concat_atom(L,X).
は
get_line(Stream,X) :-
　　findall(C,(repeat,get_char(Stream,C),(C='\n',!,fail;true)),X).
　　concat_atom(L,X).
が正しい。
findall/3の中に2箇所誤りがありました。

120:デフォルトの名無しさん
09/06/09 13:32:07
>>112 6、
% Prolog

t112_6(X) :- get_integer(N),t112_6(N,[N],X).

t112_6(N,L,N) :- count(N,L,3).
t112_6(N,L,X) :- get_integer(M),t112_6(M,[M|L],X).

count(A,[],0).
count(A,[A|R],X) :- count(A,R,Y),X is Y+1.
count(A,[_|R],X) :- count(A,R,X).

get_integer(N) :- repeat,write('整数(0-9).改行 ? '),read(N),N>=0,N=<9,!.

121:デフォルトの名無しさん
09/06/09 13:52:34
>>112 7、
% Prolog

t112_7 :- get_integer(N),t112_7(N,[N]).

t112_7(N,L) :- length(L,10).
t112_7(N,L) :- member(N,L),get_integer(M),t112_6(M,L).
t112_7(N,L) :- not(member(N,L)),get_integer(M),t112_7(M,[N|L]).

get_integer(N) :- repeat,write('整数(0-9).改行 ? '),read(N),N>=0,N=<9,!.

122:デフォルトの名無しさん
09/06/09 16:09:43
>>74
% Prolog
URLﾘﾝｸ(nojiriko.asia)

123:デフォルトの名無しさん
09/06/09 20:40:10
<<問題>>
ｽﾚﾘﾝｸ(tech板:64番)
URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)

124:デフォルトの名無しさん
09/06/09 20:45:27
>>123
% Prolog
URLﾘﾝｸ(nojiriko.asia)

125:デフォルトの名無しさん
09/06/10 05:01:30
ｽﾚﾘﾝｸ(tech板:355番)

課題：三つの整数を入力し、三辺がそれらの長さであるような三角形が
作れる時に「OK」、作れないときに「NG」を出力する。

126:デフォルトの名無しさん
09/06/10 05:06:37
>>125
URLﾘﾝｸ(nojiriko.asia)

127:124
09/06/10 05:45:42
URLﾘﾝｸ(nojiriko.asia)

<BODY><PRE>
が落ちていたため改行して表示されませんでした。
訂正しました。

128:デフォルトの名無しさん
09/06/10 06:58:11
<<課題>> これもC/C++の宿題から
ｽﾚﾘﾝｸ(tech板:122番)
URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)

129:デフォルトの名無しさん
09/06/10 07:19:16
>>128
% Prolog
% t128_1 はパス

t128_2(L,X) :- append([_|L1],[T],L),append(L1,[T,T],X).

t128_3(L,[A,A|L1]) :- append([A|L1],[_],L).

130:デフォルトの名無しさん
09/06/10 07:35:49
課題はリンクを張っただけだと、そちらのスレが
過去スレログに回ってしまうと簡単には見られなくなるな。
やはり、少なくともポイントは<<課題>>の後に書かないと。

131:デフォルトの名無しさん
09/06/10 12:21:33
ｽﾚﾘﾝｸ(tech板:529番)
[1] 授業単元：Ruby
[2] 問題文　ファイル分割

下記は、hoge.csvを均等に4分割して tmp/ 以下に書き込むプログラムである。

ruby split.rb hoge.csv tmp/ 4

出力例
tmp/1out.csv
tmp/2out.csv
tmp/3out.csv
tmp/4out.csv

132:デフォルトの名無しさん
09/06/10 12:31:50
>>131
% Prolog
URLﾘﾝｸ(nojiriko.asia)

133:デフォルトの名無しさん
09/06/10 17:09:06
<<課題>> C/C++
[1] 授業単元：ｃ言語
[2] 問題文:
URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
課題1-3 で作成したvoid fCountHindo(FILE*) に対して、英小文字を大文字として数える void fCountHindoIgnoreCase(FILE *)を作りなさい。

134:デフォルトの名無しさん
09/06/10 17:11:39
>>133
% Prolog
URLﾘﾝｸ(nojiriko.asia)

あまり、課題に拘らず汎用的に作ってしまった。あしからず。

135:デフォルトの名無しさん
09/06/10 19:57:19
いい問題みつけた。
[1] 授業単元：C言語演習課題
URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
問題
年と月を「YYYY/MM」と入力し、入力された月のカレンダーを表示しなさい。

1752年10月以前、及び10000年1月以降はエラーを返す。

出力形式は以下のとおり
・1行目は該当月の1日が月曜日でなければ、前月の最終月曜日から表示。
・該当月の最終日が日曜日でなければ、翌月の第1日曜日まで表示。
・6行目の表示が必要ない場合は表示しない。

うるう年判定は以下のとおり
・年が4で割り切れる年はうるう年。
・年が100で割り切れる年はうるう年でない。
・年が400で割り切れる年はうるう年である。

[出力例]
年月日を入力：2009/07

月火水木金土日
29 30 01 02 03 04 05
06 07 08 09 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31 01 02

136:デフォルトの名無しさん
09/06/11 03:29:11
<<課題>> Ruby
[1] 授業単元： Ruby演習 [2] 問題文、URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
Rubyの問題がわかりません
助けてください

（１）曜日を表す英語と日本語との対応を表すハッシュwdayを定義しなさい

p wday["sunday"] #=> "日曜日"
p wday["monday"] #=> "月曜日"
p wday["saturday"] #=> "土曜日"

(2)ハッシュのメソッドを使って（１）のハッシュwdayのペアの数を数えなさい

（３）eachメソッドと（１）のハッシュwdayを使って以下の文字列を出力させてください。
「sunday」は日曜日のことです。
「monday」は月曜日のことです。
…

(4)ハッシュには配列の%wのようなものがありません。そこで、空白とタブと改行（正規表現で定義するなら「／＼s+／」）で区切られた文字列をハッシュに変換するメソッドstr2hashを定義してください。

p str2hash("bule 青 white 白＼nred赤");
#=> {"bule"=>"青", "white"=>"白", "red"=>"赤"}

137:デフォルトの名無しさん
09/06/11 05:06:33
>>135 まだ解答ではありません。基準日から順に曜日を調べるユーティリティ
% Prolog(1/2)
前日・今日(_前日の年/12/31,_前日の曜日,_年/1/1,_曜日) :-
一つ違い(_前日の年,_年),
曜日連鎖(_前日の曜日,_曜日).
前日・今日(_年/2/29,_前日の曜日,_年/3/1,_曜日) :-
うるう年(_年),
曜日連鎖(_前日の曜日,_曜日).
前日・今日(_年/2/28,_前日の曜日,_年/3/1,_曜日) :-
not(うるう年(_年)),
曜日連鎖(_前日の曜日,_曜日).
前日・今日(_年/_前月/30,_前日の曜日,_年/_月/1,_曜日) :-
一つ違い(_前月,月),
member(_前月,[4,6,9,11]),
曜日連鎖(_前日の曜日,_曜日).
前日・今日(_年/_前月/31,_前日の曜日,_年/_月/1,_曜日) :-
一つ違い(_前月,_月),
member(_前月,[1,3,5,7,8,10,12]),
曜日連鎖(_前日の曜日,_曜日).

138:デフォルトの名無しさん
09/06/11 05:08:53
すみません。書き直しです。
% Prolog (1/2)
前日・今日(_前日の年/12/31,_前日の曜日,_年/1/1,_曜日) :-
　　一つ違い(_前日の年,_年),
　　曜日連鎖(_前日の曜日,_曜日).
前日・今日(_年/2/29,_前日の曜日,_年/3/1,_曜日) :-
　　うるう年(_年),
　　曜日連鎖(_前日の曜日,_曜日).
前日・今日(_年/2/28,_前日の曜日,_年/3/1,_曜日) :-
　　not(うるう年(_年)),
　　曜日連鎖(_前日の曜日,_曜日).
前日・今日(_年/_前月/30,_前日の曜日,_年/_月/1,_曜日) :-
　　一つ違い(_前月,月),
　　member(_前月,[4,6,9,11]),
　　曜日連鎖(_前日の曜日,_曜日).
前日・今日(_年/_前月/31,_前日の曜日,_年/_月/1,_曜日) :-
　　一つ違い(_前月,_月),
　　member(_前月,[1,3,5,7,8,10,12]),
　　曜日連鎖(_前日の曜日,_曜日).

139:デフォルトの名無しさん
09/06/11 05:10:20
% Prolog(2/2)
一つ違い(M,N) :-
　　integer(M),!,
　　N is M + 1.
一つ違い(M,N) :-
　　integer(N),!,
　　M is N + 1.

うるう年(_年) :- 0 is _年 mod 400,!.
うるう年(_年) :- 0 is _年 mod 100,!,fail.
うるう年(_年) :- 0 is _年 mod 4,!.
うるう年(_年) :- not(0 is _年 mod 4),fail.

曜日連鎖(月曜,火曜).
曜日連鎖(火曜,水曜).
曜日連鎖(水曜,木曜).
曜日連鎖(木曜,金曜).
曜日連鎖(金曜,土曜).
曜日連鎖(土曜,日曜).
曜日連鎖(日曜,月曜).

140:139
09/06/11 05:13:26
訂正
一つ違い(M,N) :-
　　integer(M),!,
　　N is M + 1.
一つ違い(M,N) :-
　　integer(N),!,
　　M is N - 1.

141:デフォルトの名無しさん
09/06/11 05:50:17
>>140 の一つ違いという述語ですが、これは>>135の前日・今日に
「双方向性」を与えるたのトリックです。
一般に関数評価述語 is が条件に現れると双方向性は失われてしまいます。
?- var(A),5 is A + 2. がエラーになってしまうからです。
それを回避するというか、誤魔化しているのですね。

142:デフォルトの名無しさん
09/06/11 06:03:37
前日・今日の最後の節がコピペできていませんでした。

前日・今日(_年/_月/_前日,_前日の曜日,_年/_月/_日,_曜日) :-
　　一つ違い(_前日,_日),
　　曜日連鎖(_前日の曜日,_曜日).

が一番最後に来ますね。

143:デフォルトの名無しさん
09/06/11 07:18:14
>>136 (4)だけです
% Prolog (正規表現との競争ということかな少し負けるが・・)
% URLﾘﾝｸ(nojiriko.asia)
:- op(700,xfx,(=>)).
t136(Atom,X) :- 英語色日本語色ペアリストの作成(Atom,X).

英語色日本語色ペアリストの作成(Atom,X) :-
　　atom_chars(Atom,Chars),
　　文字ならびから英語色日本語色ペアリストの作成(Chars,X),!.

文字ならびから英語色日本語色ペアリストの作成([],[]).
文字ならびから英語色日本語色ペアリストの作成(L,[_英語色=>_日本語色|R]) :-
　　一語切り出す(L,L2,R1),
　　一語切り出す(R1,L3,R2),
　　atom_chars(_英語色色,L2),
　　atom_chars(_日本語色色,L3),
　　文字ならびから英語色日本語色ペアリストの作成(R2,R).

一語切り出す([],[],[]).
一語切り出す(['\t'|R1],[],R1).
一語切り出す([' '|R1],[],R1).
一語切り出す(['\n'|R1],[],R).
一語切り出す([A|R1],[A|R2],R) :-
　　一語切り出す(R1,R2,R).

144:143
09/06/11 07:25:29
>>143
色色とあるのは色の間違いです。

　　atom_chars(_英語色色,L2),
　　atom_chars(_日本語色色,L3),
=>
　　atom_chars(_英語色,L2),
　　atom_chars(_日本語色,L3),

145:デフォルトの名無しさん
09/06/11 21:23:42
<<問題>>
ｽﾚﾘﾝｸ(tech板:206番)
[1] プログラミング
[2] 入力した数値を4で割った余りを求めるプログラムを作れ。(switch)を用いて。

146:デフォルトの名無しさん
09/06/11 21:25:02
>>145
% Prolog
'4で割ったあまり'(0,0).
'4で割ったあまり'(1,1).
'4で割ったあまり'(2,2).
'4で割ったあまり'(3,3).
'4で割ったあまり'(N,X) :- M is N-4,'4で割ったあまり'(M,X).

147:デフォルトの名無しさん
09/06/11 21:32:29
>>145
このプログラムを
?- member(N,[11,33,47,51]),'4で割ったあまり'(N,X).

のように使うと不具合が生じる。どんなことになるか？
>>146 を適切なプログラムに書き換えなさい。

148:143
09/06/11 21:42:17
Prologでペアリストとは[[a,1],[c,3], ... [y,26]]のような形式かな。
>>143では　_=>_ の形式にしたからペアではないかも知れない。
Rubyに合わせてみたのだが。
ここでは、その方が分かり易いかと思ってペアリストという名称を
借用したが、普段は「対のならび」という言葉を使うところ。

149:デフォルトの名無しさん
09/06/11 21:45:40
ｽﾚﾘﾝｸ(tech板:675番)
【　課題　】二つの文字列str1 とstr2 を入力して、str1 とstr2 から交互に一文字ずつ順番にとりだして、交
互にならべた文字列をつくれ。長い方の文字列の後の部分はそのままくっついた形になる。
String,StringBuffer クラスのメソッドを使え。

150:デフォルトの名無しさん
09/06/11 21:59:47
% Prolog
交互にならべた文字列(Str1,Str2,Str) :-
　　atom_chars(Str1,Chars1),
　　atom_chars(Str2,Chars2),
　　交互にならべた文字列_1(Chars1,Chars2,Chars3),
　　atom_chars(Str,chars3).

交互にならべた文字列_1([],[],[]) :- !.
交互にならべた文字列_1(L,[],L) :- !.
交互にならべた文字列_1([],L,L) :- !.
交互にならべた文字列_1([A|R1],[B|R2],[A,B|R]) :-
　　交互にならべた文字列_1(R2,R1,R).

?- 交互にならべた文字列(abcde,opq,X).
X = aobpcqde;
no
?-

151:デフォルトの名無しさん
09/06/11 23:13:06
<<課題>> C
ｽﾚﾘﾝｸ(tech板:209番)
１行に一つづつ表示するプログラムを作成せよ。
空白が２個以上連続してもうまく動作するようにすること。また、コンマ(,)、
ピリオド(,)は表示する単語に含めないこと。

（実行例）
・入力
　　This is a pen.

・出力
　　This
is
a
pen

152:デフォルトの名無しさん
09/06/11 23:20:50
>>151
% Prolog (1/2)
文字列から切り出した単語の行表示(_文字列) :-
　　文字列から単語の切り出し(_文字列,_単語ならび),
　　wrln(_単語ならび).

文字列から単語の切り出し(_文字列,_単語ならび) :-
　　atom_chars(_文字列,_文字ならび),
　　文字ならびを区切り文字により分割する(_文字ならび,L),
　　単語ならびに変換(,_単語ならび).

文字ならびを区切り文字により分割する([A|R1],R2) :-
　　区切り文字(A),
　　文字ならびを区切り文字により分割する(R1,R2),!.
文字ならびを区切り文字により分割する(_文字ならび,[L1|R]) :-
　　append(L1,[A|L2],_文字ならび),
　　区切り文字(A),
　　文字ならびを区切り文字により分割する(L2,R),!.
文字ならびを区切り文字により分割する(_,[]) :- !.

153:デフォルトの名無しさん
09/06/11 23:21:52
>>151
% Prolog (2/2)
区切り文字(' ').
区切り文字('\n').
区切り文字('.').
区切り文字(',').

単語ならびに変換([]) :- !.
単語ならびに変換([L|R1],[_単語|R2]) :-
　　concat_atom(L,_単語),
　　単語ならびに変換(R1,2).

wrln([]) :- !.
wrln([A|R]) :-
　　write_formatted('%t\n',[A]),
　　wrln(R).

154:デフォルトの名無しさん
09/06/12 07:09:25
>>147
'4で割ったあまり'(0,0).
'4で割ったあまり'(1,1).
'4で割ったあまり'(2,2).
'4で割ったあまり'(3,3).
'4で割ったあまり'(N,X) :- N > 3,M is N-4,'4で割ったあまり'(M,X).

155:デフォルトの名無しさん
09/06/12 08:47:13
>>154
's(s(s(s(0))))で割ったあまり'(0,0).
's(s(s(s(0))))で割ったあまり'(s(0),s(0)).
's(s(s(s(0))))で割ったあまり'(s(s(0)),s(s(0))).
's(s(s(s(0))))で割ったあまり'(s(s(s(0))),s(s(s(0)))).
's(s(s(s(0))))で割ったあまり'(s(s(s(s(S)))),X) :- 's(s(s(s(0))))で割ったあまり'(S,X).

以下でもいいのだが。
's(s(s(s(0))))で割ったあまり'(s(s(s(s(S)))),X) :- 's(s(s(s(0))))で割ったあまり'(S,X).
's(s(s(s(0))))で割ったあまり'(X,X) :- not(X=s(s(s(s(_))))).

最後の否定がちょっとややこしい。

156:デフォルトの名無しさん
09/06/12 10:54:16
>>151
LEXを使えば超カンタン！

これで終り
↓

%{
#include <stdio.h>
%}

%option noyywrap

%%

[A-Za-z\']* {printf("%s\n",yytext);}
.|\n

%%

main()
{
yylex();
}

157:デフォルトの名無しさん
09/06/12 22:07:26
<<課題>> C/C++
[1] 授業単元：プログラミング演習
[2] 問題文(含コード&リンク)：URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)

158:デフォルトの名無しさん
09/06/12 22:10:33
>>157
% Prolog
URLﾘﾝｸ(nojiriko.asia)

159:デフォルトの名無しさん
09/06/13 09:42:06
>>135
% Prolog 一応書き上げました。使えるユーティリティを含みますが出来は悪い。
URLﾘﾝｸ(nojiriko.asia)

160:デフォルトの名無しさん
09/06/13 09:47:14
>>74
% Prolog これは忘れてました。
URLﾘﾝｸ(nojiriko.asia)

161:デフォルトの名無しさん
09/06/13 12:39:20
ｽﾚﾘﾝｸ(tech板:701番)
# 【課題】あるコンテナ・ヤードにおけるコンテナの処理状況は次のとおりであった。
# （１）コンテナの入場率平均値：5.0個／時間
# （２）コンテナの捌き率平均値：4.7個／時間
# （３）ゲート数窓口数：１
# このコンテナ・ヤードのゲートにおける滞貨状況
# を計算機シミュレーションにより調べ、考察を加え
# なさい。なお、滞貨状況の考慮時間は１００時間と
# し、昼夜を問わず同様なコンテナの動きであるとす
# る。
#【形態】コマンドプロンプト
#【提出期限】６月26日
#【　Ver　】1.6.0_07
#【補足】入場率は指数分布、捌き率は標準偏差の3倍の範囲
# を考慮する正規分布に従うものとする。
# 変わった課題ですがよろしくお願いします。

162:デフォルトの名無しさん
09/06/14 04:33:08
>>161
# >>701
# URLﾘﾝｸ(rg550.hp.infoseek.co.jp)
#
# ＞捌き率は標準偏差の3倍の範囲を考慮する正規分布に従うものとする。
# ここだけ意味分からなかったから、自分でGateModel#getDepartureInterval()を適当に書き換えて。

163:デフォルトの名無しさん
09/06/14 04:55:01
ｽﾚﾘﾝｸ(tech板:324番)
# [1] 授業単元：プログラミング
# [2] 問題文
# 問5.1に示す表を表示するプログラムを作成せよ。
# ただし氏名はポインタ配列を用いて参照するようにし、年齢、初任給は配列に入れる。
#
# 氏名は次のようにポインタ配列に初期値として入れる。
# char *namae[]={"高専卒男","大学学男","大学修治"};
#
# 年齢、初任給は二次元配列salary[3][2]を宣言してそこに読み込む。方法としては次の2通りがある。
# (1)キーボードから読み込む
# (2)配列の初期設定で行う
# Salary[][2]={{20,215000},
# {22,235000},
# {24,255000}};
#
# 表はこれです
# URLﾘﾝｸ(a.pic.to)
# 氏名 ,年齢,初任給
# 高専卒男,20,215000
# 大学学男,22,235000
# 大学修治,24,255000

164:デフォルトの名無しさん
09/06/14 05:00:21
>>163
高専卒男さんは20才の時初任給を貰いその額は215000でした。
という意味に解釈せざるを得ない変な表だ。

165:デフォルトの名無しさん
09/06/14 05:48:29
>>163
% Prolog (カンマを含む整数表示にはなっていない)

namae(['高専卒男','大学学男','大学修治']).
'Salary'([[20,215000],[22,235000],[255000]]).

'問5.1に示す表を表示する'(2) :-
　　namae(L1),
　　'Salary'(L2),
　　length(namae,Len),
　　write_formatted('%20s,%8s,%8s\n',[名前,年齢,初任給]),
　　for(1,N,Len),
　　list_nth(N,L1,_名前),
　　list_nth(N,L2,[_年齢,_初任給]),
　　write_formatted('%20s,%8d,%8d\n',[_名前,_年齢,_初任給]),
　　N=Len,
　　write('\n\nURLﾘﾝｸ(a.pic.to) のような美しい表を作るにはポストスクリプト
命令述語を使う必要がありますね\n').

166:デフォルトの名無しさん
09/06/14 07:13:12
ｽﾚﾘﾝｸ(tech板:663番)
#【　課題　】3桁の数値データが複数入ったファイルをバブルソートを用いて
#　　　　　　昇順に整列、新しいファイルに格納。データの件数は50件まで
#【　形態　】1. Javaアプリケーション(main()で開始)
#【　GUI　】制限なし
#【　期限　】6月11日　
#【　Ver　】1.6.0_13
#【　用語　】
#【　補足　】例外処理として、コマンドライン引数が間違っている場合、
#　　　　　　読み込みファイルがオープンできない、書き込みファイルも
#　　　　　　オープンできない、読み込みにファイルがない場合をお願いします。

167:デフォルトの名無しさん
09/06/14 07:24:21
ｽﾚﾘﾝｸ(tech板:276番)
#[1] 授業単元：プログラミング演習
#[2] 問題文(含コード&リンク)：URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
#　　　　　　　　　　　　　　　ほとんど英文です。訳そうとしたんですが自分でも意味がわからなくなったんでそのままにしました。すいません。

168:デフォルトの名無しさん
09/06/15 04:04:07
# <<課題>
ｽﾚﾘﾝｸ(tech板:364番)
# [1] 授業単元：プログラミング実験
# [2] 問題文(含コード&リンク)：　
URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
#【課題１】
#
# 完全列挙法（力ずく法）を用いて巡回セールスマン問題（TSP）を解くプログラムを作成せよ。
# （※1　：　適当に出発点を設定し、そこから出発するすべての閉路を求めその中で最短のものを選択、出力する）
# （※2　：　都市数は外部から入力するものとする）
# （注意　：　プログラムを動かすとき決して大きな都市数を与えてはならない）

169:デフォルトの名無しさん
09/06/15 04:05:58
# >>168 続き
#【課題２】
#
# 順次生成・比較法により、閉路を順次生成し、これまでの最短経路長をもった閉路と閉路長を比較することによってTPSを解くプログラムを作成せよ。
# （※1　：　適当に出発点を定め、そこを出発点とする閉路をひとつ生成し、それをとりあえず最短閉路とする）
# （※2　：　新たに経色を生成し、その閉路長をその時点での最短閉路長と比較し、短い方を最短閉路とする）
# （※3　：　上記のことを全ての閉路について繰り返し、最短閉路を求める）

170:デフォルトの名無しさん
09/06/15 06:12:20
>>166
% Prolog
URLﾘﾝｸ(nojiriko.asia)

171:デフォルトの名無しさん
09/06/15 08:18:42
>>167
% Prolog
URLﾘﾝｸ(nojiriko.asia)

172:デフォルトの名無しさん
09/06/15 19:00:47
ｽﾚﾘﾝｸ(tech板)
[1] 授業単元：For文
[2] 問題文：整数１～１０までの累計（1+2+3････9+10=55）
　[3.1] OS： XP
　[3.2] Turbo C++
　[3.3] C++

簡単だと思いますがアホなんでわかりません。

173:デフォルトの名無しさん
09/06/15 19:01:53
>>172
% Prolog
整数１～１０までの累計(X) :-
　　sum(0,1,10,X).

sum(_空リストの時の値,[],_空リストの時の値). /* _空リストの時の値は 0 か 0.0 */
sum(_空リストの時の値,[A|R1],X) :-
　　sum(_空リストの時の値,R,Y),
　　X is A + Y.

174:デフォルトの名無しさん
09/06/15 19:19:30
>>172
ｽﾚﾘﾝｸ(tech板:408番)
です

175:デフォルトの名無しさん
09/06/15 19:45:03
>>173　普通は、
sum([],0).
sum([A|R],X) :- sum(R,Y),X is A + Y.
で十分。
リストの中に浮動小数点数が一つでもあれば、X は浮動小数点。一つもなく、
整数リストの時は整数解となります。
>>173は実務的には演算はすべて浮動小数点であり、整数の合計はほとんど
使うことがないため、
sum([],0.0).
sum([A|R],X) :- sum(R,Y),X is A+X.
と定義してしまいます。逆にこの問題のように、整数の合計を求める場合は
N is trancate(X) のような評価を被せなくてはならず不便です。それを回避
しようとしているのが>>173の第一引数の指定ということになります。
しかし、上記の理由から型指定としては曖昧で好ましいものではありません。

176:175
09/06/15 19:59:05
N is trancate(X) ではなく N is truncate(X) ですね。

177:デフォルトの名無しさん
09/06/15 20:41:47
ｽﾚﾘﾝｸ(tech板:405番)
[1] 授業単元：プログラミング実習I
[2] 問題文(含コード&リンク)：URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
typedef struct node *Tree;
typedef struct node{
int data;
Tree left_subtree;
Tree right_subtree;
} Node;
という風に定義された構造体を木の節点として
ポインタでつなげることによって表すことができる。
この様に表された2分木の根節点へのポインタが引数
として与えられた時、その2分木の高さ(すなわち、
根節点から葉節点までの枝の本数の最大値)を
調べて返すCの関数
　　　　int height(Tree t);
を定義せよ。ただし、簡単さのため、ここでは、
height(NULL)＝-1として関数定義を行え。

HINT.
2分木の高さに関する
2分木の高さ＝max{(2分木の左部分木の高さ),
(2分木の右部分木の高さ)}+1
という漸化式に着目すれば簡単。

178:デフォルトの名無しさん
09/06/15 20:42:46
>>177
% Prolog
木の高さ([],-1).
木の高さ(_根,_高さ) :-
枝(_根,_左,_右),
木の高さ(_左,_左の高さ),
木の高さ(_右,_右の高さ),
max([_左の高さ,_右の高さ],_高さの二),
_高さ is _高さの二 + 1.

179:177
09/06/15 20:51:49
まちがえた。枝ではなくて、木でした。
% Prolog
木の高さ([],-1).
木の高さ(_根,_高さ) :-
　　木(_根,_左枝,_右枝),
　　木の高さ(_左枝,_左枝の高さ),
　　木の高さ(_右枝,_右枝の高さ),
　　max([_左枝の高さ,_右枝の高さ],_高さの二),
　　_高さ is _高さの二 + 1.

180:デフォルトの名無しさん
09/06/16 02:51:49
ｽﾚﾘﾝｸ(tech板:446番)
#[1] 授業単元：プログラミング
#[2] 問題文(含コード&リンク)：
# キーボードから入力された1行（空白で区切られた正整数並びの文字列）を項に分解して，i番目の項の整数値を配列要素d[i-1]に累算しながら格納するプログラムをつくりなさい。
# ただし，配列dの要素数は10として宣言し，10項目より多い入力の場合は11項目以降を棄却しなさい。
# 1行の入力には関数fgetsを用いなさい。
# fgetsは改行文字も取り込む点に注意して，入力の終了は「改行のみの入力」で判定しなさい。

181:デフォルトの名無しさん
09/06/16 03:01:29
ｽﾚﾘﾝｸ(tech板:413番)
#[1] インタラクティブコミュニケーション
#[2] URLﾘﾝｸ(www.ncc-1701.jp)に書いている演習
# 最後の<<演習>>が課題です。
#[3] 環境
#　[3.1] OS： Windows
#　[3.2] コンパイラ名とバージョン： Windows Visual Studio 2005
#　[3.3] 言語： C
#[4] 期限：今日
#[5] その他の制限：六曜は順番通り巡るとする。

182:デフォルトの名無しさん
09/06/16 06:19:04
>>167
% Prolog (完全日本語版)
URLﾘﾝｸ(nojiriko.asia)

183:デフォルトの名無しさん
09/06/16 08:57:46
>>143

//　０，　１，　２，　３，　４，　５，　６
//火曜，水曜，木曜，金曜，土曜，日曜，月曜
//友引，先負，仏滅，大安，赤口，先勝
#include<stdio.h>
int main(){
int i,n,c=0;
printf("n=");scanf("%d",&n);
for(i=0;i<=n;i++)
if(i%7==5 && i%6!=2)
c++;
printf("%d\n",c);
return 0;
}

184:デフォルトの名無しさん
09/06/16 09:12:06
>>181
% Prolog
URLﾘﾝｸ(nojiriko.asia)

185:デフォルトの名無しさん
09/06/16 09:20:22
ひどい宣伝だな

186:デフォルトの名無しさん
09/06/16 09:51:46
>>168 >>169
完全列挙法順次生成・比較法というのがわからない。
「最短経路の本　レナのふしぎな数学の旅」 p253以下を読み直してみます。

187:デフォルトの名無しさん
09/06/16 10:23:45
ｽﾚﾘﾝｸ(tech板:458番)
#[1] 授業単元：プログラミング
#[2] 問題文(含コード&リンク)：
# n*n行列A、Bをそれぞれキーボードから入力し、積を求めろ。
# 行列の大きさｎもキーボードから入力せよ。多次元配列を使ってください。

188:デフォルトの名無しさん
09/06/16 10:26:32
>>187
% Prolog (1/2)
行列の積(L1,L2,X) :-
　　行列の転置(L,L2,L3),
　　行列の積の一(L1,L3,X).

行列の積の一([],_,[]) :- !.
行列の積の一([A|R1],L,[S1|R3]) :-
　　行列の積の二(A,L,S1),
　　行列の積の一(R1,L,R3).

行列の積の二(_,[],[]) :- !.
行列の積の二(A,[B|R2],[C|R3]) :-
　　行列の積の三(A,B,C),
　　行列の積の二(A,R2,R3).

行列の積の三([],[],0) :- !.
行列の積の三([A|R1],[B|R2],S) :-
　　S1 is A * B,
　　行列の積の三(R1,R2,S2),
　　S is S1 + S2 .

189:デフォルトの名無しさん
09/06/16 10:28:02
>>187
% Prolog (2/2)
行列の転置([],[],[]) :- !.
行列の転置([[A|R]|R1],[A|R2],[R|R3]) :-
　　行列の転置(R1,R2,R3) .

行列の転置([[]|_],[]) :- !.
行列の転置(L,[B|R1]) :-
　　行列の転置(L,B,R2),
　　行列の転置(R2,R1),!.

190:デフォルトの名無しさん
09/06/16 15:29:48
>>180
main = getLine >>= return . scanl1 (+) . map (read :: String -> Int) . take 10 . words >>= \t -> if null t then return () else print t >> main

>>187
import Data.List (transpose)

type Matrix = [[Int]]

fold2l :: (a -> b -> c -> a) -> a -> [b] -> [c] -> a
fold2l f a [] _ = a
fold2l f a _ [] = a
fold2l f a (x:xs) (y:ys) = fold2l f (f a x y) xs ys

mult :: Matrix -> Matrix -> Matrix
mult xss yss = mult' xss $ transpose yss
where
mult' :: Matrix -> Matrix -> Matrix
mult' [] _ = []
mult' (xs:xss) yss = map (\ys -> fold2l (\s x y -> s + x*y) 0 xs ys) yss : mult' xss yss

191:デフォルトの名無しさん
09/06/16 18:29:42
ｽﾚﾘﾝｸ(tech板:481番)
# [1] 授業単元：ソフトウェア演習Ｃ
# [2] 問題文：
# 文書ないのすべての単語とその単語の頻度をメンバとして持つ構造体を定義し、
# この構造体へのポインタをノードの値として持つ二分木のノードを定義せよ
#
# 次に、任意のノードはその左の部分木にはそのノードの単語より辞書順で小さい単語の
みがあり、その右の部分木にはより大きい単語のみがあるように保持される。
# 新たに単語がすでに木にあるかどうかを探すには、ルート(根元)から出発してそのノー
ドに格納されている単語と新しい単語を比較する。
# 二つが一致したら、それで良い。
# 新しい単語が木の単語より小さいときは、探索は左の子供に対して続けられ、そうでな
ければ右の子供が調べられる。
# 求める方向に子供がないときは、新しい単語は木の中にはないと言うことであり、また
実際にはその子供のないところがそれを置く場所である。
# このプロセスは再帰的である必要があり、単語の挿入を行うadd_word()関数を定義せよ
。この関数は再帰的に呼ばれて、左または右の部分木に振り分けられる。
# 単語は木の中の単語と一致する(その場合カウント(頻度)がインクリメントされる)か、
あるいはノードを作成し、木に加えなければならないことを示すヌル・ポインタと出会う
。
# 新たにノードが生成されると、この関数ではそのノードへのポインタが返され、親ノー
ドに埋め込まれる。
# この関数を利用し、以下のテキストをコマンド実行時の引数として与えられたファイル
を入力して二分探索木を生成し、単語と頻度のリストを表示するプログラムを作成せよ。

#
# 文章：
# University was founded in April 1998 at Iwate,
# which is situated in the northeastern part of Japan. University consists of
# four faculties Software and Information Science, Nursing, Social Welfare,
# and policy Studies, and additionally other educational supporut centers.

192:デフォルトの名無しさん
09/06/16 19:49:14
>>191
% Prolog
URLﾘﾝｸ(nojiriko.asia)

193:デフォルトの名無しさん
09/06/16 21:45:48
ｽﾚﾘﾝｸ(tech板:482番)
#[1] 授業単元：プログラミング基礎
#[2] 問題文
#
# URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
# for文やif文を使用して下図のように出力せよ
#
# ★　　　★
# 　★　★
# 　　★
# 　★　★
# ★　　　★
#

194:デフォルトの名無しさん
09/06/16 21:49:07
>>193
% Prolog
URLﾘﾝｸ(nojiriko.asia)

195:デフォルトの名無しさん
09/06/16 21:50:36
>>193
% Prolog
193 :-
t193_1([0,0,0,0,1],[1,0,0,0,0]).

t193_1(L1,L2) :-
L1=[1|_],
★を表示(L1,L2),!.
t193_1(L1,L2) :-
★を表示(L1,L2),
append([A],R1,L1),
append(R1,[A],L3),
append(L4,[B],L2),
t_193_1(L3,[B|L4]).

★を表示([],[]) :- nl.
★を表示([A|R1],[B|R2]) :-
or(A,B,1),
write(★),
★を表示(R1,R2).
★を表示([A|R1],[B|R2]) :-
or(A,B,0),
write('　'),
★を表示(R1,R2).

196:デフォルトの名無しさん
09/06/16 21:54:22
すみません。再表示です。
t193 :-
　　t193_1([0,0,0,0,1],[1,0,0,0,0]).

t193_1(L1,L2) :-
　　L1=[1|_],
　　★を表示(L1,L2),!.
t193_1(L1,L2) :-
　　★を表示(L1,L2),
　　append([A],R1,L1),
　　append(R1,[A],L3),
　　append(L4,[B],L2),
　　t_193_1(L3,[B|L4]).

★を表示([],[]) :- nl.
★を表示([A|R1],[B|R2]) :-
　　or(A,B,1),
　　write(★),
　　★を表示(R1,R2).
★を表示([A|R1],[B|R2]) :-
　　or(A,B,0),
　　write('　'),
　　★を表示(R1,R2).

197:デフォルトの名無しさん
09/06/17 03:32:33
>>196
% Prolog (ちょっとだけ変更)
t193 :-
　　t193_1([' ',' ',' ',' ',★],[★,' ',' ',' ',' ']).

t193_1(L1,L2) :-
　　L1=[★|_],
　　★を表示(L1,L2),!.
t193_1(L1,L2) :-
　　★を表示(L1,L2),
　　append([A],R1,L1),
　　append(R1,[A],L3),
　　append(L4,[B],L2),
　　t_193_1(L3,[B|L4]).

★を表示([],[]) :- nl.
★を表示([' '|R1],[' '|R2]) :-
　　!,
　　write(' '),
　　★を表示(R1,R2).
★を表示([_|R1],[_|R2]) :-
　　write(★),
　　★を表示(R1,R2).

198:197
09/06/17 03:42:45
% 全角スペースがうまく表示できてない・・・

193 :-
　　t193_1(['　','　','　','　',★],[★,'　','　','　','　']).

t193_1(L1,L2) :-
　　L1=[★|_],
　　★を表示(L1,L2),!.
t193_1(L1,L2) :-
　　★を表示(L1,L2),
　　append([A],R1,L1),
　　append(R1,[A],L3),
　　append(L4,[B],L2),
　　t_193_1(L3,[B|L4]).

★を表示([],[]) :- nl.
★を表示(['　'|R1],['　'|R2]) :-
　　!,
　　write('　'),
　　★を表示(R1,R2).
★を表示([_|R1],[_|R2]) :-
　　write(★),
　　★を表示(R1,R2).

次ページ