いろんな言語で宿題スレ

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 2chのread.cgiへ]
Update time : 06/19 21:59 / Filesize : 314 KB / Number-of Response : 617
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

いろんな言語で宿題スレ

1 名前：a36 ◆K0BqlCB3.k [2009/05/21(木) 12:30:47 ]: 他の宿題スレで出された問題を各々好きな言語で解答して言語の良さを競い合うスレです。
なお、宿題スレが存在する言語についてはその言語のスレで解答してください。

C/C++の宿題片付けます 126代目
pc12.2ch.net/test/read.cgi/tech/1242655611/

Python の宿題ここで答えます Part 1
pc12.2ch.net/test/read.cgi/tech/1153585095/

★★ Java の宿題ここで答えます Part 67 ★★
pc12.2ch.net/test/read.cgi/tech/1232627790/

Pascalの宿題は俺にやらせろ！！Part2
pc12.2ch.net/test/read.cgi/tech/1136994325/

BASICの宿題はお前にまかせた
pc12.2ch.net/test/read.cgi/tech/1136788500/

Rubyの宿題教えてください。2限目
pc12.2ch.net/test/read.cgi/tech/1200175247/

C#,C＃の宿題片付けます。
pc12.2ch.net/test/read.cgi/tech/1197620454/
266 名前：デフォルトの名無しさん mailto:sage [2009/06/22(月) 17:23:44 ]: pc12.2ch.net/test/read.cgi/tech/1153585095/878
#エラトステネスの篩
#（コードは煩雑そうに見えるが、速度が圧倒的に速い。
#　大きな数までの素数表が必要な場合に必要な方法。）
% 宿題には見えないんだが・・
267 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/06/22(月) 22:55:11 ]: pc12.2ch.net/test/read.cgi/tech/1244449887/842
# [1] C言語
# [2]１～５の数字の組み合わせをを2次元配列index[][]に格納し、表示しなさい。
269 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/06/22(月) 23:05:33 ]: pc12.2ch.net/test/read.cgi/tech/1244449887/837
# キーボードから入力した数値の段数を持つ逆ピラミッドを表示するプログラム。
#
# 例えば３と入力した時、
#
# ＊＊＊＊＊
# ＊＊＊
# ＊
#
# となるようなプログラムです。
# どうか早急にお願いします。
272 名前：デフォルトの名無しさん [2009/06/22(月) 23:08:00 ]: >>271
問題が面白くないっす
やる気起きないっす
273 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/06/23(火) 04:33:24 ]: pc12.2ch.net/test/read.cgi/tech/1244449887/851
# あいうえお
# /*かきくけこ*/
# さしす/*せそ
# なにぬ*/ねの
#
# というファイル（test.txt）から文字数、改行数、コメント文字数をカウントし、出力するプログラムです。
# お願いいたします。
275 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/06/23(火) 05:19:10 ]: pc12.2ch.net/test/read.cgi/tech/1244449887/861
# 以下のように出力されるプログラムを作成せよ
# 年齢を入力してください
# 16
# 生まれた年を入力してください
# 1986
# 好きな数字を入力してください
# 7
# あなたは1986年生まれの16才で、7が好きですね
278 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/06/23(火) 05:41:29 ]: pc12.2ch.net/test/read.cgi/tech/1244449887/879
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9519.txt
280 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/06/23(火) 07:26:37 ]: pc12.2ch.net/test/read.cgi/tech/1244449887/849
# [1]授業単元：プログラミング演習課題3
# [2]問題文：kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9516.txt
# ファイルに登録された成績コードを読み、構造体列にデータを編集し指定された項目で
# ソート処理を行って、画面に一覧（見出しと明細データ）を出力する。
# ソートの順序は降順とし、10行毎に見出しを入れる。
#
# 成績ファイル：
# コード（6桁）,氏名（20桁）,国語（3桁）,算数（3桁）,理科（3桁）,社会（3桁）
#
# 構造体の定義：
# struct seito {
# char cd[7];
# char simei[21];
# int kokugo;
# int sansu;
# int rika;
# int syakai;
# };
#
# ソート項目は、コード、氏名、国語、算数、理科、社会が選択できるようにする。
282 名前：デフォルトの名無しさん mailto:sage [2009/06/23(火) 15:12:50 ]: >>281
% Prolog
nojiriko.asia/prolog/t281.html
283 名前：デフォルトの名無しさん mailto:sage [2009/06/23(火) 15:20:30 ]: pc12.2ch.net/test/read.cgi/tech/1244449887/890
# [1] 授業単元：数理物理
# [2] 問題文(含コード&リンク)：www.mns.kyutech.ac.jp/~kamada/suuributuri/
sub8.html
# 　　の課題３のプログラムで解くところまで
# 課題（３）
#
# 次の力が働いているときの、運動方程式を解く。
#
# F = -x - v ^ 3 + 1 + cos(t)
#
# 初期条件：ｔ＝０の時、ｘ（０）＝１．０、速度ｖ（０）＝‐０．５
# として解き、０＜ｔ＜１０までをgnuplot（など）で、プロットせよ。
#
# ヒント：
# ６章の減衰振動のプログラム（C言語）
# www.mns.kyutech.ac.jp/~kamada/keisan6/
284 名前：デフォルトの名無しさん mailto:sage [2009/06/23(火) 20:03:38 ]: pc12.2ch.net/test/read.cgi/tech/1244449887/905
# [1]c++
# [2]2次元配列n[10][10]のすべての要素に1を代入してから、その内容を表示しなさい。

# また、対角要素だけを1を代入し、ほかはすべて0を代入してから、表示しなさい。
# ただし、対角要素は左上隅から右下隅への対角線上の要素とする。次の図は実行例であ
る。
# 　--- (2)配列nの内容 ---
#
# 100000000
# 010000000
# 001000000
# 000100000
# 000010000
# 000001000
# 000000100
# 000000010
# 000000001
285 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/06/24(水) 08:30:30 ]: >>287
forループがlengthの中に閉じ込められているんだね。

これぞ宣言型プログラミング！
289 名前：デフォルトの名無しさん mailto:sage [2009/06/24(水) 12:04:36 ]: >>257
% Prolog
nojiriko.asia/prolog/t257.html
290 名前：デフォルトの名無しさん mailto:sage [2009/06/24(水) 19:14:07 ]: pc12.2ch.net/test/read.cgi/tech/1244449887/953
# [1] 授業単元：ピラミッドアート
# [2] 問題文(含コード&リンク)： kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9534.txt
課題「ピラミッドアート」

数値を一つ入力し、その個数分の'*'を1辺とする
①ダイヤ型、②八角形、③星型　などを描画する

実行画面例①ダイヤ型
数字（2～9）を入力してください：3
*
***
*****
***
*

実行画面例②八角形
数字（2～9）を入力してください：2
**
****
****
**

実行画面例③星型
数字（2～9）を入力してください：7
* * *
* * *
***
*******
***
* * *
* * *
291 名前：デフォルトの名無しさん mailto:sage [2009/06/24(水) 19:16:01 ]: >>290
空白がうまく表示できなかった。
ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9534.txt
で確認してください。
292 名前：デフォルトの名無しさん mailto:sage [2009/06/24(水) 20:15:45 ]: >>290
% Prolog
nojiriko.asia/prolog/t290.html
293 名前：デフォルトの名無しさん mailto:sage [2009/06/26(金) 16:58:48 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/75
# [1] 授業単元：Ｃ
# [2] 問題文(含コード&リンク)：
# キーボードから入力された１以上の整数ｎについて、次の例に示すように行番号と*を表示するプログラムを作成せよ
# 。また、０や負の数が入力された場合はプログラムが終了するようにせよ。
# 表示結果の例
# 正の整数：6
# 1******
# 2　*****
# 3　　****
# 4　　　***
# 5　　　　**
# 6 *
294 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/06/26(金) 17:16:07 ]: >>294
　　all(L1,' '), はスペース2個だと思ってください。
296 名前：デフォルトの名無しさん mailto:sage [2009/06/26(金) 18:11:51 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/83
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# 自分の名前の英字名のASCIIコードを順番に表示するプログラムを作りなさい。
297 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/06/26(金) 18:41:30 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/85
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)： kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9554.txt
299 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/06/26(金) 19:56:51 ]: >>301 さらに訂正。
phon_1([],[]) :- !. の後に、
phon_1([A],[C]) :-
　　フォネティックコード(A,C),!.
phon_1([A],[A]) :-
　　not(フォネティックコード(A,_)),!.

の2節を追加してください。
nojiriko.asia/prolog/t298.html
に書き直しておきます。
303 名前：299 mailto:sage [2009/06/26(金) 20:35:21 ]: なぜこうまでも全編の書き直しを余儀なくされたかというと、
123abc の場合の 123 Alfa ...　3とAlfaの間のスペースを入れることが
難しかったと言うことです。sub_atomで次の文字をこっそり見てしまえば
いいだけの事なのですが、潔しとせずと言うところでしょうか。
304 名前：デフォルトの名無しさん mailto:sage [2009/06/26(金) 20:44:07 ]: >>303
前後関係を検査しやすいパターンで記述するので正解じゃないか。
ご苦労様ですｗ
305 名前：デフォルトの名無しさん mailto:sage [2009/06/26(金) 22:04:55 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/46
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：入力した数を2の何乗より大きいかを求めるプログラム。
306 名前：デフォルトの名無しさん mailto:sage [2009/06/26(金) 22:15:19 ]: >>305
% Prolog

t305(N,X) :-
for(1,M,N),
2 ^ M > N,
X is M - 1.
307 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/06/28(日) 14:57:43 ]: 「いろんな言語で宿題スレ」の中で
pc12.2ch.net/test/read.cgi/tech/1242876647/168
pc12.2ch.net/test/read.cgi/tech/1242876647/225
といったProlog向き問題が未回答となっています。
どなたか、よろしくお願いします。
309 名前：308 mailto:sage [2009/06/28(日) 14:59:04 ]: 「Prologでまったり」スレに書き込んだつもりでした。失礼しました。
310 名前：デフォルトの名無しさん mailto:sage [2009/06/29(月) 04:55:03 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/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 名前：デフォルトの名無しさん mailto:sage [2009/06/29(月) 11:08:26 ]: pc12.2ch.net/test/read.cgi/tech/1232627790/856
# 【　課題　】百ます計算プログラムの作成
# 足す数、足される数は実行毎にランダムな順番にする。
# スタートボタンを押すと同時に問題が表示され、答えをキー入力しおわるとストップボタンを押す。
# 終了までの時間と、正解数を表示する。

百ます計算ってなんですか？　ゲームに参加した人が行、列の先頭から
数字を得て百桝計算し終わるまでの時間でも競うのですか？
312 名前：デフォルトの名無しさん mailto:sage [2009/06/29(月) 13:29:06 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/184
# [1] 授業単元：アルゴリズム
# [2] 問題文(含コード&リンク)：
# 　　kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9583.txt
313 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/06/30(火) 03:45:34 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/222
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9599.txt
316 名前：デフォルトの名無しさん mailto:sage [2009/06/30(火) 10:02:40 ]: >>315
% Prolog
nojiriko.asia/prolog/t315.html
317 名前：デフォルトの名無しさん mailto:sage [2009/06/30(火) 10:50:45 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/234
# [1] 授業単元：確率論
# [2] 問題文(含コード&リンク)：kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9602.txt
318 名前：デフォルトの名無しさん mailto:sage [2009/06/30(火) 14:50:16 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/243
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)： kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9605.txt
319 名前：デフォルトの名無しさん mailto:sage [2009/06/30(火) 17:28:19 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/244
# 〔1〕授業単元:Ｃ言語
# 〔2〕問題文:kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9601.txt
320 名前：デフォルトの名無しさん mailto:sage [2009/07/01(水) 04:08:33 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/273
# 1] 授業単元：数理計画法
# [2] 問題文(含コード&リンク)：シンプレックス法のプログラムを作成せよ。
# [3] 環境
# 　[3.1] OS： Windows
# 　[3.3] 言語： C
# [4] 期限： 2009年７月１日
# [5] その他の制限：プログラムの授業で習うことはすべてやりました。
# kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9612.txt
# のようなプログラムをつくたんですがこの先が悩んでいます。どなたかお願いします。
321 名前：デフォルトの名無しさん mailto:sage [2009/07/01(水) 04:10:11 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/275
# [1] 授業単元：Ｃ言語の基礎
# [2] 問題文：年（西暦）、月、日を入力し、入力した、日時の曜日及び、経過した日数を表示したプログラムを作成せよ。
322 名前：デフォルトの名無しさん mailto:sage [2009/07/01(水) 16:45:23 ]: >>321
% Prolog
nojiriko.asia/prolog/t321.html
323 名前：デフォルトの名無しさん mailto:sage [2009/07/01(水) 22:46:07 ]: >>318
% Prolog
nojiriko.asia/prolog/t318.html
324 名前：323 mailto:sage [2009/07/02(木) 05:34:22 ]: >>318
すみません。間違いが多かったので大幅に書き換えてupしました。
nojiriko.asia/prolog/t318.html
325 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/07/02(木) 10:54:28 ]: >>319
% Prolog
nojiriko.asia/prolog/t319.html
331 名前：デフォルトの名無しさん mailto:sage [2009/07/03(金) 07:12:07 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/472
# [1] 授業単元：C言語実習
# [2] 問題文(含コード&リンク)：kansai2channeler.hp.infoseek.co.jp/cgi-bin
/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 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/07/03(金) 15:49:25 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/511
# [1] 授業単元：情報基礎B
# [2] 問題文(含コード&リンク)：試験の点数１０人分をキーボードから入力し、以下の内容を出力するプログラムを作成せよ。
# 平均点、標準偏差、得点の高い順の点数リスト(出来れば、バブルソート以外のアルゴリズムでお願いします。)
334 名前：デフォルトの名無しさん mailto:sage [2009/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) .
335 名前：デフォルトの名無しさん mailto:sage [2009/07/03(金) 16:22:29 ]: >>333
% Prolog (2/2)

quicksort([],[]) :- !.
quicksort([X|Xs],Ys) :-
　　partition(Xs,X,Littles,Gigs),
　　quicksort(Littles,Ls),
　　quicksort(Bigs,Bs),
　　append(Ls,[X|Bs],Ys).

partition([],Y,[],[]) :- !.
partition([X|Xs],Y,[X|Ls],Bs) :- X @=< Y,partition(Xs,Y,Ls,Bs).
partition([X|Xs],Y,Ls,[X|Bs]) :- X @> Y,partition(Xs,Y,Ls,Bs).
336 名前：335 mailto:sage [2009/07/03(金) 16:56:05 ]: >>333
点数の高い順だと、
partition([],Y,[],[]) :- !.
partition([X|Xs],Y,[X|Ls],Bs) :- X @>= Y,partition(Xs,Y,Ls,Bs).
partition([X|Xs],Y,Ls,[X|Bs]) :- X @< Y,partition(Xs,Y,Ls,Bs).
ですね。
337 名前：デフォルトの名無しさん mailto:sage [2009/07/03(金) 17:15:43 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/423
# [1] 授業単元：情報処理
# [2] 問題文(含コード&リンク)：
# 　　
# 　2つの正整数 m とn とを引数として受け取り、m と n の最大公約数を戻
# り値として返す関数gcd()を作成する。この関数を用いることにより、キー
# ボードから入力した3つの正整数 a, b, c の最大公約数を求めるプログラム
# を書け。
#
# 注意: 最大公約数を計算するには次のような「ユークリッドの互除法」を
# 用いるとよい。
#
# 「ユークリッドの互除法」
# 　２つの正の整数 m、n（m＞n）の最大公約数を求めるには、m を n で割っ
# て余り r1 を求め、次に n を r1 で割って余り r2 を求め、・・・、この
# ように大きい方を小さい方で割って余りを求め、最後に割り切れたときの除
# 数が求める最大公約数である。
#
# 例）４４０／３８０＝１余り６０　
# 　　３８０／６０＝６余り２０　　
# 　　６０／２０＝３　余りなし
# 　したがって、４４０と３８０の最大公約数は２０　
338 名前：デフォルトの名無しさん mailto:sage [2009/07/03(金) 17:19:24 ]: >>337
% Prolog

最大公約数をユークリッドの互除法で求める(M,N,N) :-
　　0 is M mod N,!.
最大公約数をユークリッドの互除法で求める(M,N,X) :-
　　Mod is M mod N,
　　最大公約数をユークリッドの互除法で求める(N,Mod,X).
339 名前：デフォルトの名無しさん mailto:sage [2009/07/03(金) 19:18:20 ]: >>310
% Prolog
nojiriko.asia/prolog/t310.html
340 名前：デフォルトの名無しさん mailto:sage [2009/07/03(金) 20:37:32 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/534
# [1] 授業単元：情報処理
# [2] 問題文(含コード&リンク)：
# 例えば下図に示すように，通行可能なマス目に'0'が，
# 障害物があって通行不能なマス目に'+'が記されている盤がある．
# 盤の左上をスタート地点，右下をゴール地点として，経路を表示する
# プログラムを作りなさい．
# 盤の例
# 0 0 + 0 +
# + 0 0 0 +
# 0 + + 0 0
# 0 0 + 0 0
# + 0 0 0 0
#
# 例えばこのようなアルゴリズムが考えられる．
#
# 1) 現在位置を表示の後、進行方向に対して，右に進めるなら右に，
# そうでなければ直進，それもだめなら左に，さらにそれもダメなら後退する．
# 2) 1を繰り返してゴールに達したらその旨を表示する．
# ただし，マス目の数分だけ移動してもゴールに達しない場合はその時点で終了する．
#
# 入力形式は、
#
# %> ./a.out 00+0+ +000+ 0++00 00+00 +0000
#
# とする．
341 名前：デフォルトの名無しさん mailto:sage [2009/07/03(金) 20:41:34 ]: >>340
% Prolog
nojiriko.asia/prolog/t340.html
342 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 03:47:01 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/536
# [1] 授業単元：Ｃ言語演習
# [2] 問題文(含コード&リンク)：乱数を使って配列に値を代入するようにせよ。サイズを変化させて時間を計測してみせよ。
# サイズが十倍になると計算結果は何倍になるか？
343 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 03:59:15 ]: >>342
% Prolog
t342(X,Y,Z) :-
　　findsum(U1,(for(1,N1,100),U1 is random // 100),X),
　　findsum(U2,(for(1,N2,1000),U2 is random // 100),Y),
　　Z is Y / X.

findsum(_選択項,_項,_合計値) :-
　　findall(_選択項,_項,_値ならび),
　　sum(_値ならび,_合計値),!.

sum([],0.0) :- !.
sum([A|R],X) :- sum(R,Y),X is A + Y.
344 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 04:06:59 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/538
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9667.txt
345 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 04:24:42 ]: >>344 課題1
% Prolog
space(_文字列,_スペースを挿入された文字列) :-
　　atom_chars(_文字列,Chars),
　　concat_atom(Chars,' ',_スペースを挿入された文字列).

concat_atom([],_,'') :- !.
concat_atom([A],_,A) :- !.
concat_atom([A|R],S,X) :-
　　concat_atom(R,S,Y),
　　atom_concat(A,S,B),
　　atom_concat(B,Y,X).
346 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 04:36:04 ]: >>344 課題2
% Prolog

inpro([],[],0) :- !.
inpro([A|R1],[B|R2],X) :-
　　inpro(R1,R2,Y),
　　X is A * B + Y.
347 名前：343 mailto:sage [2009/07/04(土) 05:07:58 ]: >>342 間違ってたので直します
% Prolog

t342(X,Y,Z) :-
　　findsum(U1,(for(1,N1,100),U1 is random mod 100),X),
　　findsum(U2,(for(1,N2,1000),U2 is random mod 100),Y),
　　Z is Y / X.

findsum(_選択項,_項,_合計値) :-
　　findall(_選択項,_項,_値ならび),
　　sum(_値ならび,_合計値),!.

sum([],0.0) :- !.
sum([A|R],X) :- sum(R,Y),X is A + Y.
348 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 05:16:30 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/547
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# 下に示すように，非負の整数値を読み込んで，その数を逆順に表示するプログラムを作成せよ。
# なお，負の値を読み込んだ場合は，再入力を促すメッセージを表示すること。
#
# 非負の整数を入力してください: 1963
# 1963 を逆から読むと3691 です．
349 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 05:32:40 ]: >348
% Prolog

t348 :-
　　整数の入力(N),
　　number_chars(N,L),
　　reverse(L,L1),
　　number_chars(N2,L1),
　　write_formatted('逆に表示すると %t\n',[N2]).>348

整数の入力(N) :-
　　write('非負の整数を入力してください(入力後ピリオドと改行) : '),
　　read(N),
　　integer(N),
　　N >= 0,!.
整数の入力(N) :-
　　write('入力されたのは非負の整数ではありませんでした\n'),
　　整数の入力(N).
350 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 05:36:51 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/552
# [1] 授業単元：情報処理
# [2] 問題文(含コード&リンク)：
# (1)
# kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9670.txt
# (2)
# kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9671.txt
351 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 05:40:36 ]: >>350 (2)
% Prolog

:- op(450,xfx,分の).

分数の積(A 分の B,C 分の D,X 分の Y) :-
　　X is A * C,
　　Y is B * D.
352 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 06:03:29 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/559
# [1] 授業単元：アルゴリズム
# [2] 問題文(含コード&リンク)：url.txtに書き込まれている"ttp://～をhttp://～に書き換えresult.txtに出力せよ
353 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 06:13:37 ]: >>352
# python2.x
fin = file('url.txt')
fout = file('result.txt','w')
for line in fin.readlines():
fout.write(line.replace('ttp://','http://'))
fout.close()
fin.close()
354 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 06:17:58 ]: >>352
% Prolog

t352 :-
　　get_chars('url.txt',Chars),
　　t352(Chars,Chars2),
　　put_chars('result.txt',Chars).

t352([],[]) :- !.
t352(['h','t','t','p',':','/','/'|R1],['h','t','t','p',':','/','/'|R2]) :-
　　t352(R1,R2),!.
t352(['t','t','p',':','/','/'|R1],['h','t','t','p',':','/','/'|R2]) :-
　　t352(R1,R2),!.
t352([A|R1],[A|R2]) :-
　　t352(R1,R2).
355 名前：354 mailto:sage [2009/07/04(土) 06:20:33 ]: >>352
% Prolog
>>352
また間違い。訂正,Chars -> Chars2 のところがある。

t352 :-
　　get_chars('url.txt',Chars),
　　t352(Chars,Chars2),
　　put_chars('result.txt',Chars2).
356 名前：354 mailto:sage [2009/07/04(土) 06:55:43 ]: >>352
% Prolog ' は要らなかった。

t352 :-
　　get_chars('url.txt',Chars),
　　t352(Chars,Chars2),
　　put_chars('result.txt',Chars2).

t352([],[]) :- !.
t352([h,t,t,p,:,/,/|R1],[h,t,t,p,:,/,/|R2]) :-
　　t352(R1,R2),!.
t352([t,t,p,:,/,/|R1],[h,t,t,p,:,/,/|R2]) :-
　　t352(R1,R2),!.
t352([A|R1],[A|R2]) :-
　　t352(R1,R2).
357 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 08:30:39 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/586
# [1] 授業単元：C+
# [2] 問題文(含コード&リンク)：
# kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9676.txt
358 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 08:33:18 ]: >>357
% Prolog
% 1.
% sum1toN(n)と呼び出すと(nは正の整数)、戻り値として 1 から n までの
% 和が返ってくる関数sum1toNを作成せよ。（関数の部分のみ書くこと。）

sum1toN(1,1) :- !.
sum1toN(N,X) :- M is N - 1,sum1toN(M,Y),X is N + Y.
359 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 08:35:53 ]: >>357
% Prolog
% 2.
% 円の半径をキーボードから入力し、円周の長さと面積を求めて表示するプログラムを次のように作成した。
% 円周の長さと面積を求める部分は関数 circleを使用している。この関数を書け。
% 円周率は#defineで定義している PAI を使ってよい。

% #include <stdio.h>
% #define PAI 3.14159
% 関数circleのプロトタイプ宣言 (省略)
% int main(void ){
% double r, enshu, menseki;
% printf("半径を入力 >>");
% scanf("%lf", &r);
% circle(r, &enshu, &menseki);
% printf("円周 = %f 面積 = %f\n"
% , enshu, menseki);
% return 0;
% }
%
% │ │
% │ 　　　関数 circle │
% │ │

pi(3.14159).

circle(_半径,_円周,_面積) :-
　　pi(PI),
　　_円周 is 2 * _半径 * PI,
　　_面積 is _半径 ^ 2 * PI.
360 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 08:49:25 ]: >>357
% Prolog
% 3.
% 大きさ8のint型配列aに初期値として
% 1 2 3 4 5 6 7 8
% を設定する。これを
% 0 0 1 2 3 4 5 6
% のように要素を右に２つシフトして a[0],a[1]には 0 を入れ、
% その後配列の各要素を
% a[0]=0
% a[1]=0
% <略>
% a[7]=6
%
% のように表示するプログラムを書け。
t357_3 :-
　　右にシフト(2,[1,2,3,4,5,6,7,8],_シフトされたならび),
　　表示(1,_シフトされたならび).

表示(_,[]) :- !.
表示(N,[A|R]) :-
　　M is N - 1,
　　write('a[%t]=%t',[M,C]),
　　N2 is N + 1,
　　表示(N2,R).

右にシフト(0,X,X) :- !.
右にシフト(N,L,X) :-
　　append(Y,[_],[0|L]),
　　M is N - 1,
　　右にシフト(M,Y,X).
361 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 08:53:20 ]: >>357
% Prolog
% 4.
% 文字列(最大80文字)をキーボードから読み込み、
% その文字列中で文字コードが最大の文字とその文字コードを
%
% 　　文字コード最大はY <89>
%
% （Yが最大の文字、89がその文字コードを意味する。）
% のように表示するプログラムを次のように作成した。空欄を埋めてプログラム
% を完成せよ。

最大の文字コード(_文字列,_最大の文字コード) :-
　　atom_codes(_文字列,[C|R]),
　　最大の文字コード(R,C,_最大の文字コード).

最大の文字コード([],X,X) :- !.
最大の文字コード([C|R],_現在の最大コード,_最大の文字コード) :-
　　C > _現在の最大コード,
　　最大の文字コード(R,C,_最大の文字コード),!.
最大の文字コード([C|R],_現在の最大コード,_最大の文字コード) :-
　　C =< _現在の最大コード,
　　最大の文字コード(R,_現在の最大コード,_最大の文字コード),!.
362 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 17:12:40 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/606
# [1] 授業単元：C
# [2] 問題文(含コード&リンク)：
# kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9680.txt
# kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9678.txt
363 名前：デフォルトの名無しさん mailto:sage [2009/07/04(土) 17:14:39 ]: pc12.2ch.net/test/read.cgi/tech/1245853701/607
# 簡単なデータベース機能を持つプログラムを作成しなさい．対象となるデータは自分で
考えてください．
# 　　（住所録，商品の在庫，図書，ワールドカップの勝敗．．．．）
# 　以下の要件を示します．
#
# 1. ファイルからデータを読み込む機能をつけること．
# 2. データは４つ以上の項目を保持させること．
# 　（住所録では、「名前」「住所」「郵便番号」「電話番号」等で４項目以上）
# 3. 並び替えの機能をつけること．また並び替える項目が指定できること．
# 4. 各項目についてデータの検索を行う機能をつけること．また，検索条件を組み合わ
せることができること．
# 　（住所録なら，「郵便番号」が 399 で始まって，かつ，「電話番号」が 026 で始ま
る　等）
# 5. データは半角英数字（英語やローマ字）で扱ってよい
# 6. データの追加ができること．
# 7. データの削除ができること．削除は上記の検索と組み合わせることで，ある条件に
合致したデータを削除できること．
# 8. 追加・削除した結果をファイルに保存できること．
364 名前：デフォルトの名無しさん mailto:sage [2009/07/05(日) 04:45:28 ]: >>362
% Prolog
nojiriko.asia/prolog/t362.html
365 名前：デフォルトの名無しさん mailto:sage [2009/07/05(日) 23:48:47 ]: 場違いか心配ですが・・・。
質問です

?- search(a, f, Path).
Path = [f, d, e,c, b, a] ;
Path = [f, d, b, a]

arc(b,c).
arc(b,d).
arc(c,e).
arc(e,d).
arc(d,f).
arc(e,b).

あるノードから、あるノードまでが到達可能かどうかを調べ経路も表示するプログラムを
作りたいのですがどうすれば良いのでしょうか？memberを使えば良いと言われたのですが
よくわかりません・・・。
366 名前：デフォルトの名無しさん mailto:sage [2009/07/06(月) 06:37:37 ]: >>365
一番基本的なものは以下のようなものでしょう。

到達可能(A,B,Log) :-
到達可能(A,B,[A],Log).

到達可能(A,B,L1,Log) :-
　　arc(A,B),
　　\+ member(B,L1),
　　append(L1,[B],Log).
到達可能(A,B,L1,L) :-
　　arc(A,C),
　　\+ member(C,L1),
　　append(L1,[C],L2),
　　到達可能(C,B,L2,L).

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef