いろんな言語で宿題 第四編

前回スレは512Kbを越えたため、終了しました

bを小文字で書くほど無知なくせにスレを立ててる件。

とつっこまれて bit だとか言い出す。

ついでに言うと、2ちゃんねるの容量制限は512kないし500Kだぞw
それはともかくスレ立て依頼しておいてなんといういいぐさだよ>>2

>>3 えーーっ　これは、スレを立てる依頼をした私を >>1 さんが
からかって追記したんだと思った。

# bit誌の話題が出たところで、1977年11月号同雑の記事から。
# ロール・エンティティモデルは、ロールとエンティティの2つの概念を両者とも
# 認識することを提案している。さて、
# 以下に、22項目の語が提示してあるが、それがエンティティを表す概念なのか、
# ロールを表す概念なのかを分類していただきたい。
#
# 鶏　複合部品　自動車　ビルディング　母　子　依頼人　会社　顧客
# 医師　従業員　雇主　馬　法律家　所有者　単純部品　人　財産
# 株主　供給者　官庁　部品
#
# これらがどちらに分類されるかを示すプログラムを書きなさい。
# -- "鶏が先か卵が先か" チャールズ・W・バックマン　による --

# 同じく1977年11月号 "マイクロコンピュータそのII　プログラミングの基礎(まとめ)" から
# <<本として出版されていたら御免なさい。>>
# 数あてゲーム
# 1) 出題者は適当な4桁の数字(a)を決める。
# 2) 解答者は出題者の決めた数字を予想して出題者に数字(b)を示す。
# 3) 出題者は解答者の提示した数字を見て、次のヒントを出題者に知らせる。
#　　a,bの両方に含まれる数字の数(c)
#　　aとbの対応する桁の数字が一致した数(d)
# 4) 解答者は出題者が示したヒントからbを訂正して 2) に戻る。
#
# ゲームは正解を得るまでに何回のヒントを得たかによって判定されるので
# ヒントを得る回数が最少になるように努力するプログラムを作りなさい。

>>5
>>6
うざい

>>7
>>5 はともかく >>6 の数当てゲームは、少なくともここ一・二年出てこなかった
じゃないかな。

出てる出てないの問題じゃない。スレ違い。

ついでに言うと、このような形で雑誌の問題をそのまま掲載するのは、
著作権保護法にも違反してる。

>>9
著作権の問題については、おっしゃる通りなので、恐縮して載せている。
共立出版の不利益になるケースではまったくないので雑誌については
いいだろうという判断。私がbit誌を度々取り上げるのは、このような
ジャンルの雑誌が復刊して欲しいから。

スレ違いについてはこのスレのこれまでの歴史をみれば、まったく
見当違いであることがわかる。

>>5
% Prolog

エンティティ(鶏).
ロール(複合部品).
エンティティ(自動車).
エンティティ(ビルディング).
ロール(母).
ロール(子).
ロール(依頼人).
エンティティ(会社).
ロール(顧客).
エンティティ(医師).
ロール(従業員).
ロール(雇主).
エンティティ(馬).
ロール(法律家).
ロール(所有者).
ロール(単純部品).
エンティティ(人).
ロール(財産).
ロール(株主).
ロール(供給者).
エンティティ(官庁).
エンティティ(部品).

著作権保護法ってどこにあるんですか？　外国の法律ですか？

どうして自分で質問して自分で答えるの？

こんなの宿題じゃないじゃん。
Prologやりたいんなら、Prologスレ行けばいいのに。

>>12
つか君の国籍は？
もし日本に住んでるんなら、引用と転載の違いぐらい知っておいたほうがいいよ。

>>13
宿題スレは春休み、夏休み、冬休み期間は題材がなくなるから、
過去のおもしろそうな問題をdatから探し出したり、自分で問題を
考えたり、本や雑誌に課題を求めたりする。その他の期間の過半の
出所は「C/C++で宿題片付けます」スレだから「宿題」であるかどうかは
そちらの問題で、ここは見たことのないソースが溢れればそれでよい。

>>15
はぁ？
「C/C++で宿題片付けます」に準拠してるってご冗談を？
ttp://pc12.2ch.net/test/read.cgi/tech/1263824755/
出題は宿題ばかりだし、宿題でないものは宿題でないとツッコミを入れられてるだろ。

自分で問題を創作してる奴なんかいないし、市販の雑誌から転載する馬鹿もいない。
もちろんPrologのコードを見せたくて、自分で出題して、自分で回答する奴もいない。

「Prologでコード書きたいので問題ください」ってスレ作ればいいんだよ。

>>16
もう一ヶ月も経てば、また宿題が出始めますから、
ぜひ、問題を解いて、このスレに載せてください。
私は、関数型言語のコードを待っています。

>>14
で、著作権保護法ってどこにあるんですか？

http://pc11.2ch.net/test/read.cgi/db/1252492296/613
# ＜ユーザ情報テーブル＞
# ID,氏名,住所
# 1,ユーザ1,青森県〜〜〜
# 2,ユーザ2,青森県〜〜〜
# 3,ユーザ3,北海道〜〜〜
# 4,ユーザ4,宮城県〜〜〜
# 5,ユーザ5,岩手県〜〜〜
# ・・・
# ＜都道府県テーブル＞
# ID,都道府県
# 1,北海道
# 2,青森県
# 3,岩手県
# 4,宮城県
# 5,秋田県
# ・・・
# この2つのテーブルから、クエリを使用して、都道府県別のユーザ数を取得（カウント）したいのですが、教えていた
だけませんでしょうか？ 上記の5レコードで説明しますと、以下のような結果が望みです。
# 都道府県,人数
# 北海道,1
# 青森県,2
# 岩手県,1
# 宮城県,1
# 秋田県,0

http://pc12.2ch.net/test/read.cgi/tech/1263824755/891
# [1] 授業単元：　プログラミング演習
# [2] 問題文(含コード&リンク)：
# 行列のrankを求める関数 rank( ) を実装せよ
# （提示ソースコードは後記）
#
# include <iostream>
# #include <cstdlib>
# using namespace std;
#
# #define ROWS 5
# #define COLS 4
#
# int rank( double array[ROWS][COLS] )
# {
#
# }
#

>>20 の続き
# int main( )
# {
# srand( time(NULL) );
#
# double array[ROWS][COLS];
#
# for( int r=0; r<ROWS; ++r ){
# for( int c=0; c<COLS; ++c ){
# array[r][c] = rand( );
# }
# }
#
# rank( array );
#
# return 0;
# }

>>19
% Prolog

都道府県別のユーザ数一覧 :-
　　　write('都道府県,人数\n'),
　　　都道府県別のユーザ数を取得(_都道府県,_人数),
　　　write_formatted('%t,%t\n',[_都道府県,_人数]),
　　　fail.
都道府県別のユーザ数一覧.

都道府県別のユーザ数を取得(_都道府県,_人数) :-
　　　都道府県(_,_都道府県),
　　　count((ユーザ情報(_,_,住所),sub_atom(_住所,0,_,_,_都道府県)),_人数).

前スレにかこうとしてできなかったもの
http://pc12.2ch.net/test/read.cgi/tech/1261443439/790
使用言語：J
bubbleSort=:(([ (<. , >.) {.@]) , }.@])/^:_
insertionSort=:((>: # ]) , [ , < #])/
quickSort=:(($:@(<#[) ; (=#[) ,&< $:@(>#[)) ({~ ?@#)) ^: (1<#)
siftDown=: 4 : 0
's e'=. x
z=.y
c=.s
while. e > c=.1+2*s=.c do.
if. e > 1+c do. if. c <&({&z) c+1 do. c=.c+1 end. end.
if. s <&({&z) c do. z=. z {`(|.@[)`]}~ c,s else. break. end.
end.
z
)
heapSort =: 3 : 0
if. 1>: c=. # y do. y return. end.
z=. (] siftDown ~c,~[)&.>/ (<y),~]&.>i.1+<.-:c-2
> (](] siftDown {`(|.@[)`]}~) 0,[)&.>/ z,~]&.>1+i.c-1
)
rt=:6!:2
a=:?~1000
10 rt 'bubbleSort a' NB.1000個のデータでソートを10回行いその平均値を秒で返す
4.91614
10 rt 'heapSort a'
0.337704
10 rt 'quickSort a'
0.0169458
10 rt 'insertionSort a'
0.0110285

>>20
使用言語：J

rank=: monad define
SIZE=.|.{(;(<: # y), 2)$ 2#}.- >: i. # y
MAT=. SIZE {. L:0 y
(#y) - {. I. 1e_10 < | ;(-/ . * L:0 MAT)
)

rank 4 5$0 0 0 0 0,0 0 2 0 0,0 1 0 1 1,0 4 3 4 0
3

>>20
使用言語：maxima

(%i22) a:matrix([0, 0, 0, 0, 0],[0, 0, 2, 0, 0],[0, 1, 0, 1, 1],[0, 4, 3, 4, 0]);
[ 0 0 0 0 0 ]
[ ]
[ 0 0 2 0 0 ]
[ ]
[ 0 1 0 1 1 ]
[ ]
[ 0 4 3 4 0 ]
(%i23) rank(a);
(%o23) 3

>>20
使用言語：R

> a <- matrix(c(0, 0, 0, 0, 0,0, 0, 2, 0, 0,0, 1, 0, 1, 1,0, 4, 3, 4, 0),4,5,byrow=T)
> a
[,1] [,2] [,3] [,4] [,5]
[1,] 0 0 0 0 0
[2,] 0 0 2 0 0
[3,] 0 1 0 1 1
[4,] 0 4 3 4 0
> qr(a)$rank
[1] 3

>>20
% Prolog

行列の階数(_行列,_階数) :-
ガウス行列に変形(_行列,_ガウス行列),
count((member(L,_ガウス行列),\+(all(L,0))),_階数).

% ガウス行列に変形/2 は http://nojiriko.asia/prolog/Gauss_gyoretsu_ni_henkei.html を参照してください。

>>21 (>>20)
% Prolog 下のようにしておいた方が無難なんだろうか。

行列の階数(_行列,_階数) :-
　　　ガウス行列に変形(_行列,_ガウス行列),
　　　count((member(L,_ガウス行列),\+('すべての要素が0か0.0'(L))),_階数).

'すべての要素が0か0.0'([]).
'すべての要素が0か0.0'([0|R]) :-
　　　'すべての要素が0か0.0'(R).
'すべての要素が0か0.0'([0.0|R]) :-
　　　'すべての要素が0か0.0'(R).

http://pc12.2ch.net/test/read.cgi/tech/1263824755/915
# [1] 授業単元：Unix プログラミング
# [2] 問題文(含コード&リンク)： C++/CでUnixのls -R -lと同じ動作をするmyls.c (.cpp)を作成して下さい。
# ls:ディレクトリ内のファイルをリストアップ。-R:サブディレクトリも探査。-l:sys/stat.hを使いファイルの詳細を表示する。
#

http://pc12.2ch.net/test/read.cgi/tech/1263824755/907
# [1] 授業単元：http://pc12.2ch.net/test/read.cgi/tech/1267799238/
# [2] 問題文(含コード&リンク)：
# 保存済みのメモ帳に書いてある10個の数字からランダムに5個読み取るプログラム。
# 　[3.1] OS：わかりません
# 　[3.2] コンパイラ名とバージョン： わかりません
# 　[3.3] 言語：C++
# [4] 期限：201x年
# [5] その他の制限：fopen、fscanf、for、ifまで習いました。

>>30
% Prolog 「10個の」をどう反映させればよいか解らない・・・

保存済みのメモ帳に書いてある10個の数字からランダムに5個読み取る(_保存済みのメモ帳,L) :-
　　　get_chars(_保存済みのメモ帳,Chars),
　　　findall(N,(for(1,M,5),数字にヒットするまでランダムにならびを探す(Chars,N)),L).

数字にヒットするまでランダムにならびを探す(L,N) :-
　　　length(L,Len),Len > 0,
　　　repeat,
　　　M is (random mod Len) + 1,
　　　list_nth(M,L,A),
　　　member(A,['0','1','2','3','4','5','6','7','8','9']),!.

http://pc11.2ch.net/test/read.cgi/db/1252492296/631
# MYSQL使ってます。
# id キーワード
# 1　りんご
# 2　みかん
# 3　りんご
# のようにDBに登録されてるキーワードが多い順に例えばヒット件数トップ１０のキーワードを
# 抜き出したいのですがどのように書いたらいいでしょうか？
# 件数少ないうちは今までにないキーワードがでたら全検索で数えるって繰り替えそうと思ったんですけど、
# 件数多くなったら効率的に書かないとまずいかなと思いまして。

>>30
使用言語：J
この問題文では、詳細がさっぱりわかりません。

data=:45 97 8 21 51 64 24 62 46 3
(5?10){data
3 45 97 46 21

>>33 (>>30)
# 数値を一行に一つずつ十行メモ帳に書き込みこれを保存する。
# このファイルを参照することによってこのうち5個の数値をランダムに取り出すプログラムを作りなさい。
% とするべきですね。

>>34
% Prolog

十行の数値が書かれたメモ帳を保存し、このファイルから5個の数値をランダムに取り出す(_保存済みのメモ帳,_5個の数値ならび) :-
　　　get_lines(_保存済みのメモ帳,Lines),
　　　findall(N,(for(1,M,5),ならびからランダムに数値を取り出す(Lines,N)),_5個の数値ならび).

ならびからランダムに数値を取り出す(L,N) :-
　　　length(L,Len),Len > 0,
　　　repeat,
　　　M is (random mod Len) + 1,
　　　list_nth(M,Lines,A),
　　　atom_to_term(A,N,_),
　　　number(N),!.

http://pc12.2ch.net/test/read.cgi/tech/1263824755/920
# [1] 授業単元：C言語演習
# [2] 問題文(含コード&リンク)：
# 1.fgets関数を用いてpgmファイルの始めの2行(添付ファイルの場合, P2, 304,
# 322)をそれぞれ、変数header, width, heightに格納するプログラム
# 2.上記で記憶したheader, width, heightを別ファイルに書き出すプログラム
# 1.と2.をそれぞれ作成せよ。

>>36
% Prolog
pgmファイルヘッダ(_pgmファイル,_マジックナンバー,_画像の幅方向サイズ,_画像の高さサイズ,画像の最大階調レベル) :-
　　　open(_pgmファイル,read,Input,[type(binary)]),
　　　pgmヘッダの読み取り(Input,_マジックナンバー,_画像の幅方向サイズ,_画像の高さサイズ,画像の最大階調レベル),
　　　close(Input),!.

pgmファイルヘッダの読み取り(Input,_マジックナンバー,_画像の幅方向サイズ,_画像の高さサイズ,画像の最大階調レベル) :-
　　　マジックナンバー(Input,_マジックナンバー),
　　　画像の幅方向サイズ(Input,_画像の幅方向サイズ),
　　　画像の幅方向サイズ(Input,_画像の幅方向サイズ),
　　　画像の高さサイズ(Input,_画像の高さサイズ),!.

マジックナンバー(Input,_マジックナンバー) :-
　　　findall(Y,(repeat,get_byte(Input,X),('Whitespace'(X),!,fail;char_code(Y,X))),L),
　　　concat_atom(L,_マジックナンバー),!.

画像の幅方向サイズ(Input,_画像の幅方向サイズ) :-
　　　findall(X,(repeat,get_byte(Input,X),('Whitespace'(X),!,fail;true)),L),
　　　number_codes(_画像の幅方向サイズ,L),!.

画像の高さサイズ(Input,_画像の高さサイズ) :-
　　　findall(X,(repeat,get_byte(Input,X),('Whitespace'(X),!,fail;true)),L),
　　　number_codes(_画像の高さサイズ,L),!.

画像の最大階調レベル(Input,_画像の最大階調レベル) :-
　　　findall(X,(repeat,get_byte(Input,X),('Whitespace'(X),!,fail;true)),L),
　　　number_codes(_画像の最大階調レベル,L),!.

'Whitespace'(X) :- X < 48,X >57,!.

>>37 (>>36) 訂正
% Prolog 'Whitespace'/2の定義を間違えた。それから述語名を入れ替えます。
pgmファイルヘッダの読み取り(_pgmファイル,_マジックナンバー,_画像の幅方向サイズ,_画像の高さサイズ,画像の最大階調レベル) :-
　　　open(_pgmファイル,read,Input,[type(binary)]),
　　　pgmヘッダ(Input,_マジックナンバー,_画像の幅方向サイズ,_画像の高さサイズ,画像の最大階調レベル),
　　　close(Input),!.

pgmファイルヘッダ(Input,_マジックナンバー,_画像の幅方向サイズ,_画像の高さサイズ,画像の最大階調レベル) :-
　　　マジックナンバー(Input,_マジックナンバー),
　　　画像の幅方向サイズ(Input,_画像の幅方向サイズ),
　　　画像の幅方向サイズ(Input,_画像の幅方向サイズ),
　　　画像の高さサイズ(Input,_画像の高さサイズ),!.

マジックナンバー(Input,_マジックナンバー) :-
　　　findall(Y,(repeat,get_byte(Input,X),('Whitespace'(X),!,fail;char_code(Y,X))),L),
　　　concat_atom(L,_マジックナンバー),!.

画像の幅方向サイズ(Input,_画像の幅方向サイズ) :-
　　　findall(X,(repeat,get_byte(Input,X),('Whitespace'(X),!,fail;true)),L),
　　　number_codes(_画像の幅方向サイズ,L),!.

画像の高さサイズ(Input,_画像の高さサイズ) :-
　　　findall(X,(repeat,get_byte(Input,X),('Whitespace'(X),!,fail;true)),L),
　　　number_codes(_画像の高さサイズ,L),!.

画像の最大階調レベル(Input,_画像の最大階調レベル) :-
　　　findall(X,(repeat,get_byte(Input,X),('Whitespace'(X),!,fail;true)),L),
　　　number_codes(_画像の最大階調レベル,L),!.

'Whitespace'(X) :- X < 48.
'Whitespace'(X) :- X > 57.

http://pc12.2ch.net/test/read.cgi/tech/1263824755/921
# [1] 授業単元：Unix プログラミング
# [2] 問題文(含コード&リンク)：時間昇降順で表示するwhoをC/C++で書きなさい。

>>39
% Prolog

時間昇降順で表示するwho(_昇降順) :-
　　　shs(who,L),
　　　時間昇降順で表示するwho(L,L1),
　　　wrln(L1).

時間昇降順で表示するwho(_昇降順,L,_時間昇降順who) :-
　　　findall([_時刻,_行],(member(L1,L),時刻を取り出す(_行,_時刻)),_時刻を先頭に付加したwho),
　　　昇降順に整列(_昇降順,_時刻を先頭に付加したwho,_時間昇降順who).

時刻を取り出す(_行,_時刻) :-
　　　split(_行,[' '],L1),
　　　append(L2,[_分秒|L3],L1),
　　　sub_atom(_分秒,_,1,_,':'),
　　　last(L2,_年月日),
　　　sub_atom(_年月日,_,1,_,'-'),
　　　concat_atom([B,' ',A],_時刻),!.

昇降順に整列(昇順,_時刻を先頭に付加したwho,_時間昇降順who) :-
　　　整列(_時刻を先頭に付加したwho,_整列した時刻を先頭に付加したwho),
　　　findall(_行,member([_,_行],_整列した時刻を先頭に付加したwho),_時間昇降順who).

昇降順に整列(降順,_時刻を先頭に付加したwho,_時間昇降順who) :-
　　　整列(_時刻を先頭に付加したwho,_整列した時刻を先頭に付加したwho),
　　　reverse(_整列した時刻を先頭に付加したwho,_整列しかつ反転した時刻を先頭に付加したwho),
　　　findall(_行,member([_,_行],_整列しかつ反転した時刻を先頭に付加したwho),_時間昇降順who).

>>32
% Prolog (その一)

キーワード数の上位10位までを表示 :-
　　　findall([M,N],カウンタカウンタ(M,N),L1),
　　　sort(L1,L2),
　　　reverse(L2,L3),
　　　上位10位まで(L3,L),
　　　キーワード数の上位10位までを表示(L).

キーワード数の上位10位までを表示([]) :- !.
キーワード数の上位10位までを表示([M|R]) :-
　　　キーワードカウンタ(_キーワード,M),
　　　キーワード表示(_キーワード),
　　　fail.
キーワード数の上位10位までを表示(R).

キーワード表示(_キーワード) :-
　　　キーワード(ID,_キーワード),
　　　write_formatted('%t,%t\n',[ID,_キーワード]).

上位10位まで([],_,[]) :- !.
上位10位まで(_,Count,[]) :- Count >= 10,!.
上位10位まで([[M,N]|R1],Count1,[M|R2]) :-
　　　Count2 is Count1 + N,
　　　上位10位まで(R1,Count2,R2).

>>32
% Prolog (その二)

キーワードカウンタを準備する :-
　　　abolish(キーワードカウンタ/2),
　　　キーワード(Id,_キーワード),
　　　キーワードカウンタ((+),_キーワード),
　　　fail.
キーワードカウンタを準備する.

キーワードカウンタ((+),_キーワード) :-
　　　retract(キーワードカウンタ(_キーワード,_現在のカウント)),
　　　_加算されたカウント is _現在のカウント + 1,
　　　カウンタカウンタの更新((-),_現在のカウント)
　　　カウンタカウンタの更新((+),_加算されたカウント),
　　　asserta(キーワードカウンタ(_キーワード,_加算されたカウント)),!.
キーワードカウンタ((+),キーワード) :-
　　　asserta(キーワードカウンタ(_キーワード,1)),
　　　カウンタカウンタの更新((+),1),!.

カウンタカウンタの更新((+),M) :-
　　　retract(カウンタカウンタ(M,N)),
　　　N2 is N + 1,
　　　asserta(カウンタカウンタ(M,N2)),!.
カウンタカウンタの更新((+),M) :- asserta(カウンタカウンタ(M,1)).
カウンタカウンタの更新((-),M) :-
　　　retract(カウンタカウンタ(M,N)),
　　　N1 is N - 1,
　　　asserta(カウンタカウンタ(M,N1)),!.

http://pc12.2ch.net/test/read.cgi/tech/1263824755/945
# Bairstow Samples　 名無しさん - 2010/03/17(Wed) 19:00 No.10560 10560.zip
# [1] 授業単元： 数値解析
# [2] 問題文(含コード&リンク)： n=10の多項式をベアストウ法（Bairstow’s Method）により解析するプログラムを書くこと。
# N=coefficients r,s= initial value
# 繰り返しの際にはじめのr,s,b,cと△ｒ、△ｓ、エラーの値をプリントする。一定の値に集中するまで続ける。
# （Convergence）一点に集まった値がでたら、次は二次公式をするために同様の作動を繰り返す。この時ｒとｓは自動的に割り出されなければならない。ルーツが見つかるまで全てのプロセスを繰り返す。

http://pc12.2ch.net/test/read.cgi/tech/1258320456/133
# 課題2: 文字列が与えられたとして、その最初の2文字と最後の2文字を結合した新たな文字列を作れ。
# ただし文字列の長さが2文字以下の時は、新たな文字列は空文字となる。

http://pc12.2ch.net/test/read.cgi/tech/1258320456/133
# 課題 C. 文字列が与えられたとして、その最初の文字と同じ文字がそれ以後に
# 現れた場合、それをすべて*に置換した新たな文字列を作れ。

# ある犬が数を
# "ひとつ" "ふたつ" "たくさん"と認識するとします。
# なにか具体的なものを抽象してdで表すとして、
# この犬の数認識を、
# "ひとつ","ふたつ","たくさん"と"d"を用いて定義せよ。

>>46
% Prolog

ある犬の数の認識(ひとつ,[d]).
ある犬の数の認識(ふたつ,[d,d]).
ある犬の数の認識(たくさん,[d,d|R]) :- \+(R=[]).

>>46
% Prolog すぐに思い浮かぶ定義としては以下のものがあるけれど、犬の直感からは遠い定義だと思う。

ある犬の数の認識(ひとつ,[d]).
ある犬の数の認識(ふたつ,[d,d]).
ある犬の数の認識(たくさん,[d,d|R]) :- ひとつ(R).
ある犬の数の認識(たくさん,[d,d|R]) :- ある犬の数の認識([d|R]).

% >>47も []をゼロと解釈すると、とてもあり得ない定義、かも。

>>48 訂正 (>>46)
% Prolog 最終節の本体まちがえた。

ある犬の数の認識(ひとつ,[d]).
ある犬の数の認識(ふたつ,[d,d]).
ある犬の数の認識(たくさん,[d,d|R]) :- ひとつ(R).
ある犬の数の認識(たくさん,[d,d|R]) :- ある犬の数の認識(たくさん,[d|R]).

>>48 もう一度訂正
ある犬の数の認識(ひとつ,[d]).
ある犬の数の認識(ふたつ,[d,d]).
ある犬の数の認識(たくさん,[d,d|R]) :- ある犬の数の認識(ひとつ,R).
ある犬の数の認識(たくさん,[d,d|R]) :- ある犬の数の認識(たくさん,[d|R]).

% でした。恐縮。

>>44
使用言語：J

f=:monad def ';(2<#y){a:,<(2{.y),_2{.y'

f 'ba'

f 'basic'
baic
f 'bas'
baas

>>45
使用言語：J

f=:monad def '({.y),''*''(I.(}.={.)y)}}.y'

f 'asasas'
as*s*s
f'aa'
a*
f'a'
a

>>44
% Prolog

文字列が与えられたとして、その最初の2文字と最後の2文字を結合した新たな文字列(_文字列,_結合した文字列) :-
　　　sub_atom(_文字列,0,2,_,_文字列1),
　　　sub_atom(_文字列,_,2,0,_文字列2),
　　　atom_concat(_文字列1,_文字列2,_結合した文字列).
文字列が与えられたとして、その最初の2文字と最後の2文字を結合した新たな文字列(_文字列,_結合した文字列) :-
　　　ただし文字列の長さが2文字以下の時は、新たな文字列は空文字となる(_文字列,_結合した文字列

ただし文字列の長さが2文字以下の時は、新たな文字列は空文字となる(_文字列,'') :-
　　　sub_atom(_文字列,_,N,_,_文字列),
　　　N =< 2.

>>45
% Prolog

'文字列が与えられたとして、その最初の文字と同じ文字がそれ以後に現れた場合、それをすべて*に置換した新たな文字列'(_文字列,_置換した文字列) :-
　　　atom_chars(_文字列,[_最初の文字|_残り文字ならび]),
　　　'その最初の文字と同じ文字がそれ以後に現れた場合、それをすべて*に置換'(_最初の文字,_残り文字列,_二文字目以降の置換した文字ならび),
　　　atom_chars(_置換した文字列,[_最初の文字列|_二文字目以降の置換した文字ならび]).

'その最初の文字と同じ文字がそれ以後に現れた場合、それをすべて*に置換'(_,[],[]) :- !.
'その最初の文字と同じ文字がそれ以後に現れた場合、それをすべて*に置換'(_最初の文字,[_最初の文字|R1],['*'|R2]) :-
　　　'その最初の文字と同じ文字がそれ以後に現れた場合、それをすべて*に置換'(_最初の文字,R1,R2),!.
'その最初の文字と同じ文字がそれ以後に現れた場合、それをすべて*に置換'(_最初の文字,[A|R1],[A|R2]) :-
　　　'その最初の文字と同じ文字がそれ以後に現れた場合、それをすべて*に置換'(_最初の文字,R1,R2).
　　　

>>44
使用言語：R

f <- function(s){
a <- nchar(s)
if(a<=2)"" else paste(substr(s,1,2),substr(s,a-1,a),sep="")
}

> f("ba")
[1] ""
> f("basic")
[1] "baic"
> f("bas")
[1] "baas"

>>45
使用言語：R

f <- function(s){
n <- nchar(s)
a <- substr(s,1,1)
paste(a,gsub(a,"*",substr(s,2,n)),sep="")
}

> f("asasas")
[1] "as*s*s"
> f("aa")
[1] "a*"
> f("a")
[1] "a"

>>44
使用言語：Io

Sequence f:=method(if(size <= 2,"",slice(0,2).. slice(-2)))

Io> "basic" f
==> baic
Io> "ba" f
==>
Io> "bas" f
==> baas

>>45
使用言語：Io

Sequence f:=method((a:=slice(0,1)) .. slice(1) asMutable replaceSeq(a,"*"))

Io> "asasas" f
==> as*s*s
Io> "aa" f
==> a*
Io> "a" f
==> a

http://pc12.2ch.net/test/read.cgi/tech/1267796762/11
# 【　課題　】任意の画像A（形式.ppm）と画像B（形式.ppm）を用意する。
# 画像A上の任意の4点の座標をマウスのクリックにより取得し、その4点を結んだ四角形の形、大きさにBを変形し、
# AとBを合成した画像Cを描画し、それを、ppmファイルで出力せよ。
# なお、画像の変形には逆マッピング変換（inverse mapping）とバイリニア補完（bilinear interpolation）を使うこと。
# 変形に際し、Java Advanced Imaging のようなAPIを使ってはならない。
#

>>44
使用言語：Lua

f=function(s)
if (#s<=2) then return "" else return s:sub(1,2)..s:sub(#s-1) end
end

> =f("ba")

> =f("basic")
baic
> =f("bas")
baas

>>45
使用言語：Lua

f=function(s)
a=s:sub(1,1)
return a..(s:sub(2):gsub(a,"*"))
end

> =f("asasas")
as*s*s
> =f("aa")
a*
> =f("a")
a

>>44
使用言語：Arc

(def f (s)
(let n (len s)
(if (<= n 2) "" (+ (cut s 0 2) (cut s (- n 2))))
)
)

arc> (f "ba")
""
arc> (f "basic")
"baic"
arc> (f "bas")
"baas"

>>45
使用言語：Arc

(def f(s)
(let a (cut s 0 1)
(+ a (subst "*" a (cut s 1)))
)
)

arc> (f "asasas")
"as*s*s"
arc> (f "aa")
"a*"
arc> (f "a")
"a"

>>44 解答者におわび
http://pc12.2ch.net/test/read.cgi/tech/1258320456/133 の出題は
# "ただし文字列の長さが2文字以下の時は、"　ではなくて、
# "ただし文字列の長さが2文字より少ない時は" でした。
# both_ends("ab") -> "abab" となります。

>>64 >>44
使用言語：J
問題文の訂正にあわせて変更しました。

f=:monad def ';(1<#y){a:,<(2{.y),_2{.y'

f 'b'

f 'ba'
baba
f 'bas'
baas
f 'basic'
baic

>>64 >>44
使用言語：R
問題文の訂正にあわせて変更しました。

f <- function(s){
a <- nchar(s)
if(a<2)"" else paste(substr(s,1,2),substr(s,a-1,a),sep="")
}

> f("b")
[1] ""
> f("ba")
[1] "baba"
> f("bas")
[1] "baas"
> f("basic")
[1] "baic"

>>64 >>44
使用言語：Io
問題文の訂正にあわせて変更しました。

Sequence f:=method(if(size < 2,"",slice(0,2).. slice(-2)))

Io> "b" f
==>
Io> "ba" f
==> baba
Io> "bas" f
==> baas
Io> "basic" f
==> baic

>>64 >>44
使用言語：Lua
問題文の訂正にあわせて変更しました。

f=function(s)
if (#s<2) then return "" else return s:sub(1,2)..s:sub(#s-1) end
end

> =f("b")

> =f("ba")
baba
> =f("bas")
baas
> =f("basic")
baic

>>64 >>44
使用言語：Arc
問題文の訂正にあわせて変更しました。

(def f (s)
(let n (len s)
(if (< n 2) "" (+ (cut s 0 2) (cut s (- n 2))))
)
)

arc> (f "b")
""
arc> (f "ba")
"baba"
arc> (f "bas")
"baas"
arc> (f "basic")
"baic"

>>64 >>44
使用言語：Scilab

function r=f(s)
n=length(s)
if n<2 then
r=""
else
r=part(s,1:2)+part(s,n-1:n)
end
endfunction

-->f("b")
ans =

-->f("ba")
ans =
baba
-->f("bas")
ans =
baas
-->f("basic")
ans =
baic

>>45
使用言語：Scilab

function r=f(s)
a=part(s,1)
r=a+strsubst(part(s,2:length(s)),a,"*")
endfunction

-->f("asasas")
ans =
as*s*s
-->f("aa")
ans =
a*
-->f("a")
ans =
a

http://pc12.2ch.net/test/read.cgi/tech/1267796762/13
# 【　課題　】
# ○県、市別に男女の人数をクロス集計するプログラムを作成せよ。
#
# 千葉県 柏市 男
# 千葉県 松戸市 男
# 埼玉県 さいたま市 女
# 千葉県 柏市 男
# 埼玉県 越谷市 男
# 千葉県 松戸市 男
# 埼玉県 岩槻市 女
# 千葉県 柏市 女
# 埼玉県 さいたま市 女
#
# [実行例](男の場合)
# ,柏市,松戸市,さいたま市,越谷市,岩槻市
# 千葉県,2,2,0,0,0
# 埼玉県,0,0,0,1,0
#
# [実行例](女の場合)
# ,柏市,松戸市,さいたま市,越谷市,岩槻市
# 千葉県,1,0,0,0,0
# 埼玉県,0,0,2,0,1

http://pc11.2ch.net/test/read.cgi/db/1252492296/688
# Oracle10gを使用しています。
#
# <生徒テーブル>
# 生徒ID, 生徒名称, クラスID, 好きな教科ID,
# 1, 鈴木, A, 1
# 2, 田中, B, 1
# 3, 佐藤, c, 2
#
# <教科テーブル>
# 教科ID, 教科名称
# 1, 国語
# 2, 数学
# 3, 理化
#
# <クラステーブル>
# クラスID, クラス名称
# a, Aクラス
# b, Bクラス
# c, Cクラス
#
# 上記2つのテーブルから、
# 各教科でクラス毎に何人が好きな教科としているか以下のような形で取得します。
#
# 教科, Aクラス内での人数, B〜, C〜, …
# 国語, 1, 1, 0, …
# 数学, 0, 0, 1, …
# 理化, 0, 0, 0, …
#

http://pc12.2ch.net/test/read.cgi/tech/1263824755/962
# [1] 授業単元： C言語基礎
# [2] 問題文(含コード&リンク)：
# 数値中のすべてのビットを左端までシフトするプログラムを作成しなさい。
# 例えば、01010110(二進法)は11110000(二進法)となります。

>>74
// compile-time C++
#include <iostream>

template <unsigned int N>
struct from_binary { static const unsigned int value = 2*from_binary<N/10>::value + N%10; };
template <>
struct from_binary <0> { static const unsigned int value = 0; };

template <unsigned int N>
struct to_binary { static const unsigned int value = 10*to_binary<(N/2)>::value + N%2; };
template <>
struct to_binary <0> { static const unsigned int value = 0; };

template <unsigned int N>
class bitcount {
private:
static const unsigned int N1 = (N & 0x55) + (N>>1 & 0x55);
static const unsigned int N2 = (N1 & 0x33) + (N1>>2 & 0x33);
public:
static const unsigned int value = (N2 & 0x0F) + (N2>>4 & 0x0F);
};

template <unsigned int N>
struct t74 { static const unsigned int value = (0xFF << bitcount<N>::value) & 0xFF; };

int main()
{
std::cout << to_binary<t74<from_binary<101110>::value>::value>::value << std::endl;
return 0;
}

間違えた
s/bitcount<N>::value/(8-bitcount<N>::value)/

>>74
% Prolog

二進数表現の全ての1であるビットを左側に寄せてシフトする([],[]) :- !.
二進数表現の全ての1であるビットを左側に寄せてシフトする([0|R1],[1|R3]) :-
残りの最初の1と置換する(R1,R2),
二進数表現の全ての1であるビットを左側に寄せてシフトする(R2,R3).
二進数表現の全ての1であるビットを左側に寄せてシフトする([0|R1],[0|R1]) :- !.
二進数表現の全ての1であるビットを左側に寄せてシフトする([1|R1],[1|R2]) :-
二進数表現の全ての1であるビットを左側に寄せてシフトする(R1,R2).

残りの最初の1と置換する([1|R1],[0|R1]) :-!.
残りの最初の1と置換する([0|R1],[0|R2]) :-
残りの最初の1と置換する(R1,R2).

>>77 (>>74)
% Prolog 書き直し

二進数表現の全ての1であるビットを左側に寄せてシフトする([],[]) :- !.
二進数表現の全ての1であるビットを左側に寄せてシフトする([0|R1],[1|R3]) :-
　　　残りの最初の1と置換する(R1,R2),
　　　二進数表現の全ての1であるビットを左側に寄せてシフトする(R2,R3).
二進数表現の全ての1であるビットを左側に寄せてシフトする([0|R1],[0|R1]) :- !.
二進数表現の全ての1であるビットを左側に寄せてシフトする([1|R1],[1|R2]) :-
　　　二進数表現の全ての1であるビットを左側に寄せてシフトする(R1,R2).

残りの最初の1と置換する([1|R1],[0|R1]) :-!.
残りの最初の1と置換する([0|R1],[0|R2]) :-
　　　残りの最初の1と置換する(R1,R2).

>>72
% Prolog

○県、市別に男女の人数をクロス集計する(_性別) :-
　　　findall(_県名,県・市・男女(_県,_,_),_重複を許した県名ならび),
　　　sort(_重複を許した県名ならび,_整列した重複しない県名ならび),
　　　findall(_都市名,県・市・男女(_,_都市名,_),_重複を許した都市名ならび),
　　　sort(_重複を許した県名ならび,_整列した重複しない都市名ならび),
　　　concat_atom(_整列した重複しない都市名ならび,',',_都市名行表示),
　　　write_formatted(',%t\n',[_都市名行表示]),
　　　member(_県名,_整列した重複しない県名ならび),
　　　findall(_人数,( member(_都市名,_整列した重複しない都市名),
　　　　　　　　　　　count(_県名,_都市名,_性別),_人数)),
　　　　　　　_人数ならび),
　　　concat_atom([_県名|_人数ならび],_行表示),
　　　write_formatted('%t\n',[_行表示]),
　　　fail.
○県、市別に男女の人数をクロス集計する(_性別).

>>73
% Prolog

各教科でクラス毎に何人が好きな教科としているか以下のような形で取得(_クラス毎好きな教科の人数ならび) :-
　　　findall(_クラスID,クラステーブル(_クラスID,_),_クラスIDならび),
　　　findall(_教科ID,教科テーブル(_教科ID,_),_教科IDならび),
　　　findall([_教科ID_2,_クラスID_2,_人数],
　　　　　　　　　　( member(_教科ID_2,_教科IDならび),
　　　　　　　　　　　member(_クラスID_2,_クラスIDならび),
　　　　　　　　　　　count(生徒テーブル(_,_,_クラスID_2,_教科ID_2),_人数)),
　　　　　　　_クラス毎好きな教科の人数ならび).

>>74 (>>73)
% Prolog 述語名変更(削り忘れた)

各教科でクラス毎に何人が好きな教科としているか(_クラス毎好きな教科の人数ならび) :-
　　　....

% 「以下のような形で」のような表現をラベルにどう取り込むかは研究課題。

http://pc12.2ch.net/test/read.cgi/tech/1263824755/972
# 【質問テンプレ】
# [1] 授業単元：C言語演習
# [2] 問題文(含コード&リンク)：
# typedef struct Position
# {
# 　　double x,y,z;
# }Position;
#
# typedef struct Triangle
# {
# 　　Position p1,p2,p3;
# }Triangle;
#
# 第1引数のTriangle型で示される3角板の中の、第2引数に最も近い座標を返す関数
# Position GetNearestPosition( Triangle *tri, Position *tgt );
# を作成しなさい。

http://pc11.2ch.net/test/read.cgi/db/1252492296/713
#
# A　B　C
# -　-　-
# 1　3　a
# 1　5　b
# 2　8　c
# 2　4　d
# 2　6　e
# 3　3　f
# 3　1　g
#
# 上記のようなSAMPLEテーブルがあるとき、
# AごとにBが最大となるレコードのCを得たい、
# つまり、抽出結果を下記のようにしたいと考えています。
#
# A　C
# -　-
# 1　b
# 2　c
# 3　f

>>83
% Prolog

'AごとにBが最大となるレコードのCを得る'(A,B,C) :-
　　　findsetof(A,'SAMPLE'(A,_,_)),
　　　findmax([B,A,C],'SAMPLE'(A,B,C),[B,A,C]).

% findsetof/2 は http://nojiriko.asia/prolog/findsetof.html 参照

>>82
たぶんこれで正しいと思う…
ttp://ideone.com/AAa3g0SM

>>83
-- Haskell
import Data.List (groupBy, maximumBy)
import Data.Ord (comparing)
import Data.Function (on)

fst3 (x,_,_) = x
snd3 (_,x,_) = x

t83 = map ((a,_,c) -> (a,c)) . map (maximumBy (comparing snd3)) . groupBy ((==) `on` fst3)

main = print . t83 $ sample
where
sample = [(1,3,'a'), (1,5,'b'), (2,8,'c'), (2,4,'d'), (2,6,'e'), (3,3,'f'), (3,1,'g')]

>>83
% Prolog

集約項の最大値(Query,_集約引数ならび,_集約対象引数,_選択項引数ならび) :-
　　　findsetof(_集約引数ならび,Query),
　　　findmax([_集約対象引数|_選択項引数ならび],Query,[_集約対象引数|_選択項引数ならび]).

?- 集約項の最大値('SAMPLE'(A,B,C),[A],B,[A,B,C]).

A = 1,
B = 5,
C = b;
A = 2,
B = 8,
C = c;
A = 3,
B = 3,
C = f;
no
?-

>>73
% Prolog

各教科でクラス毎に何人が好きな教科としているか(_各教科クラスごとに好きな教科人数ならび) :-
　　　findsetof([_教科ID],クラステーブル(_クラスID,_)),
　　　findall([_クラスID,_教科ID,_度数],
　　　　　　　集約項度数((クラステーブル(_クラスID,_),教科テーブル(_教科ID,_),生徒テーブル(_,_,_クラスID,_教
科ID)),[_クラスID,_教科ID],_度数),
　　　　　　　_各教科クラスごとに好きな教科人数ならび).

集約項の度数(Query,_集約引数,_度数) :-
　　　findsetof(_集約引数,Query),
　　　count(Query,_度数).

>>74
使用言語：J

f=:dyad def '([:#.x{.1#~+/)#:y'

8 f 86
240

(8#2)#:86
0 1 0 1 0 1 1 0
(8#2)#:240
1 1 1 1 0 0 0 0

「左端」はbit数で変わってしまうので、bit数も引数にしました。

>>74
使用言語：J

A=:;/1 1 2 2 2 3 3
B=:;/3 5 8 4 6 3 1
C=:' ' cutopen 'a b c d e f g'
]data=:A,.B,.C
+-+-+-+
|1|3|a|
+-+-+-+
|1|5|b|
+-+-+-+
|2|8|c|
+-+-+-+
|2|4|d|
+-+-+-+
|2|6|e|
+-+-+-+
|3|3|f|
+-+-+-+
|3|1|g|
+-+-+-+
/:~(#~[:~:{."1)\:~data
+-+-+-+
|1|5|b|
+-+-+-+
|2|8|c|
+-+-+-+
|3|3|f|
+-+-+-+

>>90
アンカー間違えました。>>83 でした。

>>83
使用言語：C#
class Program
{
static void Main(string[] args)
{
var table = new[] {new { A = 1, B = 3, C = "a" },
new { A = 1, B = 5, C = "b" },
new { A = 2, B = 8, C = "c" },
new { A = 2, B = 4, C = "d" },
new { A = 2, B = 6, C = "e" },
new { A = 3, B = 3, C = "f" },
new { A = 3, B = 1, C = "g" }};
var ary = table.GroupBy(t => t.A)
.Select(g => new { A = g.Key, B = g.Max(t => t.B) })
.Join(table, t => t.A, t => t.B, (t, t2) =>
new
{
A = t2.A,
B = t2.B,
C = t2.C
});
foreach (var a in ary)
Console.WriteLine(a.ToString());
Console.ReadLine();
}
}

>>82
使用言語：J

g=:dyad def '%:+/"1*:x-y'
f=:dyad def '{.x/:x g"1 y'
T=:3 3$1 1 0, 2 3 0, 4 3 0

T f 1 2 4
1 1 0

>>74
使用言語：Io

f:=method(n,b,
n asString toBase(2) alignLeft(b, "0") sort reverse fromBase(2)
)

Io> f(86,8)
==> 240

JとかIoって趣味でさわってるんですか？

>>95
はい。簡単なのしかできません。

Prologも？

prolog は問題をだしている人だと思います。

>>97 99%のPrologコードは私が書いています。このスレでは仕様から
直感的に得られるプログラムパターン上のラベル(述語名、論理変数名)に
仕様の断簡を載せたらどうなるかを、露悪"趣味"的に追求しています。
したがってここのコードは趣味として書かれています。職業的には
この25年間Prolog以外のコードを書いたことはありません。

http://pc12.2ch.net/test/read.cgi/tech/1197620454/385
# 問題文：
# １、10個の文字を1つずつ入力し、それらを入力した順に
# 　　並べて表示
# ２、10個の文字を1つずつ入力し、それらを入力した順と逆順に
# 　　並べて表示
# ３、5文字以上の長さの文字列を入力し、4番目の文字と5番目の文字を入れ替えて表示
# ４、10個の1桁の整数を入力し、それらを大きい順に並べて表示
# ５、10個の1桁の整数を入力し、その中から最も大きい3個を入力した順に表示
# ６、1桁の整数の入力を、同じ数が3回入力されるまで繰り返す
# ７、1桁の整数の入力を、0から9までの全ての数が入力されるまで繰り返す

http://pc12.2ch.net/test/read.cgi/tech/1197620454/200
# 練習問題
# ・数値を複数回入力し、最後に"END"と入力された後、それぞれに対し
# 80以上なら"verygood"、80未満で60以上なら"good"、60未満なら"normal"
# と表示されるプログラムを作成しなさい。
#
# 例)　25(enter押下)
# 　　 90(enter押下)
# 　　 73(enter押下)
# 　　 END (enter押下)
#
# 　　 25 normal
# 　　 90 verygood
# 　　 73 good

http://pc12.2ch.net/test/read.cgi/tech/1197620454/190
# [問題]・Jumanをインストールする。
# 　　　・文を入力し、その文の中の各単語の出現頻度を求めるプログラムの作成

http://pc12.2ch.net/test/read.cgi/tech/1197620454/179
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：
# 正方行列を入力したら逆行列を計算し出力するプログラムを作成せよ。
# 起動後にコンソールに「行列のサイズを入力してください」と表示し、サイズを入力したら、
# 「行列要素を入力してください」と表示し、行列の１行分の要素をカンマ区切りで１行ずつ入力する。
# 結果は、コンソールに「逆行列は次の通りです」と表示し、
# 逆行列を各自が見やすいと思う方法で体裁を整えて表示せよ。
# 逆行列が存在しない場合は「解無し」と表示せよ。

http://pc12.2ch.net/test/read.cgi/tech/1136788500/403
# (1) subを用いて２つの分母の異なった（2/3+5/7など）分数の和を計算するプログラムを作成せよ。
# 実行結果は約分すること
#
# (2) Functionを用いてヘロンの公式を実装せよ。
# 三辺の長さから３角形の面積を求める
# ただし、３編の長さより三角形が成立しない場合は、除外する仕様とせよ

http://pc12.2ch.net/test/read.cgi/tech/1267796762/18
# 【　課題　】http://nojiriko.asia/pdf/Project5.pdf (コピーさせていただきました)
# 　　　　　　迷路問題で第一行の一番左が入り口で、ドットを辿って最終行まで到達するクイズ
# 　　　　　　解くプログラムを作ってください。プラスは壁であり斜めのドットに直接移動はできません。
# 　　　　　　到達できる問題とできない問題があります。できるか、できないかを、最初にはっきり述べてください。
# 問題は http://nojiriko.asia/prolog/data/maze1.txt (以下、コピーさせていただきました)
# 　　　　http://nojiriko.asia/prolog/data/maze2.txt
# 　　　　http://nojiriko.asia/prolog/data/maze3.txt
# 　　　　http://nojiriko.asia/prolog/data/maze4.txt
# 　　　　http://nojiriko.asia/prolog/data/maze5.txt
# 　にあります。

>>101
% Prolog

'数値を複数回入力し、最後に"END"と入力された後、それぞれに対し80以上なら"verygood"、80未満で60以上なら"good"、60未満なら"normal"と表示されるプログラム' :-
　　　'数値を複数回入力し、最後に"END"と入力'(L),
　　　'それぞれに対し80以上なら"verygood"、80未満で60以上なら"good"、60未満なら"normal"と表示する'(L),

'数値を複数回入力し、最後に"END"と入力'(L) :-
　　　findall(_数値,(repeat,get_line(_行),(_行='END',!,fail;atom_to_term(_行,_,_数値),integer(_数値))),L),!.

'それぞれに対し80以上なら"verygood"、80未満で60以上なら"good"、60未満なら"normal"と表示する'([]) :- !.
'それぞれに対し80以上なら"verygood"、80未満で60以上なら"good"、60未満なら"normal"と表示する'([N|R]) :-
　　　N >= 80,
　　　write('%t verygood\n',[N]),
　　　'それぞれに対し80以上なら"verygood"、80未満で60以上なら"good"、60未満なら"normal"と表示する'(R),!.
'それぞれに対し80以上なら"verygood"、80未満で60以上なら"good"、60未満なら"normal"と表示する'([N|R]) :-
　　　N < 80,N >= 60,
　　　write('%t good\n',[N]),
　　　'それぞれに対し80以上なら"verygood"、80未満で60以上なら"good"、60未満なら"normal"と表示する'(R),!.
'それぞれに対し80以上なら"verygood"、80未満で60以上なら"good"、60未満なら"normal"と表示する'([N|R]) :-
　　　N < 60,
　　　write('%t normal\n',[N]),
　　　'それぞれに対し80以上なら"verygood"、80未満で60以上なら"good"、60未満なら"normal"と表示する'(R),!.

>>100
% Prolog 課題 １、

'10個の文字を1つずつ入力し、それらを入力した順に並べて表示' :-
　　　'10個の文字を1つずつ入力'(L),
　　　それらを入力した順に並べて表示(L).

'10個の文字を1つずつ入力'(L) :-
　　　findall(_文字,(for(1,_,10),一つずつ入力(_文字)),L).

一つずつ入力(_文字) :- get_line(_行),sub_atom(_行,0,1,_,_文字)),!.
一つずつ入力(_文字) :- 一つずつ入力(_文字).

それらを入力した順に並べて表示([]) :- !.
それらを入力した順に並べて表示([A|R]) :-
　　　write_fromatted('%t',[A]),
　　　それらを入力した順に並べて表示(R).

>>101 (>>100) 訂正
% Prolog 間違えた。(さて、どこが訂正されたのでしょう？)

'10個の文字を1つずつ入力し、それらを入力した順に並べて表示' :-
　　　'10個の文字を1つずつ入力'(L),
　　　それらを入力した順に並べて表示(L).

'10個の文字を1つずつ入力'(L) :-
　　　findall(_文字,(for(1,_,10),一つずつ入力(_文字)),L).

一つずつ入力(_文字) :- get_line(_行),sub_atom(_行,0,1,0,_文字)),!.
一つずつ入力(_文字) :- 一つずつ入力(_文字).

それらを入力した順に並べて表示([]) :- !.
それらを入力した順に並べて表示([A|R]) :-
　　　write_fromatted('%t',[A]),
　　　それらを入力した順に並べて表示(R).

>>108 (>>100) >>101ではなくて>>107でした。
% Prolog それらを順に並べて表示/1 は、こんなのもあるかも。

それらを入力した順に並べて表示([]) :- 最後改行せずに終わります.
それらを入力した順に並べて表示([A|R]) :-
　　　write_fromatted('%t',[A]),
　　　それらを入力した順に並べて表示(R).

最後改行せずに終わります.

>>107
% Prolog ２、

'10個の文字を1つずつ入力し、それらを入力した順と逆順に並べて表示' :-
　　　'10個の文字を1つずつ入力し'(L1),
　　　それらを入力した順と逆順に並べて(L1,L2),
　　　表示(L2).

'10個の文字を1つずつ入力し'(L) :-
　　　findall(_文字,(for(1,_,10),一つずつ入力(_文字)),L).

それらを入力した順と逆順に並べて(L1,L2) :- reverse(L1,L2).

表示([]) :- 最後改行せずに終わります,!.
表示([A|R]) :- write(A),表示(R).

>>100
% Prolog ３、 4番目、5番目の位置関係(連続していて4<5)が理解できている場合

'5文字以上の長さの文字列を入力し、4番目の文字と5番目の文字を入れ替えて表示' :-
　　　 '5文字以上の長さの文字列を入力し'(L1),
　　　 '4番目の文字と5番目の文字を入れ替えて'(L1,L2),
　　　 表示(L2).

'5文字以上の長さの文字列を入力し'(L) :-
　　　get_line(_行),
　　　sub_atom(_行,0,_文字数,0,_行),
　　　文字数 >= 5,
　　　atom_chars(_行,L),!.
'5文字以上の長さの文字列を入力し'(L) :- '5文字以上の長さの文字列を入力し'(L).

'4番目の文字と5番目の文字を入れ替えて'(L1,L2) :-
　　　length(L0,3),
　　　append(L0,[_4番目,_5番目|R],L1),
　　　append(L0,[_5番目,_4番目|R],L2),!.

>>111
% Prolog

'一般にM番目要素とN番目要素を入れ替える時は'(M,N,L1,L2) :-
　　　M < N,
　　　'一般にM番目要素とN番目要素を入れ替える時はカウンタを一つ追加して'(1,M,N,L1,L2),!.
'一般にM番目要素とN番目要素を入れ替える時は'(M,N,L1,L2) :-
　　　M >= N,
　　　'一般にM番目要素とN番目要素を入れ替える時はカウンタを一つ追加して'(1,N,M,L1,L2),!.

'一般にM番目要素とN番目要素を入れ替える時はカウンタを一つ追加して'(M,M,N,[_M番目|R1],[_N番目|R2]) :-
　　　M2 is M + 1,
　　　'一般にM番目要素とN番目要素を入れ替える時はカウンタを一つ追加して'(M2,N,_M番目,_N番目,R1,R2),!.
'一般にM番目要素とN番目要素を入れ替える時はカウンタを一つ追加して'(M1,M,N,[A|R1],[A|R2]) :-
　　　M2 is M1 + 1,
　　　'一般にM番目要素とN番目要素を入れ替える時はカウンタを一つ追加して'(M2,M,N,R1,R2).

'一般にM番目要素とN番目要素を入れ替える時はカウンタを一つ追加して'(N,N,_M番目,_N番目,[_N番目|R],[_M番目|R]) :- !.
'一般にM番目要素とN番目要素を入れ替える時はカウンタを一つ追加して'(N1,N,_M番目,_N番目,[A|R1],[A|R2]) :-
　　　N2 is N1 + 1,
　　　'一般にM番目要素とN番目要素を入れ替える時はカウンタを一つ追加して'(N2,N,_M番目,_N番目,R1,R2).

>>112
% Prolog さすがに読み難い!!

'M番目要素とN番目要素を置換'(M,N,L1,L2) :-
　　　M < N,
　　　'M番目要素とN番目要素を置換'(1,M,N,L1,L2),!.
'M番目要素とN番目要素を置換'(M,N,L1,L2) :-
　　　M >= N,
　　　'M番目要素とN番目要素を置換'(1,N,M,L1,L2),!.

'M番目要素とN番目要素を置換(M,M,N,[_M番目|R1],[_N番目|R2]) :-
　　　M2 is M + 1,
　　　'M番目要素とN番目要素を置換'(M2,N,_M番目,_N番目,R1,R2),!.
'M番目要素とN番目要素を置換'(M1,M,N,[A|R1],[A|R2]) :-
　　　M2 is M1 + 1,
　　　'M番目要素とN番目要素を置換'(M2,M,N,R1,R2).

'M番目要素とN番目要素を置換'(N,N,_M番目,_N番目,[_N番目|R],[_M番目|R]) :- !.
'M番目要素とN番目要素を置換'(N1,N,_M番目,_N番目,[A|R1],[A|R2]) :-
　　　N2 is N1 + 1,
　　　'M番目要素とN番目要素を置換'(N2,N,_M番目,_N番目,R1,R2).

>>100
% Prolog ７、

'1桁の整数の入力を、同じ数が3回入力されるまで繰り返す' :-
　　　'1桁の整数の入力'(N),
　　　'1桁の整数の入力を、同じ数が3回入力されるまで繰り返す'(N,[]).

'1桁の整数の入力を、同じ数が3回入力されるまで繰り返す'(N,L) :-
　　　count(member(N,L),2),!.
'1桁の整数の入力を、同じ数が3回入力されるまで繰り返す'(N,L) :-
　　　'1桁の整数の入力'(N2),
　　　'1桁の整数の入力を、同じ数が3回入力されるまで繰り返す'(N2,[N|L]).

'1桁の整数の入力'(_1桁の整数) :-
　　　get_integer(_1桁の整数),
　　　_1桁の整数 >= 0,
　　　_1桁の整数 < 10,!.
'1桁の整数の入力'(_1桁の整数) :- '1桁の整数の入力'(_1桁の整数).

>>114 (>>100)
% Prolog ６、　でした。

>>100
% Prolog ７、

'1桁の整数の入力を、0から9までの全ての数が入力されるまで繰り返す' :-
　　　'1桁の整数の入力'(N),
　　　'1桁の整数の入力を、0から9までの全ての数が入力されるまで繰り返す'(N,[]).

'1桁の整数の入力を、0から9までの全ての数が入力されるまで繰り返す'(N,L) :-
　　　\+(member(N,L)),
　　　length(L,9),!.
'1桁の整数の入力を、0から9までの全ての数が入力されるまで繰り返す'(N,L) :-
　　　\+(member(N,L)),
　　　\+(length(L,9)),
　　　'1桁の整数の入力'(N2),
　　　'1桁の整数の入力を、0から9までの全ての数が入力されるまで繰り返す'(N2,[N|L]),!.
'1桁の整数の入力を、0から9までの全ての数が入力されるまで繰り返す'(N,L) :-
　　　member(N,L),
　　　'1桁の整数の入力'(N2),
　　　'1桁の整数の入力を、0から9までの全ての数が入力されるまで繰り返す'(N2,L).

'1桁の整数の入力'(_1桁の整数) :-
　　　get_integer(_1桁の整数),
　　　_一桁の整数 >= 0,
　　　_一桁の整数 < 10,!.
'1桁の整数の入力'(_1桁の整数) :- '1桁の整数の入力'(_1桁の整数).

>>104
% Prolog (2)

ヘロンの公式(_三角形の辺1,_三角形の辺2,_三角形の辺3,_三角形の面積) :-
　　　_三角形の辺1 < _三角形の辺2 + _三角形の辺3,
　　　_三角形の辺2 < _三角形の辺1 + _三角形の辺3,
　　　_三角形の辺3 < _三角形の辺1 + _三角形の辺2,
　　　S is (_三角形の辺1+_三角形の辺2+_三角形の辺3) / 2,
　　　_三角形の面積 is sqrt(S * (S - _三角形の辺1) * (S - _三角形の辺2) * (S - _三角形の辺3)).
ヘロンの公式(_三角形の辺1,_三角形の辺2,_三角形の辺3,_三角形の面積) :-
　　　write('三角形として構成できません\n'),fail.

>>104
% Prolog (1)

分数の加算(_分子1/_分母1,_分子2/_分母2,_分子/_分母) :-
　　　A is _分母1 * _分母2,
　　　B is _分子1 * _分母2 + _分子2 * _分母1,
　　　約分(B/A,_分子/_分母).

約分(B/A,_分子/_分母) :-
　　　最大公約数(B,A,C),
　　　_分子 is B // C,
　　　_分母 is A // C.

>>103
% Prolog

方行列を入力したら逆行列を計算し出力するプログラム :-
　　　催促付き整数入力('行列のサイズを入力してください ',_サイズ),
　　　write('行列要素を入力してください\n'),
　　　findall(L,(for(1,N,_サイズ),get_split_line([','],L)),_行列),
　　　逆行列(_行列,_逆行列),
　　　行列の表示(_逆行列).

逆行列(_行列,_逆行列) :-
　　　length(_行列,N),
　　　単位行列(N,L),
　　　行列の結合(_行列,L,_行列の二),
　　　既約ガウス行列に変形(_行列の二,_既約ガウス行列),
　　　変数正方行列(1,N,_逆行列),
　　　行列の結合(_,_逆行列,_既約ガウス行列) .

行列の表示([]) :- !.
行列の表示([L|R]) :-
　　　行列要素の表示(L),
　　　行列の表示(R).

行列要素の表示([]) :- !.
行列要素の表示([A]) :- write_formatted('%6t\n',[A]),!.
行列要素の表示([A|R]) :-
　　　write_formatted('%6t,',[A]),
　　　行列要素の表示(R).

% 単位行列/2,行列の結合/3,規約ガウス行列に変形/2,変数正方行列/3は
% http://nojiriko.asia/prolog/gyakugyouretsu.html を参照してください

>>119 (>>103) 訂正
% Prolog

正方行列を入力したら逆行列を計算し出力するプログラム :-
　　　催促付き整数入力('行列のサイズを入力してください ',_サイズ),
　　　write('行列要素を入力してください\n'),
　　　findall(L,(for(1,N,_サイズ),get_split_line([','],L)),_行列),
　　　逆行列(_行列,_逆行列),
　　　行列の表示(_逆行列).

逆行列(_行列,_逆行列) :-
　　　length(_行列,N),
　　　単位行列(N,L),
　　　行列の結合(_行列,L,_行列の二),
　　　既約ガウス行列に変形(_行列の二,_既約ガウス行列),
　　　変数正方行列(1,N,_逆行列),
　　　行列の結合(_,_逆行列,_既約ガウス行列) .

行列の表示([]) :- !.
行列の表示([L|R]) :-
　　　行列要素の表示(L),
　　　行列の表示(R).

行列要素の表示([]) :- !.
行列要素の表示([A]) :- write_formatted('%6t\n',[A]),!.
行列要素の表示([A|R]) :-
　　　write_formatted('%6t,',[A]),
　　　行列要素の表示(R).

% 単位行列/2,行列の結合/3,規約ガウス行列に変形/2,変数正方行列/3は
% http://nojiriko.asia/prolog/gyakugyouretsu.html を参照してください

>>102
% Prolog その一

形態素解析サーバー(juman).

形態素解析(ファイル,File,L) :-
　　　形態素解析サーバー(_形態素解析サーバー),
　　　concat_atom(['cat ',File,' | ',_形態素解析サーバー],S),
　　　sh(S,L1),
　　　形態素解析(L1,L2),
　　　形態素解析_3(L2,L) .
形態素解析(文,S,L) :-
　　　tmpnam(File),tell(File),write_formatted('%t',[S]),told,
　　　形態素解析(ファイル,File,L) .

形態素解析([],[]) :- !.
形態素解析([['EOS'|_]|_],[]) :- !.
形態素解析([[A|_],['@',B|_]|R],[R1_1|R3]) :-
　　　形態素解析_2(R,R1,R2),
　　　形態素解析_2_重複削除([A,B|R1],[],R1_1),
　　　形態素解析(R2,R3),!.
形態素解析([[A|_]|R],[B|R2]) :-
　　　形態素解析サーバー(mecab),
　　　split(A,['\t'],AL),
　　　AL = [B|_],
　　　形態素解析(R,R2),!.
形態素解析([[A|_]|R],[A|R2]) :-
　　　形態素解析サーバー(juman),
　　　形態素解析(R,R2),!.

>>102
% Prolog その二

形態素解析_2([],[],[]) :- !.
形態素解析_2([[A|R1]|R],[],[[A|R1]|R]) :- \+(A = (@)),!.
形態素解析_2([[(@),A|_]|R],[A|R2],R3) :-
　　　形態素解析_2(R,R2,R3),!.

形態素解析_2_重複削除([],L1,L) :-
　　　reverse(L1,L),!.
形態素解析_2_重複削除([A|R],Y,X) :-
　　　member(A,Y),
　　　形態素解析_2_重複削除(R,Y,X),!.
形態素解析_2_重複削除([A|R],Y,X) :-
　　　\+(member(A,Y)),
　　　形態素解析_2_重複削除(R,[A|Y],X).

>>105
-- Haskell とりあえず Queue を使って
import Data.Array (Array, listArray, bounds, inRange, (!))
import Data.Set (Set)
import qualified Data.Set as S
newtype Queue a = Q ([a],[a])
data Cell = Open | Blocked deriving Eq
empty = Q ([],[])
singleton x = Q ([],[x])
isEmpty (Q (f,r)) = null f && null r
put (Q (f,r)) x = Q (x:f,r)
get (Q (f,x:r)) = (x,Q (f,r))
get (Q (f,[])) = get $ Q ([],(reverse f))

solveMaze maze = bfs S.empty $ singleton [start]
where
(start,goal) = bounds $ maze
bfs s q
| isEmpty q = Nothing
| otherwise = case get q of
(path@(pos:_),q')
| pos == goal -> Just (reverse path)
| S.member pos s -> bfs s q'
| otherwise -> bfs (S.insert pos s) $ foldl (\q p -> put q (p:path)) q' $ around pos
around (row,col) = filter (\p -> inRange (bounds maze) p && maze!p == Open) [(row-1,col), (row,col-1), (row,col+1), (row+1,col)]

main = do
cs <- getContents
let (l,m) = break (== '\n') cs
[row,col] = words l
maze = listArray ((1,1),(read row,read col)) . map (\c -> if c == '.' then Open else Blocked) . filter (/= '\n') $ m
print . solveMaze $ maze

>>102
% Prolog

文を入力し、その文の中の(_重複しない単語ならび,_語彙ならび,_単語出現頻度ならび),!.

形態素解析を利用して各単語の出現頻度を求める(_文,_単語出現頻度ならび) :-
　　　形態素解析(文,_文,_語彙ならび),
　　　各単語の出現頻度を求める(_語彙ならび,_単語出現頻度ならび),!.

各単語の出現頻度を求める(_語彙ならび,_単語出現頻度ならび) :-
　　　重複しない単語ならびを得る(_語彙ならび,_重複しない単語ならび),
　　　findall([_語彙,_出現頻度],単語の出現頻度を得る(_重複しない単語ならび,_語彙ならび,_語彙,_出現頻度)),_単語出現頻度ならび).

重複しない単語ならびを得る(_語彙ならび,_重複しない単語ならび) :-
　　　setof(_語彙,member(_語彙,_語彙ならび),_重複しない単語ならび).

単語の出現頻度を得る(_重複しない単語ならび,_語彙ならび,_語彙,_出現頻度) :-
　　　member(_語彙,_重複しない単語ならび),
　　　count(member(_語彙,_語彙ならび),_出現頻度).

>>124 (>>102)
% Prolog 一行目にゴミが入ってしまった。

形態素解析を利用して各単語の出現頻度を求める(_文,_単語出現頻度ならび) :-
　　　形態素解析(文,_文,_語彙ならび),
　　　各単語の出現頻度を求める(_語彙ならび,_単語出現頻度ならび),!.

各単語の出現頻度を求める(_語彙ならび,_単語出現頻度ならび) :-
　　　重複しない単語ならびを得る(_語彙ならび,_重複しない単語ならび),
　　　findall([_語彙,_出現頻度],単語の出現頻度を得る(_重複しない単語ならび,_語彙ならび,_語彙,_出現頻度)),_単語出現頻度ならび).

重複しない単語ならびを得る(_語彙ならび,_重複しない単語ならび) :-
　　　setof(_語彙,member(_語彙,_語彙ならび),_重複しない単語ならび).

単語の出現頻度を得る(_重複しない単語ならび,_語彙ならび,_語彙,_出現頻度) :-
　　　member(_語彙,_重複しない単語ならび),
　　　count(member(_語彙,_語彙ならび),_出現頻度).

>>125 (>>102) 訂正
% Prolog 括弧閉じが一つ多いところがあった。

各単語の出現頻度を求める(_語彙ならび,_単語出現頻度ならび) :-
　　　重複しない単語ならびを得る(_語彙ならび,_重複しない単語ならび),
　　　findall([_語彙,_出現頻度],単語の出現頻度を得る(_重複しない単語ならび,_語彙ならび,_語彙,_出現頻度),_単語出現頻度ならび).

% Prolog ７、(　3回入力されるまで繰り返すと言って置きながら、Lの中に2個存在する場合に
% 　　　　　　　終了する定義は好ましくない)

'1桁の整数の入力を、同じ数が3回入力されるまで繰り返す' :-
　　　'1桁の整数の入力'(N),
　　　'1桁の整数の入力を、同じ数が3回入力されるまで繰り返す'(N,[N]).

'1桁の整数の入力を、同じ数が3回入力されるまで繰り返す'(N,L) :-
　　　count(member(N,L),3),!.
'1桁の整数の入力を、同じ数が3回入力されるまで繰り返す'(N,L) :-
　　　'1桁の整数の入力'(N2),
　　　'1桁の整数の入力を、同じ数が3回入力されるまで繰り返す'(N2,[N2|L]).

'1桁の整数の入力'(_1桁の整数) :-
　　　get_integer(_1桁の整数),
　　　_1桁の整数 >= 0,
　　　_1桁の整数 < 10,!.
'1桁の整数の入力'(_1桁の整数) :- '1桁の整数の入力'(_1桁の整数).

>>127 は　>>114　に対するコメントでした。それから課題は>>100 Prolog ６、

仕様に存在しない文字は極力(組込述語等は除く)使わないようにしようということ。
文章のなかに内在しないロジックも。

>>100
% Prolog ５、

'10個の1桁の整数を入力し、その中から最も大きい3個を入力した順に表示' :-
　　　'10個の1桁の整数を入力し'(L),
　　　その中から最も大きい3個を(L,L_3),
　　　入力した順に表示(L_3).

'10個の1桁の整数を入力し'(L) :-
　　　findall([_整数,Nth],(for(1,Nth,10),'1桁の整数を入力'(_整数)),L).

その中から最も大きい3個を(L1,[A,B,C]) :-
　　　sort(L1,L2),
　　　reverse(L2,[A,B,C|_]),!.

入力した順に表示([[N_x,Nth_x],[N_y,Nth_y],[N_z,Nth_z]]) :-
　　　sort([[Nth_x,N_x],[Nth_y,N_y],[Nth_z,N_z]],[[_,N1],[_,N2],[_,N3]]),
　　　write_formatted('%t %t %t\n',[N1,N2,N3]).

'1桁の整数の入力'(_1桁の整数) :-
　　　get_integer(_1桁の整数),
　　　_1桁の整数 >= 0,
　　　_1桁の整数 < 10,!.
'1桁の整数の入力'(_1桁の整数) :- '1桁の整数の入力'(_1桁の整数).

>>100
% Prolog ４、

'10個の1桁の整数を入力し、それらを大きい順に並べて表示' :-
　　　'10個の1桁の整数を入力し'(_10個の1桁の整数ならび),
　　　それらを大きい順に並べて(_10個の1桁の整数ならび,_大きい順に並べられた10個の1桁の整数ならび),
　　　表示(_大きい順に並べられた10個の1桁の整数ならび).

'10個の1桁の整数を入力し'(_10個の1桁の整数ならび) :-
　　　findall(_1桁の整数,(for(1,_,10),'1桁の整数を入力'(_1桁の整数)),_10個の1桁の整数ならび).

それらを大きい順に並べて(_整数ならび,_大きい順に並べた整数ならび) :-
　　　sort(_整数ならび,_小さい順に並べた整数ならび),
　　　reverse(_小さい順に並べた整数ならび,_大きい順に並べた整数ならび),!.

表示([]) :- !.
表示([_1桁の整数|R]) :- write_formatted('%t ',[_1桁の整数]),表示(R).

'1桁の整数の入力'(_1桁の整数) :-
　　　get_integer(_1桁の整数),
　　　_1桁の整数 >= 0,
　　　_1桁の整数 < 10,!.
'1桁の整数の入力'(_1桁の整数) :- '1桁の整数の入力'(_1桁の整数).

>>105
-- Haskell
-- リストを Stack として使った
limport Data.Array (Array, listArray, bounds, inRange, (!))
import Data.Set (Set)
import qualified Data.Set as S

data Cell = Open | Blocked deriving Eq

solveMaze :: Array (Int,Int) Cell -> Maybe [(Int,Int)]
solveMaze maze = dfs S.empty $ [[start]]
where
(start,goal) = bounds $ maze

dfs :: Set (Int,Int) -> [[(Int,Int)]] -> Maybe [(Int,Int)]
dfs s [] = Nothing
dfs s (path@(pos:_):stk)
| pos == goal = Just (reverse path)
| S.member pos s = dfs s stk
| otherwise = dfs (S.insert pos s) $ map (:path) (around pos) ++ stk

around :: (Int,Int) -> [(Int,Int)]
around (row,col) = filter (\p -> inRange (bounds maze) p && maze!p == Open) [(row+1,col), (row,col+1), (row,col-1), (row-1,col)]

main = do
cs <- getContents
let (l,m) = break (== '\n') cs
[row,col] = words l
maze = listArray ((1,1),(read row,read col)) . map (\c -> if c == '.' then Open else Blocked) . filter (/= '\n') $ m
print . solveMaze $ maze

http://pc11.2ch.net/test/read.cgi/db/1252492296/745
# <社員テーブル>
# 社員番号,名前,ランク,部署コード
# -------------------------------
# 1,鈴木一郎,A,01
# 2,鈴木二郎,A,01
# 3,鈴木三郎,B,01
# 4,鈴木四郎,A,02
# 5,鈴木五郎,A,03
#
# ↑の社員テーブルから、
# 同じ部署にBランクの社員がいないレコードを
# 取得したいです。
#
# <結果>
# 社員番号,名前,ランク,部署コード
# -------------------------------
# 4,鈴木四郎,A,02
# 5,鈴木五郎,A,03

>>132
% Prolog

同じ部署にBランクの社員がいないレコード(_社員番号,_名前,_ランク,_部署コード) :-
　　　findsetof([_社員番号,_名前,_部署],社員テーブル(_社員番号,_名前,'B',_部署),_除外対象鍵ならび),
　　　社員テーブル(_社員番号,_名前,_ランク,_部署コード),
　　　自身を除き同じ部署にBランクの社員のいないレコード(_除外対象鍵ならび,_社員番号,_名前,_ランク,_部署コード).

自身を除き同じ部署にBランクの社員のいないレコード(_除外対象鍵ならび,_社員番号,_名前,_ランク,_部署コード) :-
　　　member([_社員番号2,_名前2,_部署コード],_除外対象鍵ならび),
　　　\+((_社員番号=_社員番号2,_名前=_名前2)),
　　　!,fail.
自身を除き同じ部署にBランクの社員のいないレコード(_除外対象鍵ならび,_社員番号,_名前,_ランク,_部署コード).

麻雀の手牌が入力として与えられたとき、「待ち」を出力するプログラムを書いてください。
- 字牌なし・萬子のみの想定、つまり、いわゆる「チンイツ」限定で結構です（プログラミングの本質的にはこの限定でまったく問題ないため）
- 1〜9の数字13個からなる文字列を受け取り、できている順子・刻子・アタマを()、待ちの部分を[]でくくって出力してください
- 面前かつ槓子は存在しない前提でOKです
- ()[]の出力順は自由ですが、順序だけが違うものは同一視してください（例：111222を刻子2つで構成するとき、(111)(222)が(222)(111)に入れ替わるだけのものは同一解答とします）
- 多面待ちのときも含めすべての待ちを出力してください
- 待ちがないときは何も出力しないでください

出力例
1112224588899 :
単純なケースです。45を軸にする両面の待ちなので、(111)(222)(888)(99)[45]になります。

1122335556799 :
“99”をアタマの両面か“55”“99”のシャボであるので、(123)(123)(555)(99)[67]、(123)(123)(55)(567)[99]、(123)(123)(99)(567)[55]が正解です。

1112223335559 :
待ちは“9”単騎ですが、(123)(123)(123)(555)[9]と(111)(222)(333)(555)[9]の2つあります。

1223344888999 :
1-4の“ノベタン”待ちですが、4をアタマにしての[23]待ちと、1単騎、4単騎で3個の答えになります。

1112345678999 :
「九蓮宝燈」という役です。1〜9すべてが待ちになっています。これに正しく答えが出るのであれば、プログラムはほぼ正しいでしょう。

ttp://www.itmedia.co.jp/enterprise/articles/1004/03/news002_2.html

>- 待ちがないときは何も出力しないでください

待ち牌が手牌の中に４枚既にあるときは？

>- 面前かつ槓子は存在しない前提でOKです

４枚あっても槓していないケースは？

>>104 問(1)
使用言語：J

f=:dyad define
a=.(1{x)*1{y
b=.+/x*|.y
b(+.%~,)a
)

1 2 f 3 4
5 4
9 20 f 31 4
41 5

>>104 問(2)
使用言語：J

f=:monad define
if. *./({.<+/@}.)(i.3)|."0 1 y do.
%:*/(+/@:-:-0&,)y
else.
smoutput 'not triangle'
end.
)

f 3 4 5
6
f 6 7 8
20.3332
f 9 10 20
not triangle

http://pc11.2ch.net/test/read.cgi/db/1252492296/751
#
# 年月日と金額を持ったテーブルがあります。前年度合計と今年度合計を出したいのですが、
#
# 年月日 金額
# 20080402 200
# 20080404 200
# 20090401 100
# 20090401 500
# 20090404 300
#
# とあった場合、↓にしたいです
#
# 年月日 今年度合計 前年度合計
# 20090401 600 0
# 20090402 0 200
# 20090404 300 200
#
# 両年度金額が無い場合は表示無しで、年月日は8桁の数値型です。
# うるう年は考慮しなくて構いません。

http://pc12.2ch.net/test/read.cgi/tech/1269438098/148
# [1] 授業単元： ゼミ演習でのプログラミング
# [2] 問題文(含コード&リンク)： ttp://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10566.zip
#
# [1] ヒストグラム
# ０〜９の範囲内の整数を20個入力し、そのヒストグラムを求めて出力するプログラムを書きなさい#
#
# [2] 素数
# １〜３０までの整数の中のすべての素数を求めて出力するプログラムを書きなさい
# 注：素数の求め方は色々考えられるが、まず効率を気にしなくてもよいのでプログラムを作りましょう
# そして１〜５０，１〜１００の素数を求めるように実行して、実行時間を観察しましょう（少しでも範囲を広げるとかかる時間は極端に増えてしまう。）
#
#
# [3] 二次方程式 ax2+bc+c=0の係数abcを入力し、解があるかどうかなどを判定し
# 「実数解無し」・「実数解は一つ」・「実数解は２つ」のどちらかを出力するプログラムを書きなさい#
#
# [4] 成績処理
# 10人の学生の成績を配列に入力してから、平均成績と最高成績を求めて出力するプログラムを書きなさい
#
#
% OCNアクセス規制明けおめでとう!

>>140
% Prolog [1]

ヒストグラム(_サンプルならび) :-
　　　最初に縦棒の限界数を決めよう(_サンプルならび,_限界数),
　　　'次に度数表示を*のならびで表現して、0-9のならびを取る'(_サンプルならび,_限界数,_度数表示ならび),
　　　転置(_度数表示ならび,_転置した度数表示ならび),
　　　ヒストグラム表示(_転置した度数表示ならび).

最初に縦棒の限界数を決めよう(_サンプルならび,_限界数) :-
　　　findmax(U,count(member(U,_サンプルならび)),_限界数).

'次に度数表示を*のならびで表現して、0-9のならびを取る'(_サンプルならび,_限界数,_度数表示ならび) :-
　　　findall(_度数表示,
　　　　　　　　　(for(0,N,9),count(member(N,_サンプルならび),_度数),
　　　　　　　　　　　　　　　'空白要素が先に来るように反転した*ならびの生成'(_度数,1,_限界数,[],_度数表示))
,　　　　　　　_度数表示ならび).

'空白要素が先に来るように反転した*ならびの生成'(_,N,_限界数,X,X) :- N > _限界数,!.
'空白要素が先に来るように反転した*ならびの生成'(_度数,N,_限界数,Y,X) :-
　　　N > _度数,
　　　N2 is N + 1,
　　　'空白要素が先に来るように反転した*ならびの生成'(_度数,N2,_限界数,[' '|Y],X).
'空白要素が先に来るように反転した*ならびの生成'(_度数,N,_限界数,Y,X) :-
　　　N =< _度数,
　　　N2 is N + 1,
　　　'空白要素が先に来るように反転した*ならびの生成'(_度数,N2,_限界数,['*'|Y],X).

ヒストグラム表示([]) :- !.
ヒストグラム表示([L|R]) :- concat_atom(L,A),write_formatted('%t\n',[A]),ヒストグラム表示(R).

>>139
% Prolog

年月日と金額を持ったテーブルがあります。前年度合計と今年度合計を出したいのですが :-
　　　初めに重複しない年月日ならびを取り出します(_重複しない年月日ならび),
　　　見出しです,
　　　重複しない年月日ならびから順に年月日を取り出し今年度合計と前年度合計を計算して表示します(_重複しない年月日ならび).

重複しない年月日ならびから順に年月日を取り出し今年度合計と前年度合計を計算して表示します([]) :- !.
重複しない年月日ならびから順に年月日を取り出し今年度合計と前年度合計を計算して表示します([_年月日|R]) :-
　　　_前年同日 is _年月日 - 10000,
　　　ある年月日の金額合計(_年月日,_金額合計),
　　　その前年同日の金額合計(_前年同日,_前年同日金額合計),
　　　年月日と今年度合計と前年度合計を表示します(_年月日,_今年度合計,_前年度合計),
　　　重複しない年月日ならびから順に年月日を取り出し今年度合計と前年度合計を計算して表示します(R).

初めに重複しない年月日ならびを取り出します(_重複しない年月日ならび) :-
　　　findsetof(_年月日,テーブル(_年月日,_),_重複しない年月日ならび).

見出しです :-
　　　write_formatted('%8s %10s %10s\n',[年月日,今年度合計,前年度合計]).

ある年月日の金額合計(_年月日,_金額合計) :- findsum(_金額,(テーブル(_年月日,_金額),_金額合計).

その前年同日の金額合計(_前年同日,_前年同日金額合計) :- findsum(_前年同日金額,(テーブル(_前年同日,_前年同日金額),_前年同日金額合計).

年月日と今年度合計と前年度合計を表示します(_年月日,_今年度合計,_前年度合計) :-
　　　write_formatted('%t %10.0f %10.0f\n',[_年月日,_今年度合計,_前年度合計]).

>>142 (>>139) 訂正
% Prolog　引数表現に誤りがありました。それから述語の定義順も変えます。

年月日と金額を持ったテーブルがあります。前年度合計と今年度合計を出したいのですが :-
　　　初めに重複しない年月日ならびを取り出します(_重複しない年月日ならび),
　　　見出しです,
　　　重複しない年月日ならびから順に年月日を取り出し今年度合計と前年度合計を計算して表示します(_重複しない年月日ならび).

初めに重複しない年月日ならびを取り出します(_重複しない年月日ならび) :-
　　　findsetof(_年月日,テーブル(_年月日,_),_重複しない年月日ならび).

見出しです :-
　　　write_formatted('%8s %10s %10s\n',[年月日,今年度合計,前年度合計]).

重複しない年月日ならびから順に年月日を取り出し今年度合計と前年度合計を計算して表示します([]) :- !.
重複しない年月日ならびから順に年月日を取り出し今年度合計と前年度合計を計算して表示します([_年月日|R]) :-
　　　_前年同日 is _年月日 - 10000,
　　　ある年月日の金額合計(_年月日,_今年度合計),
　　　その前年同日の金額合計(_前年同日,_前年度合計),
　　　年月日と今年度合計と前年度合計を表示します(_年月日,_今年度合計,_前年度合計),
　　　重複しない年月日ならびから順に年月日を取り出し今年度合計と前年度合計を計算して表示します(R).

ある年月日の金額合計(_年月日,_金額合計) :- findsum(_金額,(テーブル(_年月日,_金額),_金額合計).

その前年同日の金額合計(_前年同日,_前年同日金額合計) :- findsum(_前年同日金額,(テーブル(_前年同日,_前年同日金額),_前年同日金額合計).

年月日と今年度合計と前年度合計を表示します(_年月日,_今年度合計,_前年度合計) :-
　　　write_formatted('%t %10.0f %10.0f\n',[_年月日,_今年度合計,_前年度合計]).

>>140
% Prolog [2] これは既出 http://nojiriko.asia/prolog/t266.html

１〜３０までの整数の中のすべての素数を求める([1|L]) :-
　　素数生成(30,L).

素数生成(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).

>>140
% Prolog [3]

'二次方程式 ax2+bc+c=0の係数abcを入力し、解があるかどうかなどを判定し「実数解無し」・「実数解は一つ」・「実数解は２つ」のどちらかを出力する'(A,B,C,実数解は無し) :- B * B - 4 * A * C < 0,!.
'二次方程式 ax2+bc+c=0の係数abcを入力し、解があるかどうかなどを判定し「実数解無し」・「実数解は一つ」・「実数解は２つ」のどちらかを出力する'(A,B,C,実数解は一つ) :- (B * B - 4 * A * C = 0;B * B - 4 * A * C = 0.0),!.
'二次方程式 ax2+bc+c=0の係数abcを入力し、解があるかどうかなどを判定し「実数解無し」・「実数解は一つ」・「実数解は２つ」のどちらかを出力する'(A,B,C,実数解は２つ) :- B * B - 4 * A * C > 0,!.

>>140 [1]
使用言語：J

f=:monad define
a=.i.10
b=.(,.+/"1 a=/y)#'*'
(":,.a),.' ',.b
)

f ?20#10
0 **
1 ***
2 **
3 *
4 ****
5 *
6 ***
7
8 ***
9 *

>>140 [1]
使用言語：maxima

f(x):=(a:make_array(fixnum,10),
for v in x do a[v]:a[v]+1,
for i:0 thru 9 do printf(true,"~d ~a~%",i,smake(a[i],"*"))
);

(%i42) f([1,2,4,5,6,3,0,5,7,2,7,6,2,4,2,1,8,5,3,9]);
0 *
1 **
2 ****
3 **
4 **
5 ***
6 **
7 **
8 *
9 *

>>140
% Prolog [1] 横方向

ヒストグラム(_サンプルならび) :-
　　　for(0,N,9),
　　　'Nの度数を星表示アトムとして表現する'(_サンプルならび,N,_星表示アトム),
　　　write_formatted('%t %t\n',[N,_星表示アトム]),
　　　N=9.

'Nの度数を星表示アトムとして表現する'(_サンプルならび,N,_星表示アトム) :-
　　　count(member(N,_サンプルならび),_度数),
　　　length(L,_度数),
　　　要素はすべて星である(L),
　　　星ならびを星表示アトムに変換(L,_星表示アトム),!.

要素はすべて星である(L) :- all(L,'*').

星ならびを星表示アトムに変換(L,S) :- concat_atom(L,S).

>>140 [1]
使用言語：maxima
縦版

f=:monad define
a=.i.10
b=.(,.+/"1 a=/y)#'*'
|.|:(":,.a),.b
)

f ?20#10
**
** *
** * ***
**** *****
0123456789

>>149
あー、間違えた。使用言語はJ です。

http://pc11.2ch.net/test/read.cgi/db/1252492296/766
# ・DBMS名とバージョン：MySQL 5.1.45
# ・テーブル名：USER_POINT
# NAME　POINT
# Aさん　50
# Bさん　60
# Cさん　70
#
# ・欲しい結果
# AさんのPOINTよりPOINTが高いレコードの数

>>140 [1]
使用言語：R

f <- function(x){
a <- array(0,10)
for(i in x)a[i+1] <- a[i+1]+1
for(i in 0:9)cat(i," ",rep("*",a[i+1]),sep="","\n")
}

> f(sample(0:9,20,T))
0 **
1 ***
2 **
3 *
4 **
5 ****
6 ****
7
8 *
9 *

>>151
% Prolog

'AさんのPOINTよりPOINTが高いレコードの数'(_レコード数) :-
　　　'USER_POINT'('Aさん',AさんのPOINT),
　　　count(('USER_POINT'(_,POINT),POINT > AさんのPOINT),_レコード数).

>>140
% Prolog [4]

'10人の学生の成績を配列に入力してから、平均成績と最高成績を求めて出力する' :-
　　　カンマまたはスペース区切りで学生の成績を一行で入力する(_学生の成績ならび),
　　　平均成績と最高成績を求めて出力する(_学生の成績ならび).

カンマまたはスペース区切りで学生の成績を一行で入力する(_学生の成績ならび) :-
　　　get_split_line([',',' '],_学生の成績ならび).

平均成績と最高成績を求めて出力する(_学生の成績ならび) :-
　　　相加平均(_学生の成績ならび,_平均成績),
　　　max(_学生の成績ならび,_最高成績),
　　　write_formatted('平均成績=%t,最高成績=%t\n',[_平均成績,_最高成績]).

>>140 [3]
使用言語：maxima

f(a,b,c):=printf(ture,"実数解は~[なし~;ひとつ~;ふたつ~]~%",signum(b^2-4*a*c)+2);

(%i71) f(1,2,3);
実数解はなし
(%o71) false
(%i72) f(1,2,1);
実数解はひとつ
(%o72) false
(%i73) f(2,3,1);
実数解はふたつ
(%o73) false

>>140
% Prolog [4]

'10人の学生の成績を配列に入力してから、平均成績と最高成績を求めて出力する' :-
　　　カンマまたはスペース区切りで学生の成績を一行で入力する(_学生の成績ならび),
　　　平均成績と最高成績を求めて出力する(_学生の成績ならび).

カンマまたはスペース区切りで学生の成績を一行で入力する(_学生の成績ならび) :-
　　　get_split_line([',',' '],_学生の成績ならび).

平均成績と最高成績を求めて出力する(_学生の成績ならび) :-
　　　相加平均(_学生の成績ならび,_平均成績),
　　　max(_学生の成績ならび,_最高成績),
　　　平均成績と最高成績を出力する(_平均成績,_最高成績).

平均成績と最高成績を出力する(_平均成績,_最高成績) :-
　　　write_formatted('平均成績=%t,最高成績=%t\n',[_平均成績,_最高成績]).

>>140
% Prolog [4]

'10人の学生の成績を配列に入力してから、平均成績と最高成績を求めて出力する' :-
　　　カンマまたはスペース区切りで学生の成績を一行で入力する(_学生の成績ならび),
　　　平均成績と最高成績を求めて(_学生の成績ならび,_平均成績,_最高成績),
　　　平均成績と最高成績を出力する(_平均成績,_最高成績).

カンマまたはスペース区切りで学生の成績を一行で入力する(_学生の成績ならび) :-
　　　get_split_line([',',' '],_学生の成績ならび).

平均成績と最高成績を求めて(_学生の成績ならび,_平均成績,_最高成績) :-
　　　相加平均(_学生の成績ならび,_平均成績),
　　　max(_学生の成績ならび,_最高成績).

平均成績と最高成績を出力する(_平均成績,_最高成績) :-
　　　write_formatted('平均成績=%t,最高成績=%t\n',[_平均成績,_最高成績]).

% などもあり得る。最後の定義述語は単に"出力する"の方がいいのかも知れない。

>>140 [3]
使用言語：J

f=:monad def' ;''実数解は'';(>:*(*:1{y)-*/4,0 2{y){''なし'';''ふたつ'';''ひとつ'' '

f 1 2 3
実数解はなし
f 1 2 1
実数解はふたつ
f 2 3 1
実数解はひとつ

>>151
使用言語：J

NAME=:'A';'B';'C'
POINT=:50 60 70
f=:monad def '+/((NAME i.<y){POINT)<POINT'

f 'A'
2
f 'B'
1
f 'C'
0

http://pc12.2ch.net/test/read.cgi/tech/1269438098/163
# [1] 授業単元：
# プログラミング演習
# [2] 問題文(含コード&リンク)：
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10568.txt
#
#
# 問題1: Gauss-Jordan 法
# 1-1. Gauss-Jordan 法によるプログラムの例を参考にして，以下の仕様を満たす連立一次方程式求
# 解プログラムlinearEq1 を作成せよ．
# (a) 計算過程を理解するために，計算途中の係数行列を表示すること．
# 表示例: (Input)
# 1.00 2.00 3.00: 4.00
# 5.00 6.00 7.00: 8.00
# 1.00 3.00 4.00: 5.00
# (i = 0)
# 1.00 2.00 3.00: 4.00
# 0.00 -4.00 -8.00: -12.00
# 0.00 1.00 1.00: 1.00
# ...

# (b) プログラム中で行われる実数型のデータ同士の乗算・除算の回数をそれぞれ計測して，それ
# らの回数と合計回数の3 つを表示すること．
# 表示例: * : 26, / : 12, total: 38
# 乗算回数および除算回数の数値はプログラムの組み方に依存する．そのため，各自で作成
# したプログラムの実行結果において，上記の表示例と同じ数値が得られるとは限らないので
# 注意すること．
#
# 問題1で作成したプログラムlinearEq1 を改造し，絶対値が最大の係数a[pivot][i] を
# ピボットa[i][i] として選択して計算するプログラムlinearEq2 を作成せよ．ただし，問題1-1
# の(a)，(b) の仕様に加えて，次の仕様(c) を満たすようにすること．
# (c) ピボット交換が行われたとき，交換された行と交換後の係数行列を表示すること．
# 表示例: (Input)
# 1.00 2.00 3.00: 4.00
# 5.00 6.00 7.00: 8.00
# 1.00 3.00 4.00: 5.00
# Exchange row 1 with row 0
# 5.00 6.00 7.00: 8.00
# 1.00 2.00 3.00: 4.00
# 1.00 3.00 4.00: 5.00

http://pc11.2ch.net/test/read.cgi/db/1252492296/776
# 例えば、都道府県名が保存してあるフィールドに
# 温泉万歳北海道編　など、どこかに都道府県名が入っているかもしれない
# 文字列を与え、その文字列に都道府県名が入っているかどうかを
# 判断させることってできますか？

http://pc11.2ch.net/test/read.cgi/db/1252492296/777
# ・A, B, C, D・・・列があり、全て文字型(レコードは数値のみ)。
# A, Bがプライマリーキー
# ・以下の条件を満たすA, Bの値
# Cが'04', '08', '09'のいずれかの行の中で、
# Dの値が最小のレコードのA, Bの組み合わせのうち、
# Bの値が最小のレコードすべてのA, B

# >>163 の補足説明
# A, B, C, D
# 1, 1, 01, 20
# 1, 2, 02, 11
# 1, 3, 04, 22
# 1, 4, 04, 21
# 1, 6, 08, 12
# 1. 7, 04, 33
# 1, 8, 09, 12
# 2, 1, 04, 80
# 3, 1, 03, 01
# の場合、(1, 6)と(2, 1)を取得したいです。

http://pc11.2ch.net/test/read.cgi/db/1252492296/789
# [TABLE1]
#
# key1 key2 data
# ------------------------------------
# AAA 01 zzz
# AAA 02 yyy
# BBB 01 xxx
# BBB 03 www
# CCC 02 vvv
# DDD 03 uuu
#
#
#
# [TABLE2]
# key1 data
# ------------------------------------
# MMM 01&02
# NNN 01only
# OOO 02only

>>165 つづき
# このようなテーブルから、以下のデータを抽出したいです。
#
# key1 key2 data1 data2
# ---------------------------------------------
# AAA 01 zzz 01&02
# BBB 01 xxx 01only
# CCC 02 vvv 02only
#
# TABLE1のKEYはkey1とkey2です。
# このTABLE1から、各key1に対して一意にデータを抽出します。
# 抽出はkey2の値が01と02のもののみを対象とし、
# 01があれば01のデータを、なければ02のデータを引っ張ってきます（data1）。
#
# さらに、各key1におけるkey2の状況？をdata2として付加したいです。
# ここではTABLE2に格納されていることにしましたが、
# 条件文で単に文字列を設定するのでも構いません。

>>162
% Prolog

'例えば、都道府県名が保存してあるフィールドに温泉万歳北海道編　など、どこかに都道府県名が入っているかもしれない文字列を与え、その文字列に都道府県名が入っているかどうかを判断させる'(_文字列) :-
　　　都道府県名(_都道府県名),
　　　sub_atom(_文字列,_,_,_,_都道府県名).

>>163->>164
% Prolog 列数(引数の数)が確定しないと、Prologの述語の参照はできない。テーブル名は論理変数_テーブル、列数はNとして引数から与えることとする。

'A, B, C, D・・・列があり、全て文字型(レコードは数値のみ) 。A, Bがプライマリーキー、Cが"04", "08", "09"のいずれかの行の中で、Dの値が最小のレコードのA, Bの組み合わせのうち、Bの値が最小のレコードすべてのA, Bを求める'(_テーブル,N,A,B) :-
　　　length(L,N),
　　　L =.. [_テーブル,A,B,C,D|R],
　　　findmin([D,B,A],(P,(C = '04';C = '08',C = '09')),[D,B,A]).

>>168 (>>163->>164) 訂正
% Prolog 肝心なところを間違えた

'A, B, C, D・・・列があり、全て文字型(レコードは数値のみ) 。A, Bがプライマリーキー、Cが"04", "08", "09"のいずれかの行の中で、Dの値が最小のレコードのA, Bの組み合わせのうち、Bの値が最小のレコードすべてのA, Bを求める'(_テーブル,N,A,B) :-
　　　N2 is N + 1,
　　　length(L,N2),
　　　L =.. [_テーブル,A,B,C,D|R],
　　　findmin([D,B,A],(P,(C = '04';C = '08',C = '09')),[D,B,A]).

>>169 (>>163->>164)
% Prolog それ以前に大間違い、さらに訂正

'A, B, C, D・・・列があり、全て文字型(レコードは数値のみ) 。A, Bがプライマリーキー、Cが"04", "08", "09"のいずれかの行の中で、Dの値が最小のレコードのA, Bの組み合わせのうち、Bの値が最小のレコードすべてのA, Bを求める'(_テーブル,N,A,B) :-
　　　length(L,N),
　　　L =.. [A,B,C,D|R],
　　　P =.. [_テーブル|L],
　　　findmin([D,B,A],(P,(C = '04';C = '08',C = '09')),[D,B,A]).

>>170 (>>163->>164) ごめんなさいさらに訂正
% Prolog

'A, B, C, D・・・列があり、全て文字型(レコードは数値のみ) 。A, Bがプライマリーキー、Cが"04", "08", "09"のいずれかの行の中で、Dの値が最小のレコードのA, Bの組み合わせのうち、Bの値が最小のレコードすべてのA, Bを求める'(_テーブル,N,A,B) :-
　　　length(L,N),
　　　L = [A,B,C,D|R],
　　　P =.. [_テーブル|L],
　　　findmin([D,B,A],(P,(C = '04';C = '08',C = '09')),[D,B,A]).

>>168->>171
そもそもプライマリーキーの認識に誤りがあることがわかりました。
後で書き直すこととします。

>>163->>164
% Prolog 非常に際どいというか、危ないコードになりました。これではダメですね。

'A, B, C, D・・・列があり、全て文字型(レコードは数値のみ) 。A, Bがプライマリーキー、Cが"04", "08", "09"のいずれかの行の中で、Dの値が最小のレコードのA, Bの組み合わせのうち、Bの値が最小のレコードすべてのA, Bを求める'(_テーブル,N,A,B) :-
　　　length(L,N),
　　　L = [A,B,C,D|R],
　　　P =.. [_テーブル|L],
　　　findmin([D,B],(P,(C = '04';C = '08',C = '09')),[D,B]),
　　　P,
　　　(C = '04';C = '08',C = '09').

>>173
カットひとつ入れればいいんじゃないかな。

　　　findmin([D,B],(P,(C = '04';C = '08',C = '09')),[D,B]),!,
　　　P,
　　　(C = '04';C = '08',C = '09').

>>174
いや、そういうことではなくて、
findmin/3の中で開放されるD,Bと最終的に束縛されるD,Bを使い分けてるでしょ。
そんなことが許されてよいものかと。それから最後の
(C='04';C='08',C='09'). はちょっと見たところ必要なさそうに見える。
必要あるのですが、本当に必要かどうか、どうして必要なのかを説明しなくては
ならないところです。

>>175
すみません。私のコードよくみたら...;C='08',C='09') の間が','になってますね。
これはもちろん';'の間違いです。

http://pc11.2ch.net/test/read.cgi/db/1252492296/796
# ID｜value｜日付　　　　|etc
# 01｜100　｜2010/4/5｜10
# 01｜150　｜2010/4/6｜20
# 02｜100　｜2010/4/5｜30
# 02｜160　｜2010/4/6｜40
#
# 各ID、特定の日にち2010/4/6のvalueから1日前のvalueを引いた値をdiff列に出力
# ついでに2010/4/6のetcを出力
#
# ID｜diff　｜日付　　　｜etc
# 01｜50　｜2010/4/6｜20
# 02｜60　｜2010/4/6｜40
#
# お願いします！
# 使う必要のある文法？のヒントだけでも、教えていただければ有り難いです。

>>177
% Prolog

'各ID、特定の日にちのvalueから1日前のvalueを引いた値をdiff列に出力、ついでに特定の日にちのetcを出力'(ID,定の日にち) :-
　　　前日・今日(_前日,_特定の日にち),
　　　見出し出力,
　　　'ID,value,日付,etc'(_ID,_value,_特定の日にち,_etc).
　　　前日のvalue(_ID,_前日,_前日のvalue),
　　　_diff is _value - _前日のvalue,
　　　write_formatted('%t | %t | %t | %t\n',[_ID,_diff,_特定の日にち,_etc]),
　　　fail.
'各ID、特定の日にちのvalueから1日前のvalueを引いた値をdiff列に出力、ついでに特定の日にちのetcを出力'(_).

見出し出力 :-
　　　write('ID | diff　| 日付　　　| etc\n').

前日のValue(_ID,_前日,_前日のvalue) :-
　　　'ID,value,日付,etc'(_ID,_前日のvalue,_前日,_),!.
前日のValue(_,_,0).

% 前日・今日/2の定義は http://nojiriko.asia/prolog/t815.html を参照してください。

>>178 (>>177)
% Prolog (3ヶ所。_前日のValue -> _前日のvalue,_定日の日にち -> _特定の日にち,etcを出力(_) -> etcを出力(_,_).

'各ID、特定の日にちのvalueから1日前のvalueを引いた値をdiff列に出力、ついでに特定の日にちのetcを出力'(ID,特定の日にち) :-
　　　前日・今日(_前日,_特定の日にち),
　　　見出し出力,
　　　'ID,value,日付,etc'(_ID,_value,_特定の日にち,_etc).
　　　前日のvalue(_ID,_前日,_前日のvalue),
　　　_diff is _value - _前日のvalue,
　　　write_formatted('%t | %t | %t | %t\n',[_ID,_diff,_特定の日にち,_etc]),
　　　fail.
'各ID、特定の日にちのvalueから1日前のvalueを引いた値をdiff列に出力、ついでに特定の日にちのetcを出力'(_,_).

見出し出力 :-
　　　write('ID | diff　| 日付　　　| etc\n').

前日のvalue(_ID,_前日,_前日のvalue) :-
　　　'ID,value,日付,etc'(_ID,_前日のvalue,_前日,_),!.
前日のvalue(_,_,0).

% 前日・今日/2の定義は http://nojiriko.asia/prolog/t815.html を参照してください。

>>165->>166
% Prolog (その一)

'TABLE1から、各key1に対してkey2の値が01と02のもののみを対象とし、01があれば01のデータを、なければ02のデータを抽出し各key1におけるkey2の状況をdata2として付加してTABLE2に追加して出力' :-
　　　findsetof(_key1,('TATLE1'(_key1,_key2,_data),key2の対象は01か02のみ(_key2)),L1),
　　　見出し,
　　　member(_key1,L1),
　　　'01があれば01のデータを、なければ02のデータを抽出し各key1におけるkey2の状況をdata2として付加'(_key1,L2),
　　　write_formatted('%t %t %t %t\n',L2),
　　　fail.
'TABLE1から、各key1に対してkey2の値が01と02のもののみを対象とし、01があれば01のデータを、なければ02のデータを抽出し各key1におけるkey2の状況をdata2として付加してTABLE2に追加して出力'.

key2の対象は01か02のみ('01') :- !.
key2の対象は01か02のみ('02') :- !.

'01があれば01のデータを、なければ02のデータを抽出し各key1におけるkey2の状況をdata2として付加'(_key1,X) :-
　　　findall([_key1,_key2,_data],'01があれば01のデータを、なければ02のデータを抽出し'(_key1,_key2,_data),L),
　　　各key1におけるkey2の状況(L,X),
　　　X = [_,_,_,TABLE2data],
　　　assertz('TABLE2'(_key1,TABLE2data)),!.

'01があれば01のデータを、なければ02のデータを抽出し'(_key1,'01',_data) :-
　　　'TABLE1'(_key1,'01',_data).
'01があれば01のデータを、なければ02のデータを抽出し'(_key1,'02',_data) :-
　　　'TABLE1'(_key1,'02',_data).

>>165->>166
% Prolog (その二)

各key1におけるkey2の状況([[_key1,'01',_data]],[_key1,'01',_data,'01only']) :- !.
各key1におけるkey2の状況([[_key1,'02',_data]],[_key1,'02',_data,'02only']) :- !.
各key1におけるkey2の状況([[_key1,'01',_data],[_key1,'02',_]],[_key1,'01',_data,'01&02']) :- !.
各key1におけるkey2の状況([[_key1,'02',_],[_key1,'01',_data]],[_key1,'01',_data,'01&02']) :- !.

見出し :-
　　　write('key1　　　 key2　　　 data1　　　data2 \n'-----------------------------------\n').

>>160
% Prolog (a)

連立一次方程式の解(_拡大係数行列,_解) :-
　　　行列の表示('拡大係数行列\n',_拡大係数行列),
　　　ガウス行列に変形(_拡大係数行列,_ガウス行列),
　　　行列の表示('ガウス行列に変形\n',_ガウス行列),
　　　連立一次方程式の解の判定(_ガウス行列,_解).

連立一次方程式の解の判定(_ガウス行列,解が無数にある) :-
　　　行列の階数(_ガウス行列,_ガウス行列の階数),
　　　length(_ガウス行列,_ガウス行列の行数),
　　　_ガウス行列の階数 < _ガウス行列の行数,!.
連立一次方程式の解の判定(_ガウス行列,解なし) :-
　　　member(L,_ガウス行列),
　　　append(L0,[A],L),
　　　\+(A=0),\+(A=0.0),
　　　'すべての要素が0か0.0である'(L0),!.
連立一次方程式の解の判定(_ガウス行列,_解ならび) :-
　　　既約ガウス行列に変形(_ガウス行列,_既約ガウス行列),
　　　行列の表示('既約ガウス行列に変形\n',_既約ガウス行列),
　　　findall(_解,(member(L,_既約ガウス行列),list(L,_解)),_解ならび).

'すべての要素が0か0.0である'([]) :- !.
'すべての要素が0か0.0である'([0|R]) :- 'すべての要素が0か0.0である'(R),!.
'すべての要素が0か0.0である'([0.0|R]) :- 'すべての要素が0か0.0である'(R),!.

% 行列述語は http://nojiriko.asia/prolog/Gauss_goretsu_ni_henkei.html 参照

>>182
% Prolog 行列の表示/2は

行列の表示(_口上,_行列) :- write(_口上),write('\n['), 行列の表示(_行列).

行列の表示([]) :- write(']\n'),!.
行列の表示([L]) :- write_formatted(' %t]\n',[L]),!.
行列の表示([L|R]) :- write_formatted(' %t\n',[L]),行列の表示(R),!.

>>182
リンクにミスタイプがありました。 http://nojiriko.asia/prolog/Gauss_gyoretsu_ni_henkei.html
でした。

>>182 すみません訂正。
http://nojiriko.asia/prolog/gyakugyouretsu.html

この方が世代が新しいのでこちらで。

http://pc12.2ch.net/test/read.cgi/tech/1269438098/173
# 宿題で
# コンソール上で入力した文字によって、以下の出力をするプログラムを作成する。
#
# 入力が"a"→（^_^）
# 入力が"b"→(T_T)
# 入力が"c"→（≧∇≦）
# 入力が"A"→（≧Δ≦）
# その他の入力→（?_?）
#
# ※追加：　繰り返し入力を待ち受け、zが入力されたときのみ終了すること。

>>186
% Prolog

コンソール上で入力した文字によって、顔文字を出力をする :-
　　　rawmode,
　　　get_char(X),
　　　入力文字から顔文字に変換して表示する(X),
　　　norawmode.

入力された文字を顔文字に変換して表示する(X) :-
　　　zが入力されたときのみ終了(X),!.
入力された文字を顔文字に変換して表示する(X) :-
　　　顔文字変換(X,Y),
　　　write_formatted('%t',[Y]),
　　　fail.

zが入力されたときのみ終了(z).

顔文字変換(a,'（^_^）') :- !.
顔文字変換(b,'(T_T) '):- !.
顔文字変換(c,' （≧∇≦） ') :- !.
顔文字変換('A','（≧Δ≦).）'):- !.
顔文字変換(_,'（?_?）').

>>187 (>>186)
% Prolog repeat/0を落とした。

コンソール上で入力した文字によって、顔文字を出力をする :-
　　　rawmode,
　　　repeat,
　　　get_char(X),
　　　入力文字から顔文字に変換して表示する(X),
　　　norawmode.

入力された文字を顔文字に変換して表示する(X) :-
　　　zが入力されたときのみ終了(X),!.
入力された文字を顔文字に変換して表示する(X) :-
　　　顔文字変換(X,Y),
　　　write_formatted('%t',[Y]),
　　　fail.

zが入力されたときのみ終了(z).

顔文字変換(a,'（^_^）') :- !.
顔文字変換(b,'(T_T) '):- !.
顔文字変換(c,' （≧∇≦） ') :- !.
顔文字変換('A','（≧Δ≦).）'):- !.
顔文字変換(_,'（?_?）').

http://pc12.2ch.net/test/read.cgi/tech/1269438098/184
# [1]C言語（初心者コース)
# [2] キーボードから5つの整数を読み込み、その任意の２つの異なる数の
# 組み合わせについて和と差と積と商と剰余を出力するプログラム
# [3] OS:Windows Vista コンパイラ:Visual Studio.NET 言語:C
# [4] 5/1迄
# [5] fgets,scanf,printf sprintf strlen strcpy strcat関数は使っても良い。
# それ以外は極力使用しないこと
# scanfで取得した整数が入力された整数を表す文字列と矛盾が無いことを
# チェックすること。
# 整数計算の際に桁溢れが発生していないかチェックすること。
# （特に除数が０であるかのチェック。剰余は除数の絶対値より小さい
# ０以上の整数とする。）
# main関数以外にユーザー関数を定義しないこと(main関数だけで
# 構成）が制約条件だそうです。

>>189
% Prolog

キーボードから5つの整数を読み込み、その任意の２つの異なる数の組み合わせについて和と差と積と商と剰余を出力する :-
　　　キーボードから5つの整数を読み込み(_5つの整数ならび),
　　　組合せ(_5つの整数ならび,2,[N1,N2]),
　　　_和 is N1 + N2,
　　　_差_1 is N1 - N2,
　　　_差_2 is N2 - N1,
　　　_積 is N1 * N2,
　　　_商_1 is N1 // N2,
　　　_商_2 is N2 // N1,
　　　_剰余_1 is N1 mod N2,
　　　_剰余_2 is N2 mod N1,
　　　write_formatted('組合せ={%t,%t},和=%t,(差=%t;差=%t),積=%t,(商=%t,剰余=%t;商=%t,剰余=%t)\n',[N1,N2,_和,_差_1,_差_2,_積,_商_1,_商_2,_剰余_1,_剰余_2]).

キーボードから5つの整数を読み込み(_5つの整数ならび) :-
　　　write('5つの整数をカンマまたはスペースで区切り一行で入力してください : '),
　　　get_split_line([' ',','],_5つの整数ならび),
　　　'5つの整数ならび'(_5つの整数ならび),!.
キーボードから5つの整数を読み込み(_5つの整数ならび) :-
　　　write('5つの整数が得られませんでした。もう一度入力してください。\n'),
　　　キーボードから5つの整数を読み込み(_5つの整数ならび).

'5つの整数ならび'([_1,_2,_3,_4,_5]) :- integer(_1),integer(_2),integer(_3),integer(_4),integer(_5).

% 組合せ/3の定義は http://nojiriko.asia/prolog/t268.html を参照してください。

>>190
ゼロ除算のチェック等は入っていません。後で仕様に近いものを書きます。

http://pc12.2ch.net/test/read.cgi/tech/1269438098/206
# [1] 授業単元：プログラミング応用
# [2] 問題文(含コード&リンク)：
# 25×25マスの数独の解を求めるプログラムを作成せよ。
# テキストファイルに入力した問題(数字マスは半角数字、空マスは半角スペースで入力）を引数から指定し
# 解を出力する。

>>134 F#（その1）

open System.Text.RegularExpressions

/// リストxsから要素xを取り除く
let remove x xs =
    let rec remove' res = function
        | [] -> None
        | y::ys when y = x -> List.fold (fun z r -> r::z) ys res |> Some
        | y::ys -> remove' (y::res) ys
    remove' [] xs
/// リストxsからリストrsの全要素を取り除く
let removeAll rs xs = List.fold (fun xs' r -> Option.bind (remove r) xs') (Some(xs)) rs
/// 通常の4面子1雀頭の判定
let normal hand =
    /// 雀頭候補と雀頭以外の部分の全パターンを取得
    let allAtama hand =
        hand |> Seq.distinct |> Seq.toList
        |> List.choose (fun n -> removeAll [n; n] hand |> Option.map (fun h -> ([[n; n]], h)))
    /// 雀頭以外の部分から面子の全パターンを取得
    let rec chooseMentu mentus = function
        | [] -> [List.sort mentus]
        | h::_ as hand ->
            [[h .. (h + 2)]; [h; h; h]] |> List.choose (fun m ->
                removeAll m hand |> Option.map (fun hs -> chooseMentu (m::mentus) hs))
            |> List.concat
    // 雀頭候補ごとの全面子パターンを取得
    hand |> allAtama |> List.map ((<||) chooseMentu) |> List.concat

>>134 F#（その2）

/// 七対子の判定
let niconico hand =
    match Seq.countBy id hand |> Seq.toList with
    | count when List.forall (snd >> (=) 2) count -> [List.map (fun (n, _) -> [n; n]) count]
    | _ -> []
/// 完成形の全面子mentuから特定の牌nを取り除いた「待ち」の全パターンを取得
let chooseMachi n mentu =
        mentu |> List.filter (fun m -> List.exists ((=) n) m) |> Seq.distinct
        |> Seq.map (fun m -> (remove m mentu |> Option.get, remove n m |> Option.get))
        |> Seq.toList
/// リストの表示
let print format = List.map string >> String.concat "" >> printf format

// 入力の判定
match System.Console.ReadLine() with
| s when Regex.IsMatch(s, @"^\d{13}$") |> not -> ()
| s ->
    let hand = s |> Seq.map (string >> int) |> Seq.toList
    let count = Seq.countBy id hand |> Seq.toList
    if List.forall (snd >> (>=) 4) count then
        // 1〜9の牌を加えて14枚の状態で面子の全パターンを求め、加えた牌を取り除いて待ちにする
        [for n in 1 .. 9 do
            if count |> List.tryFind (fst >> (=) n) |> Option.forall (snd >> (>) 4) then
                let hand' = n::hand |> List.sort
                yield normal hand' @ niconico hand' |> List.map (chooseMachi n) |> List.concat]
        |> List.concat |> Seq.distinct
        |> Seq.iter (fun (ms, mc) -> List.iter (print "(%s)") ms; print "[%s]\n" mc)

http://pc12.2ch.net/test/read.cgi/tech/1269438098/243
# [1] 授業単元： ３ＤＧＡＭＥ
# [2] 問題文：下記
# 学生番号、氏名、カナ、点数（少数第１位まで）、クラス（３桁）を入力しファイルに出力する。（カンマ区切り）
# 入力したファイルを読み取り、メニューを作成し次の処理を行えるようにする。
# ・ 学生番号で昇順、降順に並べ替えてファイルに出力する。
# ・ 氏名で昇順、降順に並び替えてファイルに出力する。
# ・ 点数で昇順、降順に並び替えてファイルに出力する。
# ・ 各項目について修正を行えるようにする。
# ・ 点数の平均を画面に出力する。
# ・ クラス別に学生番号で昇順、降順を指定してファイルに出力する。
#
# 【画面例】
# ＜メニュー＞
# １　学生番号で並び替え ２．氏名で並び替え
# ３．点数で並び替え ４．修正
# ５．平均の出力 ６．クラス別で出力
# ーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
# メニュー番号＝＞
# 【データ】
# 学生番号　８桁
# 氏名　　１２桁
# カナ　　１２桁
# 点数　　　３桁（小数点第１まで）
# クラス　　３桁
# １２０００００１，　田中太郎，　タナカタロウ，　４０．５，　００３

http://pc11.2ch.net/test/read.cgi/db/1252492296/813
# <基本テーブル>
# ID　| 材料1ID | 材料2ID | 材料3ID
# ----------------------------
# 　1 | 　　　123 |　　　 234 | 　　123
# 　2 | 　　　234 | 　　　123 | 　　589
#
# <材料テーブル>
# 材料ID | 材料名(文字列)
# ---------------------
# 　　123 |　　　　123の名前
# 　　234 |　　　　234の名前
# 　　589 |　　　　589の名前
#
# <結果>
# ID　|　材料1IDの材料名 | 材料2IDの材料名 | 材料2IDの材料名
# ----------------------------------------------------
# 　1 |　　　　　123の名前 |　　 　　234の名前 |　　　　　123の名前
# 　2 |　　　　　234の名前 |　　　 　123の名前 |　　　　　589の名前
#
# JOINを使ってみたんですけど、SELECTの所はどう書けばいいのでしょうか？

http://pc11.2ch.net/test/read.cgi/db/1252492296/817
# [テーブルA]
# ID, AGE, GROUP
# --- ---- -----
# 1 , 10, A
# 2 , 20, A
# 3 , 30, A
# 4 , 20, B
# 5 , 40, B
# 6 , 60, B
# 7 , 10, C
# 8 , 30, C
# 9 , 50, C
# 10 , 70, C
#
# ↑のテーブルから、
# 各GROUP毎にAGEで順位付けした結果を取得したいです。

>>197 の続きです
#
# <結果>
#
# ID, AGE, GROUP, RANK
# --- ---- ----- -----
# 1 , 10, A 1
# 2 , 20, A 2
# 3 , 30, A 3
# 4 , 20, B 1
# 5 , 40, B 2
# 6 , 60, B 3
# 7 , 10, C 1
# 8 , 30, C 2
# 9 , 50, C 3
# 10 , 70, C 4
#
#
# GROUP BYを使ってみたのですが、
# どうも見当違いのSQLになってしまって。。

>>195
% Prolog 前半のファイル入力。ここでは追加にした。最初の定義はオペレータ用の簡易入力。

_学生番号+_氏名+_カナ+_点数+_クラス :-
　　　atom(_学生番号),
　　　atom(_氏名),
　　　atom(_カナ),
　　　atom(_クラス),
　　　float(_点数),
　　　open(_出力ファイル,append,Output),
　　　write_formatted(Output,'%t,%t,%t,%t\n',[_学生番号,_氏名,_カナ,_点数,_クラス]),
　　　close(Output),!.
_学生番号+_氏名+_カナ+_点数+_クラス :-
　　　write('学生番号,氏名,カナ,クラスはアトムでなくてはなりません。必要ならシングルクォートで囲んで入力し直してください\nまた、点数は浮動小数点数であり小数点1位まで入力してください\n'),fail.

'学生番号、氏名、カナ、点数（少数第１位まで）、クラス（３桁）を入力しファイルに出力する。（カンマ区切り）'(_出力ファイル) :-
　　　open(_出力ファイル,append,Output),
　　　'学生番号、氏名、カナ、点数（少数第１位まで）、クラス（３桁）を入力し'(_学生番号,_氏名,_カナ,_点数,_クラス),
　　　write_formatted(Output,'%t,%t,%t,%t\n',[_学生番号,_氏名,_カナ,_点数,_クラス]),
　　　close(Output),!.

'学生番号、氏名、カナ、点数（少数第１位まで）、クラス（３桁）を入力し'(_学生番号,_氏名,_カナ,_点数,_クラス):-
　　　write('ガイドに従って入力し改行してください\n学生番号 : '),get_line(_学生番号),
　　　write('氏名 : '),get_line(_氏名),
　　　write('カナ : '),get_line(_カナ),
　　　write('点数(少数第一位まで) : '),get_line(_点数文字列),
　　　atom_to_term(_点数文字列,_点数,_),
　　　write('クラス(3桁) : '),get_line(クラス),!.

>>199 (>>195)
% Prolog 間違えた。最初の定義ではファイル名を引数から渡していなかった。
% 先に出力ファイル/1を定義しておいて、その後、
?- assertz(出力ファイル('foo.csv')).

_学生番号+_氏名+_カナ+_点数+_クラス :-
　　　atom(_学生番号),
　　　atom(_氏名),
　　　atom(_カナ),
　　　atom(_クラス),
　　　float(_点数),
　　　出力ファイル(_出力ファイル),
　　　open(_出力ファイル,append,Output),
　　　write_formatted(Output,'%t,%t,%t,%t\n',[_学生番号,_氏名,_カナ,_点数,_クラス]),
　　　close(Output),!.
_学生番号+_氏名+_カナ+_点数+_クラス :-
　　　write('学生番号,氏名,カナ,クラスはアトムでなくてはなりません。必要ならシングルクォートで囲んで入力し直してください\nまた、点数は浮動小数点数であり小数点1位まで入力してください\n'),fail.

のようにファイル名を得なくてはなりません。

>>196
% Prolog

'各GROUP毎にAGEで順位付けした結果を取得'(_各GROUP毎にAGEで順位付けした結果ならび) :-
　　　findsetof(Group,'テーブルA'(_,_,Group),L1),
　　　'各GROUP毎にAGEで順位付けした結果を取得'(1,L1,_各GROUP毎にAGEで順位付けした結果ならび).

'各GROUP毎にAGEで順位付けした結果を取得'(_,[],[]) :- !.
'各GROUP毎にAGEで順位付けした結果を取得'(M,[Group|R1],X) :-
　　　findall([Age,Group],'テーブルA'(_,Age,Group),L2),
　　　整列(L2,L3),
　　　順序づけ(M,M2,1,L3,L4),
　　　'各GROUP毎にAGEで順位付けした結果を取得'(M2,R1,Y),
　　　append(L4,Y,X).

順序づけ(M,M,_,[],[]) :- !.
順序づけ(M,MX,N,[[Age,Group]|R1],[M,Age,Group,N|R2]) :-
　　　N2 is N + 1,
　　　M2 is M + 1,
　　　順序づけ(M2,MX,N2,R1,R2).

>>195
% Prolog 後半部分(その一) 同一ファイルに書き戻すため、ファイル名を引数に渡していかなくてはならない。

メニューに示された機能を選択して実行するパターン(_ファイル名) :-
　　　get_split_lines(_ファイル名,[','],L),
　　　メニューに示された機能を実行する(_ファイル名,L).

メニューに示された機能を実行する(_ファイル名,L) :-
　　　メニュー画面,
　　　write('メニュー番号＝＞ '),
　　　get_integer(N),
　　　機能選択(_ファイル名,N,L,_診断),
　　　診断(_診断),!.
メニューに示された機能を実行する(_ファイル名,L) :- メニューに示された機能を実行する(_ファイル名,L).

機能選択(0,_,_,終了) :- !.
機能選択(1,_ファイル名,L,_診断) :- 学生番号で並び替え(_ファイル名,L,_診断).
機能選択(2,_ファイル名,L,_診断) :- 氏名で並び替え(_ファイル名,L,_診断).
機能選択(3,_ファイル名,L,_診断) :- 点数で並び替え(_ファイル名,L,_診断).
機能選択(4,_ファイル名,L,_診断) :- 修正(_ファイル名,L,_診断).
機能選択(5,_,L,_診断) :- 平均の出力(L,_診断),
機能選択(6,_,L,_診断) :- クラス別で出力(L,_診断).

診断(終了) :- !.

メニュー画面 :-
　　　write('１　学生番号で並び替え　２．氏名で並び替え \n'),
　　　write('３．点数で並び替え　４．修正 \n'),
　　　write('５．平均の出力　 ６．クラス別で出力 \n'),
　　　write('ーーーーーーーーーーーーーーーー\n').

http://pc12.2ch.net/test/read.cgi/tech/1269438098/256
# [1] 授業単元：　並列プログラミング
# [2] 問題文(含コード&リンク)：　配列をソートするために、クイックソートをMPIを用いて並列化せよ。
#

>>203
% Prolog 友人に解答を依頼したところ掲載してよいからとメールがきました。
% AZ-Prologの並列機能を使っています。
% (その一)

/*
qsort.pl

　　qsort を2プロセス並列で解を求める

　　　| ?- mlt_quick_sort([5,4,1,8,4,0,9],Ans).
　　　A = [0,1,4,4,5,8,9]
　　　yes

軽い説明：
　　　mlt_send(Prc,[[Goal,ReturnValue],[Goal2,ReturnValue2]...]) 　Procの個数分ゴールと戻し値を設定する
　　　mlt_receive(Proc,[ReturnValue,ReturnValue2....]) mlt_sendで起動した順、設定された戻し値がユニファイされ
る
*/

>>204 (>>203)
% Prolog (その二)

mlt_quick_sort([A|L],Ans):-
　　　　mlt_proc(2,prolog_c,'',consult('qsort.pl'),Proc),　　　　　%　２つの子プロセスを立ち上げる
　　　　partition(A,L,Ls,Lb),　　　　　　　　　　　　　　　　　　　%　元データを２つに分割する
　　　　mlt_send(Proc,　　[[qsort(Ls,X),X],[qsort(Lb,Y),Y]]),　　　%　２つのリストを２つのプロセスで並列ソート
　　　　mlt_receive(Proc,[　Ans-[A|Else],　　　　Else-[]　]),　　　%　結果を起動順に受け取る(上のサブゴールの　X,Y　)
　　　　mlt_kill(Proc).　　　　　　　　　　　　　　　　　　　　　　%　子プロセスを削除する

%%%%%　Quick　Sort　%%%%%
quick_sort(List,Ans):-qsort(List,Ans-[]).

qsort([X|L],Ans-Tail):-
　　　　!,partition(X,L,Lsmall,Lbig),　qsort(Lsmall,Ans-[X|Else]),　qsort(Lbig,Else-Tail).
qsort([],L-L).

partition(X,[A|L],Ls,[A|Lb]):-X@<A,!,partition(X,L,Ls,Lb).
partition(X,[A|L],[A|Ls],Lb):-!,partition(X,L,Ls,Lb).
partition(_,[],[],[]).

http://pc11.2ch.net/test/read.cgi/db/1252492296/823
# mysql 5.1.38
#
# table inputdaka
# code int
# inputdate date
# data1 int
# data2 int
#
# 指定された日（その日が存在しなければ直前の日付）及びその前日の
# データを得る
#
# select inputdate,data1,data2
# from inputdaka
# where code= 9999
# and
# inputdate <= '2010-04-10'
# order by inputdate desc limit 2;
#
# mysqlで、こう書きましたが、limitが使えないRDBでは
# どうなるんですか？

>>206
% Prolog

'指定された日（その日が存在しなければ直前の日付）及びその前日のデータを得る'(_指定された日,_code,_inputdate,_data1,_data2) :-
　　　inputdaka(_code,_指定された日,_data1,_data2),
　　　_inputdate = _指定された日,!.
'指定された日（その日が存在しなければ直前の日付）及びその前日のデータを得る'(_指定された日,_code,_inputdate,_data1,_data2) :-
　　　前日(_指定された日,_前日),
　　　inputdaka(_code,_前日,_data1,_data2),
　　　_inputdate = _前日,!.
'指定された日（その日が存在しなければ直前の日付）及びその前日のデータを得る'(_指定された日,_code,_inputdate,_data1,_data2) :-
　　　前日(_指定された日,_前日),
　　　前日(_前日,_前々日),
　　　inputdaka(_code,_前々日,_data1,_data2),
　　　_inputdate = _前々日,!.

>>191 >>190 (>>189)
% Prolog IF/Prologのexecption_handler/3の使い方を示します。

加算(A,B,C,_診断) :-　　　 exception_handler(C is A + B,error(E,I),true),
　　　 診断(I,_診断).

減算(A,B,C,_診断) :-
　　　 exception_handler(C is A - B,error(E,I),true),
　　　 診断(I,_診断).

乗算(A,B,C,_診断) :-
　　　 exception_handler(C is B - A,error(E,I),true),
　　　 診断(I,_診断).

除算(A,B,C,_診断) :-
　　　 exception_handler(C is A // B,error(E,I),true),
　　　 診断(I,_診断).

剰余算(A,B,C,_診断) :-
　　　 exception_handler(C is A mod B,error(E,I),true),
　　　 診断(I,_診断).

診断(I,正常終了) :- var(I),!.
診断(I,整数オーバーフロー) :-
　　　I = _ :: [_,_,goal = (system : exception_handler(_,error(_ :: evaluation_error(int_overflow),_),_) @ user)].
診断(I,ゼロ除算エラー) :-
　　　I = _ :: [_,_,goal = (system : exception_handler(_,error(_ :: evaluation_error(zero_divisor),_),_) @ u
ser)].

>>208 (>>189)
% Prolog 書き直し

% Prolog IF/Prologのexecption_handler/3の使い方を示します。

加算(A,B,C,_診断) :- exception_handler(C is A + B,error(E,I),true),診断(I,_診断).

減算(A,B,C,_診断) :- exception_handler(C is A - B,error(E,I),true),診断(I,_診断).

乗算(A,B,C,_診断) :- exception_handler(C is B - A,error(E,I),true),診断(I,_診断).

除算(A,B,C,_診断) :- exception_handler(C is A // B,error(E,I),true),診断(I,_診断).

剰余算(A,B,C,_診断) :- exception_handler(C is A mod B,error(E,I),true),診断(I,_診断).

診断(I,正常終了) :- var(I),!.
診断(I,整数オーバーフロー) :-
　　　I = _ :: [_,_,goal = (system : exception_handler(_,error(_ :: evaluation_error(int_overflow),_),_) @ user)].
診断(I,ゼロ除算エラー) :-
　　　I = _ :: [_,_,goal = (system : exception_handler(_,error(_ :: evaluation_error(zero_divisor),_),_) @ user)].
診断(I,I).

http://pc12.2ch.net/test/read.cgi/tech/1269438098/272
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# 整数の入った配列中の、各整数の個数を出力せよ。
# 例えば、P[4]={1, 2, 3, 1} ならば出力は
# 0　0
# 1　2
# 2　1
# 3　1
# 4　0
# となる。配列の要素数までの各整数の個数を出力すれば良い。

http://pc12.2ch.net/test/read.cgi/tech/1269438098/274
# [1]授業単元： プログラミング
# [2] 問題文：
# unixのソケット通信を使ったTCP/IPの通信型プログラムで、まず認証の方法として
# ユーザー名とパスワードを打ち込みサーバー側が認証され、その後サーバー側からは
# クイズを出題する状態になっていて５問正解した場合（正解数はサーバー、クライアント
# 両方保持した状態）、暗証のメッセージを送信するということになっていて、
# その場合のクライアント側のプログラムを作成せよ（書き方がおかしかったら
# すいません）

http://pc12.2ch.net/test/read.cgi/tech/1268699491/516
# 文字列をひっくり返す関数下さい
#
# in→あいうえお
# out→おえうあい
#
# こんな感じのです

>>212
% Prolog 深淵なるルール/2は未定義です。

文字列をひっくり返す関数下さい (_in,_out) :-
　　　勘違い(_,_),
　　　atom_chars(_in,_文字ならび),
　　　reverse(_文字ならび,反転した文字ならび),
　　　atom_chars(_out,_反転した文字ならび).
文字列をひっくり返す関数下さい (_in,_out) :-
　　　深淵なるルール(_in,_out).

勘違い(おえうあい,おえういあ).

>>213 (>>212)
% Prolog 副目標 勘違い/2の引数は具体的であるべきでした。

文字列をひっくり返す関数下さい (_in,_out) :-
　　　勘違い(あいうえお,おえうあい),
　　　atom_chars(_in,_文字ならび),
　　　reverse(_文字ならび,反転した文字ならび),
　　　atom_chars(_out,_反転した文字ならび).
文字列をひっくり返す関数下さい (_in,_out) :-
　　　深淵なるルール(_in,_out).

勘違い(おえうあい,おえういあ).

>>214 (>>212)
% Prolog もう一箇所訂正(恐縮)
文字列をひっくり返す関数下さい (_in,_out) :-
　　　勘違い(あいうえお,おえうあい),
　　　atom_chars(_in,_文字ならび),
　　　reverse(_文字ならび,_反転した文字ならび),
　　　atom_chars(_out,_反転した文字ならび).
文字列をひっくり返す関数下さい (_in,_out) :-
　　　深淵なるルール(_in,_out).

勘違い(おえうあい,おえういあ).

>>210
% Prolog

'整数の入った配列中の、各整数の個数を出力せよ。 \n例えば、P[4]={1, 2, 3, 1} ならば出力は\n0　0 \n1　2 \n2　1
\n3　1 \n4　0 \nとなる。配列の要素数までの各整数の個数を出力すれば良い。 ' (_数値ならび) :-
　　　要素数を数える(_数値ならび,_数値ならびの要素数),
　　　for(0,N,_数値ならびの要素数),
　　　count(member(N,_数値ならび),_度数),
　　　write_formatted('%t %t\n',[N,_度数]),
　　　N = _数値ならびの要素数.

>>211
% Prolog (その一)

'unixのソケット通信を使ったTCP/IP通信に於けるサーバー認証のクライアント側動作'(Server,Port,Socket,Input,Outp
ut) :-
　　　サーバーとの通信を確立し(Server,Port,Socket,Input,Output),
　　　最初にユーザー名とパスワードを打ち込み(Input,Output),
　　　後にサーバーからの五問の質問に答える(1,Input,Output),
　　　サーバーからの認証通知を得る(Input),!.

サーバーとの通信を確立し(Socket,Input,Output) :-
　　　socket(internet, stream, Socket),
　　　socket_connect(Socket, Host : Port).
　　　open(Socket, read, Input),
　　　open(Socket, write, Output),!.

ユーザー名とパスワードを打ち込み(Input,Output) :-
　　　get_line(Input,'Username: '),
　　　ユーザ名の取得(_ユーザ名),
　　　ユーザ名の送信(Output,_ユーザ名),
　　　get_line(Input,'Password: '),
　　　パスワードの取得(_パスワード),
　　　パスワードの送信(Output,_パスワード),!.

後にサーバーからの五問の質問に答える(N,Input,Output) :- N > 5,!.
後にサーバーからの五問の質問に答える(N,Input,Output) :-
　　　サーバーからの質問を取得(Input,_質問),
　　　質問文の表示(_質問),write_formatted('%t',[_質問]),
　　　回答を得る(_回答),get_line(_回答),
　　　回答の送信(Output,_回答),write_formatted(Output,'%t\n',[_回答]),
　　　N2 is N + 1,
　　　サーバーからの質問に答える(N2,Input,Output),!.

>>211
% Prolog (その二)

ーザ名の取得(_ユーザ名) :-
　　　get_char(C),
　　　ユーザ名文字ならびの取得(C,L),
　　　atom_chars(_ユーザ名,L),!.

ユーザ名文字ならびの取得('\n',[]) :- !.
ユーザ名文字ならびの取得(A,[A|R]) :-
　　　get_char(B),
　　　ユーザ名文字ならびの取得(B,R).

ユーザ名の送信(Output,_ユーザ名) :-
　　　write(Output,_ユーザ名),!.

パスワードの取得(_ユーザ名) :-
　　　rawmode,
　　　get_char(C),
　　　パスワード文字ならびの取得(C,L),
　　　atom_chars(パスワード,L),norawmode,!.

パスワード文字ならびの取得('\n',[]) :- !.
パスワード文字ならびの取得(A,[A|R]) :-
　　　get_char(B),
　　　put_char('*'),
　　　パスワード文字ならびの取得(B,R).

パスワードの送信(Output,_パスワード) :-
　　　write(Output,_パスワード),!.

>>211
% Prolog (その三)

サーバーからの認証通知を得る(Input) :-
　　　get_line(Input,X),
　　　認証完了(X).

認証完了(X) :-
　　　サーバー接続完了通知文字(X),!.
認証完了(X) :-
　　　write_formatted('認証を拒否されました:%t\n',[X]).

サーバー接続完了通知文字('OK').

質問文の表示(_質問) :-
　　　write_formatted('%t',[_質問]),!.

回答を得る(_回答) :-
　　　get_line(_回答),!.

回答の送信(Output,_回答) :-
　　　write_formatted(Output,'%t\n',[_回答]),!.

>>217 (>>211)
% Prolog (その一) ここだけ訂正。ゴミが入っていた。

'unixのソケット通信を使ったTCP/IP通信に於けるサーバー認証のクライアント側動作'(Server,Port,Socket,Input,Outp
ut) :-
　　　サーバーとの通信を確立し(Server,Port,Socket,Input,Output),
　　　最初にユーザー名とパスワードを打ち込み(Input,Output),
　　　後にサーバーからの五問の質問に答える(1,Input,Output),
　　　サーバーからの認証通知を得る(Input),!.

サーバーとの通信を確立し(Socket,Input,Output) :-
　　　socket(internet, stream, Socket),
　　　socket_connect(Socket, Host : Port).
　　　open(Socket, read, Input),
　　　open(Socket, write, Output),!.

ユーザー名とパスワードを打ち込み(Input,Output) :-
　　　get_line(Input,'Username: '),
　　　ユーザ名の取得(_ユーザ名),
　　　ユーザ名の送信(Output,_ユーザ名),
　　　get_line(Input,'Password: '),
　　　パスワードの取得(_パスワード),
　　　パスワードの送信(Output,_パスワード),!.

後にサーバーからの五問の質問に答える(N,Input,Output) :- N > 5,!.
後にサーバーからの五問の質問に答える(N,Input,Output) :-
　　　サーバーからの質問を取得(Input,_質問),
　　　質問文の表示(_質問),
　　　回答を得る(_回答),
　　　回答の送信(Output,_回答),
　　　N2 is N + 1,
　　　サーバーからの質問に答える(N2,Input,Output),!.

>>220
% Prolog さらに間違い発見

後にサーバーからの五問の質問に答える(N,Input,Output) :- N > 5,!.
後にサーバーからの五問の質問に答える(N,Input,Output) :-
　　　サーバーからの質問を取得(Input,_質問),
　　　質問文の表示(_質問),
　　　回答を得る(_回答),
　　　回答の送信(Output,_回答),
　　　N2 is N + 1,
　　　後にサーバーからの五問の質問に答える(N2,Input,Output),!.

>>215 さらに訂正w
% Prolog　引数部分をまちがえた

文字列をひっくり返す関数下さい (_in,_out) :-
　　　勘違い(おえうあい,おえういあ),
　　　atom_chars(_in,_文字ならび),
　　　reverse(_文字ならび,_反転した文字ならび),
　　　atom_chars(_out,_反転した文字ならび).
文字列をひっくり返す関数下さい (_in,_out) :-
　　　深淵なるルール(_in,_out).

勘違い(おえうあい,おえういあ).

そもそも 深淵なるルール -> 深遠なるルール　でなくてはいけなっかたか。

>>212
% Prolog

深淵なるルール(_in,_out) :- 深遠なるルール(_in,_out).

深遠なるルール(_in,_out) :-
　　　atom_chars(_in,Chars),
　　　第三要素から残り最後までを反転し最初の二要素を付加する(Chars,Chars2),
　　　atom_chars(_out,Chars2).
深遠なるルール(_in,_out) :-
　　　atom_chars(_in,_文字ならび),
　　　一旦反転して最終二要素を置換する(_文字ならび,_一旦反転して最終二要素を置換した文字ならび),
　　　atom_chars(_out,_一旦反転して最終二要素を置換した文字ならび).
深遠なるルール(_in,_out) :-
　　　atom_chars(_in,_文字ならび),
　　　文字置換ルールに従って文字を置換する(_文字ならび,_置換された文字ならび),
　　　atom_chars(_out,_置換された文字ならび).

第三要素から残り最後までを反転し最初の二要素を付加する(Chars,Chars2) :-
　　　length(L,2),
　　　append(L,R,Chars),
　　　reverse(R,R2),
　　　append(R2,L,Chars2).

一旦反転して最終二要素を置換する(_文字ならび,_一旦反転して最終二要素を置換した文字ならび) :-
　　　reverse(_文字ならび,_反転した文字ならび),
　　　append(L,[A,B],_反転した文字ならび),
　　　append(L,[B,A],_一旦反転して最終二要素を置換した文字ならび).

>>212
% Prolog (つづき)

文字置換ルールに従って文字を置換する([],[]) :- !.
文字置換ルールに従って文字を置換する([A|R1],[B|R2]) :-
　　　文字置換ルール(A,B),
　　　文字置換ルールに従って文字を置換する(R1,R2).

文字置換ルール(あ,お).
文字置換ルール(い,え).
文字置換ルール(う,う).
文字置換ルール(え,あ).
文字置換ルール(お,い).

http://pc12.2ch.net/test/read.cgi/tech/1269438098/295
# [1] 授業単元： プログラミング
# [2] 問題文(含コード&リンク)：
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10573.c
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10574.txt
#
# 番号 名前 取得資格（1,0で表記）という書式の
# txtファイルをfscanfで読み込んで、取得資格文字列に１が１つでも含まれる行を出力する。
# （省略しているが、このプログラムより上に出力されたものと文字を合わせるため、
# 取得資格文字列の出力は1文字づつ間にスペースを空ける）
# 上のソースファイルで実行すると、途中で止まってしまいますがどこが間違ってますか？

>>226
% Prolog

txtファイルをfscanfで読み込んで、取得資格文字列に１が１つでも含まれる行を出力する(_txtファイル) :-
　　　txtファイルをfscanfで読み込んで(_txtファイル,L),
　　　取得資格文字列に１が１つでも含まれる行を出力する(L).

txtファイルをfscanfで読み込んで(_txtファイル,L) :-
　　　get_split_lines(_txtファイル,[' '],L).

取得資格文字列に１が１つでも含まれる行を出力する([]) :- !.
取得資格文字列に１が１つでも含まれる行を出力する([[_番号,_名前,_取得資格文字列]|R]) :-
　　　split(_取得資格文字列,[','],_取得資格指標ならび),
　　　'１が１つでも含まれる'(_取得資格指標ならび),
　　　取得資格文字列の出力は一文字づつ間にスペースを空ける(_取得資格指標ならび,' ',_取得資格表示文字列),
　　　write_formatted('%t %t %t\n',[_番号,_名前,_取得資格表示文字列]),
　　　取得資格文字列に１が１つでも含まれる行を出力する(R),!.
取得資格文字列に１が１つでも含まれる行を出力する([_|R]) :-
　　　取得資格文字列に１が１つでも含まれる行を出力する(R),!.

'１が１つでも含まれる'(L) :- member(1,L),!.

取得資格文字列の出力は一文字づつ間にスペースを空ける(_取得資格指標ならび,_取得資格表示文字列) :-
　　　concat_atom(_取得資格指標ならび,' ',_取得資格表示文字列).

>>100 問(3)
使用言語：J

f=:(4 3{])3 4}]

f 'javascript'
javsacript

f '123456789'
123546789

>>212
使用言語：J
深遠なるルールの方で。

f=:2&{.,~[:|.2&}.

f ucp'あいうえお'
おえうあい

[出所]NHK eﾃﾚ
１４０ｋｇの塩を、天秤を３回使って５０ｋｇと９０ｋｇに分けなさい。
天秤のおもりは、７ｋｇと２ｋｇがそれぞれ１個ずつ有る。

http://pc12.2ch.net/test/read.cgi/tech/1269438098/312
# [1] 授業単元： Introduction to C++
# [2] 問題文：　ユーザーにサイズN（最大で100000）を入力させ、そのサイズのArrayを1〜100までのランダムな数字で埋めた後、N個のランダムな数字を数字１、数字２、数字３・・・という具合にカウントするプログラムを書きなさい
# （元の文が英文なのですが、約した際に何かしら抜け落ちている点が在るかもしれないので一応原文も記載しておきます）
# Write a program that asks user to enter a size, N. (The maximum is 100000). Write a
# function that generates random numbers in range of 1 ~ 100 and fill an array of size N.
# You also need to count how many 1’s, 2’s, 3’s,
# 4’s, 5’s, …, 100’s. If the random number function does it job perfectly, the distribution to
# each number should be equal. But they might be slightly off.

>>231
% Prolog

'ユーザーにサイズN（最大で100000）を入力させ、そのサイズのArrayを1〜100までのランダムな数字で埋めた後、N個のランダムな数字を数字１、数字２、数字３・・・という具合にカウントする' :-
　　　'ユーザーにサイズN（最大で100000）を入力させ'(N),
　　　そのサイズのArray(L,N),
　　　'1〜100までのランダムな数字で埋めた後'(L),
　　　'N個のランダムな数字を数字１、数字２、数字３・・・という具合にカウントする'(L).

'ユーザーにサイズN（最大で100000）を入力させ'(N) :-
　　　催促付き整数入力('サイズN（最大で100000）を入力してください :',N),!.

'そのサイズのArrayを1〜100までのランダムな数字で埋めた後'([]) :- !.
'そのサイズのArrayを1〜100までのランダムな数字で埋めた後'([M|R]) :-
　　　M is (random mod 100) + 1,
　　　'そのサイズのArrayを1〜100までのランダムな数字で埋めた後'(R).

'N個のランダムな数字を数字１、数字２、数字３・・・という具合にカウントする'(L) :-
　　　for(1,N,100),
　　　count(member(N,L),Count),
　　　write_formatted('%tの度数=%t\n',[Count]),
　　　N=100.

>>232 (>>231)
% Prolog 訂正(引数がひとつ落ちていた)

'N個のランダムな数字を数字１、数字２、数字３・・・という具合にカウントする'(L) :-
　　　for(1,N,100),
　　　count(member(N,L),Count),
　　　write_formatted('%tの度数=%t\n',[N,Count]), /* ここですね */
　　　N=100.

>>232 (>>231)
%Prolog 定義がひとつ抜けてた。PrologなのでArrayはリストに置き換える。

そのサイズのArray(L,N) :- length(L,N).

http://pc12.2ch.net/test/read.cgi/tech/1269438098/318
# http://www2.ezbbs.net/24/techside/img/1266584278_1.jpg
# 空いている○の中に4~12の数字を入れ、5つある線上の合計が等しくなるようにした場合、
# あまる数字は何と何か？ なお、同じ数字は使えません。

>>235
% Prolog
ライン([A,B,C,2],[2,E,F,G],[G,H,B,1],[1,C,E,3]).

'空いている○の中に4~12の数字を入れ、5つある線上の合計が等しくなるようにした場合、あまる数字は何と何か？なお
、同じ数字は使えません。'(_あまる数字ならび) :-
　　　ライン(L1,L2,L3,L4),
　　　flat([L1,L2,L3,L4],L),
　　　未知数はいくつあるか(L,[],_重複しない変数ならび,_未知数の数),
　　　findall(M,for(4,M,12),_候補数値ならび),
　　　順列(_候補数値ならび,_未知数の数,_重複しない変数ならび),
　　　加算(L1,X),加算(L2,X),加算(L3,X),加算(L4,X),
　　　差集合(_候補数値ならび,VL,_あまる数字ならび).

未知数はいくつあるか([],L,L,N) :- length(L,N),!.
未知数はいくつあるか([V|R],L,VL,X) :-
　　　var(V),
　　　\+memberV(V,L),
　　　未知数はいくつあるか(R,[V|L],VL,X),!.
未知数はいくつあるか([V|R],L,VL,X) :-
　　　var(V),
　　　memberV(V,L),
　　　未知数はいくつあるか(R,L,VL,X),!.
未知数はいくつあるか([_|R],L,VL,X) :-
　　　未知数はいくつあるか(R,L,VL,X),!.

memberV(V1,[V2|R]) :- V1==V2,!.
memberV(V,[_|R]) :- memberV(V,R).

>>231
使用言語：J

f=:monad def '(~.,.+/"1@=)/:~>:?y#100'

f 1000000
1 9947
2 9919
3 10051
4 10165
5 10127
:
:
96 9985
97 9715
98 9942
99 10171
100 10031

http://pc12.2ch.net/test/read.cgi/tech/1267796762/36
# 【　課題　】http://ime.nu/www.bohyoh.com/Books/MeikaiJavaAlgo/EX/ALGOEX0211.html
# class YMD {
# 　　int y ;　　/* 西暦年 */
# 　　int m ;　　/* 月（1〜12）*/
# 　　int d ;　　/* 日（1〜31）*/
# }
# 　上に示したように、西暦年月日をフィールドとしてもつクラスを作成せよ。
# 以下に示すコンストラクタとメソッドを定義すること。
#
# 　・コンストラクタ（与えられた日付に設定）
# 　　　YMD (int y , int m , int d )
# 　・n 日後の日付を返す
# 　　　YMD after (int n )
# 　・n 日前の日付を返す
# 　　　YMD before (int n )
# 　この他にも、いろいろなメソッドを設計して作成せよ。

http://pc12.2ch.net/test/read.cgi/tech/1268699491/539
# perlの文字列置換でお知恵をお借りしたいです。
# ターゲット→@log
# 置き換え対象→[ ]で囲まれた文字列　[Feel1]〜[Feel13]までの14個
# 置き換える文字列→<img src="$html_url2/Feel$num.gif" onclick="document.getElementById('talk2').value='[Feel$num]'">
# Feelに続く数字を変数$numを使って置換処理をループしたいんですけどどうもうまくいかず･･･

http://pc12.2ch.net/test/read.cgi/tech/1197063023/473
# マスターマインドというゲームがあります
# ４つの中身が不明な箱と
# そのなかに４色のボールが入っていて
# (同じ色は何度でも使えます)
# 中身を知らない方の人が４つ箱に入っているボールの色を予想して
# 中身を知っている方の人が
# １．色だけがあっている数
# ２．色と場所があっている数
# を教えます(ウソはつかないものとします)
# 正解を出すのに最低何回質問をすればよいでしょうか？

http://pc12.2ch.net/test/read.cgi/tech/1269438098/326
# [1] 授業単元：プログラミング(画像処理)
# [2] 問題文： ttp://www1.axfc.net/uploader/He/so/274810
# pass：1
# 100KB以上になってしまったので斧に上げました。
#
[問題2]
大きさがM×Nの画像をfと呼び、任意の座標(α,β)を基準として画像fを4つの短形領域S(0,0)〜S(1,1)に分割します。
S(0,0) 左上隅の座標が(0,0)で、右下の座標が(α,β)である。
S(0,1) 左上隅の座標が(0,β+1)で、右下の座標が(α,N-1)である。
S(1,0) 左上隅の座標が(α+1,0)で、右下の座標が(M-1,β)である。
S(1,1) 左上隅の座標が(α+1,β+1)で、右下の座標が(M-1,N-1)である。

分割が済んだら、S(1,1)が左上、S(1,0)が右上、S(0,1)が左下、S(0,0)が右下になる画像hを作成して下さい。
なお、任意の座標(α,β)を指定できるものとすること。

# [問題5]
# ビットプレーン画像を作成する問題です。
# (1) R成分の0番目のビットプレーン画像を作成する。
# (2) 任意の色成分と任意のビットプレーン画像を作成する。
# (3) すべてのビットプレーン画像(合計24種類)を一度に作成する。
#
# (1)(2)(3)の処理内容を選択できるように作成して下さい。
#
# [問題1],[問題3],[問題4]は漢字のエンコードができませんでした。

http://pc12.2ch.net/test/read.cgi/tech/1269438098/379
# [1] 授業単元： プログラム演習
# [2] 問題文(含コード&リンク)：10000未満の正の整数を考える（xとする）。このとき、ある２つの整数の３乗の和として表す表し方が２通りある数をすべて求めなさい。つまり、異なる２通りの数の組(a,b)と(c,d)があって、
# x = a^3 + b^3
# = c^3 + d^3
# とできる数xを表示するプログラムを実行しなさい。例えば、1027は
# 1027 = 3^3 + 10^3
# と表せますが、それ以外は表せません（(3,10)と(10,3)は同じものと考える）。

>>243
使用言語：J

(I.4=+/"1=,a){~.,a=.+/~3^~>:i.<.3%:10000
1729 4104

http://pc12.2ch.net/test/read.cgi/tech/1255277760/128
# 【問題１：時計】
# 現在時刻をアスキーアートで表示せよ
#
# 【表示例】
# ●●○○○●○○○○○○●○●○○●●
# ○○●○●○●○○●○○●○●○●○○
# ○●●○●○●○○○○○●●●○●●●
# ●○○○●○●○○●○○○○●○●○●
# ●●●○○●○○○○○○○○●○●●●
#

>>243
% Prolog Jが何故あんなに短いのかわからんw

'10000未満の正の整数を考える（xとする）。このとき、ある２つの整数の３乗の和として表す表し方が２通りある数をすべて求める'(L) :-
　　　findall([A,B,C,D,X],'10000未満の正の整数を考える（xとする）。このとき、ある２つの整数の３乗の和として表す表し方が２通りある数をすべて求める'(A,B,C,D,X),L1),
　　　重複削除(L1,[],L).

'10000未満の正の整数を考える（xとする）。このとき、ある２つの整数の３乗の和として表す表し方が２通りある数をすべて求める'(A,B,C,D,X) :-
　　　findall([N,N3],(for(1,N,9999),N3 is N * N * N,N3 < 10000),L),
　　　組合せ(L,2,[[A,A3],[B,B3]]),
　　　X is A3 + B3,
　　　X < 10000,
　　　組合せ(L,2,[[C,C3],[D,D3]]),
　　　\+(member(C,[A,B])),
　　　\+(member(D,[A,B])),
　　　X is C3 + D3.

重複削除([],L,L).
重複削除([[A,B,C,D,X]|R1],L2,L) :-
　　　member([C,D,A,B,X],L2),
　　　重複削除(R1,L2,L).
重複削除([[A,B,C,D,X]|R1],L2,L) :-
　　　\+(member([C,D,A,B,X],L2)),
　　　重複削除(R1,[[A,B,C,D,X]|L2],L).

>>240
確率は低くても最初の当てずっぽの答えが当たる可能性があり、
問題として成立していないと思うが。

最低何回の質問で、確実に正解できるでしょうか、という意味だろう。

>>245
% Prolog (その一)

現在時刻をアスキーアートで表示(_時:_分) :-
　　　_時_1 is _時 // 10,
　　　_時_2 is _時 mod 10,
　　　_分_1 is _分 // 10,
　　　_分_2 is _分 mod 10,
　　　現在時刻をアスキーアートで表示(_時_1,_時_2,_分_1,_分2).

現在時刻をアスキーアートで表示(_時_1,_時_2,_分_1,_分2) :-
　　　数字のアスキーアート(_時_1,L1),
　　　数字のアスキーアート(_時_2,L2),
　　　数字のアスキーアート(_分_1,L3),
　　　数字のアスキーアート(_分_2,L4),
　　　英記号のアスキーアート(';',L5),
　　　L0 = [[0],[0],[0],[0],[0]],
　　　同一行数の行列のappend(L1,L0,L2,LA),
　　　同一行数の行列のappend(LA,L0,L5,LB),
　　　同一行数の行列のappend(LB,L0,L3,LC),
　　　同一行数の行列のappend(LC,L0,L4,LX),
　　　アスキーアートで表示(LX).

アスキーアートで表示([]).
アスキーアートで表示([L|R]) :- concat_atom(L,S),write_formatted('%t\n',[S]),アスキーアートで表示(R).

>>249 (>>245)
% Prolog (その一) 間違えた

現在時刻をアスキーアートで表示(_時:_分) :-
　　　_時_1 is _時 // 10,
　　　_時_2 is _時 mod 10,
　　　_分_1 is _分 // 10,
　　　_分_2 is _分 mod 10,
　　　現在時刻をアスキーアートで表示(_時_1,_時_2,_分_1,_分2).

現在時刻をアスキーアートで表示(_時_1,_時_2,_分_1,_分2) :-
　　　数字のアスキーアート(_時_1,L1),
　　　数字のアスキーアート(_時_2,L2),
　　　数字のアスキーアート(_分_1,L3),
　　　数字のアスキーアート(_分_2,L4),
　　　英記号のアスキーアート(';',L5),
　　　L0 = [[○],[○],[○],[○],[○]],
　　　同一行数の行列のappend(L1,L0,L2,LA),
　　　同一行数の行列のappend(LA,L0,L5,LB),
　　　同一行数の行列のappend(LB,L0,L3,LC),
　　　同一行数の行列のappend(LC,L0,L4,LX),
　　　アスキーアートで表示(LX).

アスキーアートで表示([]).
アスキーアートで表示([L|R]) :- concat_atom(L,S),write_formatted('%t\n',[S]),アスキーアートで表示(R).

>>245
% Prolog (その二)

'同一行数の行列のappend'([],[],[],[]).
'同一行数の行列のappend'([L1|R1],[L2|R2],[L3|R3],[L4|R4]) :-
　　append(L1,L2,L3,L4),
　　'同一行数の行列のappend'(R1,R2,R3,R4) .

数字のアスキーアート(0,[[○,●,○],[●,○,●],[●,○,●],[●,○,●],[○,●,○]]).
数字のアスキーアート(1,[[●,●,○],[○,●,○],[○,●,○],[○,●,○],[○,●,○]]).
数字のアスキーアート(2,[[●,●,●],[○,○,●],[●,●,●],[●,○,○],[●,●,●]]).
数字のアスキーアート(3,[[●,●,●],[○,○,●],[●,●,●],[○,○,●],[●,●,●]]).
数字のアスキーアート(4,[[○,○,●],[●,○,●],[●,●,●],[○,○,●],[○,○,●]]).
数字のアスキーアート(5,[[●,●,●],[●,○,○],[●,●,●],[○,○,●],[●,●,●]]).
数字のアスキーアート(6,[[○,●,●],[●,○,○],[●,●,●],[●,○,●],[●,●,●]]).
数字のアスキーアート(7,[[●,●,●],[●,○,●],[○,○,●],[○,●,○],[○,●,○]]).
数字のアスキーアート(8,[[○,●,○],[●,○,●],[○,●,○],[●,○,●],[○,●,○]]).

数記号のアスキーアート(':',[[○,○,○],[○,●,○],[○,○,○],[○,●,○],[○,○,○]]).

>>248
最善の戦略を示せ、くらいの意味でしょうね。
何故、質問回数を問う設定にしたのかはわからないけど。

http://pc12.2ch.net/test/read.cgi/tech/1269438098/399
# 引数1に10進の1/10の位までの値(例えば45なら4.5という意味です)、
# 引数2に目量数があったとして
# 目量の数に四捨五入するプログラムを作る。
# 例えば45,2なら結果は4、123,5なら10で125,5なら15という風にな
# る-45,3なら-6、-44,3なら-3・・・
# よろしくお願いします。

>>253
% Prolog

'引数1に10進の1/10の位までの値(例えば45なら4.5という意味です)、引数2に目量数があったとして目量の数に四捨五入するプログラム'(M,N,X) :-
　　　M >= 0,
　　　N10 is N * 10,
　　　MX is (M + (N10 // 2)) // N10,
　　　X is (MX * N10) // 10.
'引数1に10進の1/10の位までの値(例えば45なら4.5という意味です)、引数2に目量数があったとして目量の数に四捨五入するプログラム'(M,N,X) :-
　　　M < 0,
　　　N10 is N * 10,
　　　MX is (M - (N10 // 2)) // N10,
　　　X is (MX * N10) // 10.

http://pc11.2ch.net/test/read.cgi/db/1252492296/839
# Table1
# |ID|Score|Div1|Div2|
# |1 |0.2 |1 |1 |
# |2 |0.3 |1 |2 |
# |3 |0.4 |1 |3 |
# |4 |0.2 |1 |4 |
# |5 |0.1 |2 |1 |
# |6 |0.3 |2 |3 |
#
# Table2
# |ID|Div1|
# |1 |1 |
# |1 |2 |
# |1 |3 |
# |2 |2 |
#

>>255 続き
# こういう構成で、約2000万行のTable1と約100万行のTable2について
# １．Select Div1, Score From Table Where Div2 = 2 or Div2 = 4;
# ２．Select Div1, Score From Table Where Div2 = 5 or ... or Div2 = 9;
# ：
# ：
# Ｎ.・・・・;
# このようなＮ個のクエリを発行し、
# 得られる全ての結果から共通するDiv1の値を含む行のみを抽出、
# 得られた共通するDiv1の値を使ってTable2にjoinし、
# Table2のIDごとのScoreの合計値を取得したいのです。
# （Score値が複数回加算されるのは仕様です）
#
# 手続き的に処理をしているのですが、どうにも遅く
# 一回のSQLで素早く取得する方法はありませんでしょうか。

>>255
% Prolog 2000万件はオンメモリデータベースとしてのPrologにとっては
% 大き過ぎます。対象外の問題だと思います。部分的なアルゴリズムとしては、

'ルール1~N全てに解が存在するID'(_Div2,_ルールならび,X) :-
　　　　'ルール1~N全てに解が存在するID'(0,_Div2,_ルールならび,X).

'ルール1~N全てに解が存在するID'(N,_,[],X) :-
　　　　findall(_Div,'_Div1_temp(_Div,N),X).
'ルール1~N全てに解が存在するID'(N,_Div2,[_ルール|R],X) :-
　　　　'ルール1~N全てにとして存在するID'(N,_Div2,_ルール),
　　　　N2 is N + 1,
　　　　'ルール1~N全てに解が存在するID'(N2,_Div2,R,X).

'ルール1~N全てにとして存在するID'(0,_Div2,_ルール) :-
　　　　'Table1'(_ID,_Score,_Div1,_Div2),
　　　　call(_ルール),
　　　　\+('_Div1_temp'(_Div1,1)),
　　　　assertz('_Div1_temp'(_Div1,1)),
　　　　fail.
'ルール1~N全てに解として存在するID'(N,_Div2,_ルール) :-
　　　　N > 0,
　　　　'Table1'(_ID,_Score,_Div1,_Div2),
　　　　call(_ルール),
　　　　'_Div1_temp'(_Div1,N),
　　　　N2 is N + 1,
　　　　retract('_Div1_temp'(_Div1,N)),
　　　　assertz('_Div1_temp'(_Div1,N2)),
　　　　fail.

>>257 ミスタイプがありました。
'ルール1~N全てにとして存在するID'(0,_Div2,_ルール) :-
　　==>>
'ルール1~N全てに解として存在するID'(0,_Div2,_ルール) :-

「解」が抜けていました。

>>257 (>>255)
% Prolog 訂正です。 'ルール1~N全てに解が存在するID'/4 は

'ルール1~N全てに解が存在するID'(N,_,[],X) :-
　　　　findall(_Div1,'_Div1_temp(_Div1,N),X),
abolish('_Div1_temp'/2),!.
'ルール1~N全てに解が存在するID'(N,_Div2,[_ルール|R],X) :-
　　　　'ルール1~N全てにとして存在するID'(N,_Div2,_ルール).
'ルール1~N全てに解が存在するID'(N,_Div2,[_|R],X) :-
　　　　N2 is N + 1,
　　　　'ルール1~N全てに解が存在するID'(N2,_Div2,R,X).

http://pc12.2ch.net/test/read.cgi/tech/1267796762/38
# 【　課題　】 http://ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/958.txt
# 月〜土までの時間割を多次元配列を用い作成する。その後出力をする。
# なお作成にはメソッドを複数使用し、クラスは１つだけとする。

>>260
% Prolog

'月〜土'([月曜,火曜,水曜,木曜,金曜,土曜]).

'月〜土までの時間割を多次元配列を用い作成する。その後出力をする。' :-
　　　'月〜土'(_曜日ならび),
　　　'月〜土までの時間割を多次元配列を用い作成する。'(_曜日ならび,_時間割),
　　　'その後出力する。'(_曜日ならび,_時間割).

'月〜土までの時間割を多次元配列を用い作成する。'([],[]) :- !.
'月〜土までの時間割を多次元配列を用い作成する。'([_曜日|R1],[_曜日ごとの時間割|R2]) :-
　　　write_formatted('%t日の時限数を入力してください : ',[_曜日]),get_integer(_時限数),
　　　write_formatted('%t時限の教科名を順に入力してください\n'),
　　　時限ごとの教科名の入力(1,_時限数,_曜日ごとの時間割),
　　　'月〜土までの時間割を多次元配列を用い作成する。'(R1,R2).

時限ごとの教科名の入力(N,_時限数,[]) :- N > _時限数,!.
時限ごとの教科名の入力(N,_時限数,[_教科名|R]) :-
　　　write_formatted('%t時限目　: ',[_教科名]),get_line(_教科名),
　　　N2 is N + 1,
　　　時限ごとの教科名の入力(N2,_時限数,R).

'その後出力する'([],[]) :- !.
'その後出力する'([_曜日|R1],[L|R2]) :-
　　　length(L,_時限数),
　　　concat_atom(L,',',_教科名ならび文字列),
　　　write_formatted('%t日 : %t時間　%t\n',[_曜日,_時限数,_教科名ならび文字列]),
　　　'その後出力する'(R1,R2).

http://pc12.2ch.net/test/read.cgi/tech/1269438098/401
# いま学校の課題で
# do-while文を使って
# １＋２＋３・・・というように数値を加算して表示し、
# 加算結果が３００を超えたら表示して
# 処理を終了するというプログラムを組みたいのですが、
# 普段から授業ついていけなくて、よくわかりません
# どなたか教えてください。お願いします

>>262
% Prolog

'１＋２＋３・・・というように数値を加算して表示し、加算結果が３００を超えたら表示して処理を終了する' :-
　　　'１＋２＋３・・・というように数値を加算して表示し、加算結果が３００を超えたら表示して処理を終了する'(1,0).

'１＋２＋３・・・というように数値を加算して表示し、加算結果が３００を超えたら表示して処理を終了する'(N,_加算結果) :-
　　　加算結果が３００を超えたら表示して処理を終了する(_加算結果).
'１＋２＋３・・・というように数値を加算して表示し、加算結果が３００を超えたら表示して処理を終了する'(N,_加算結果_1) :-
　　　_加算結果_2 is N + _加算結果_1,
　　　write_formatted('%t + %t = %t\n',[_加算結果_1,N,_加算結果_2]),
　　　N2 is N + 1,
　　　'１＋２＋３・・・というように数値を加算して表示し、加算結果が３００を超えたら表示して処理を終了する'(N2,_加算結果_2).

加算結果が３００を超えたら表示して処理を終了する(_加算結果) :-
　　　_加算結果 > 300,
　　　write_formatted('加算結果が%tとなり、300を越えました\n',[_加算結果]),!.

>>263
% Prolog !を入れる位置を間違えた。

'１＋２＋３・・・というように数値を加算して表示し、加算結果が３００を超えたら表示して処理を終了する' :-
　　　'１＋２＋３・・・というように数値を加算して表示し、加算結果が３００を超えたら表示して処理を終了する'(1,0).

'１＋２＋３・・・というように数値を加算して表示し、加算結果が３００を超えたら表示して処理を終了する'(N,_加算結果) :-
　　　加算結果が３００を超えたら表示して処理を終了する(_加算結果),!.
'１＋２＋３・・・というように数値を加算して表示し、加算結果が３００を超えたら表示して処理を終了する'(N,_加算結果_1) :-
　　　_加算結果_2 is N + _加算結果_1,
　　　write_formatted('%t + %t = %t\n',[_加算結果_1,N,_加算結果_2]),
　　　N2 is N + 1,
　　　'１＋２＋３・・・というように数値を加算して表示し、加算結果が３００を超えたら表示して処理を終了する'(N2,_加算結果_2).

加算結果が３００を超えたら表示して処理を終了する(_加算結果) :-
　　　_加算結果 > 300,
　　　write_formatted('加算結果が%tとなり、300を越えました\n',[_加算結果]),!.

>>262
% Polog 引数を増やして、表示の仕方を改良

'１＋２＋３・・・というように数値を加算して表示し、加算結果が３００を超えたら表示して処理を終了する' :-
　　　'１＋２＋３・・・というように数値を加算して表示し、加算結果が３００を超えたら表示して処理を終了する'(1,0,[]),!.

'１＋２＋３・・・というように数値を加算して表示し、加算結果が３００を超えたら表示して処理を終了する'(N,_加算結果,_) :-
　　　加算結果が３００を超えたら表示して処理を終了する(_加算結果),!.
'１＋２＋３・・・というように数値を加算して表示し、加算結果が３００を超えたら表示して処理を終了する'(N,_加算結果_1,L) :-
　　　_加算結果_2 is N + _加算結果_1,
　　　append(L,[N],L2),
　　　concat_atom(L2,'+',S),
　　　write_formatted('%t = %t\n',[S,_加算結果_2]),
　　　N2 is N + 1,
　　　'１＋２＋３・・・というように数値を加算して表示し、加算結果が３００を超えたら表示して処理を終了する'(N2,_加算結果_2,L2).

加算結果が３００を超えたら表示して処理を終了する(_加算結果) :-
　　　_加算結果 > 300,
　　　write_formatted('加算結果が%tとなり、300を越えました\n',[_加算結果]).

http://pc12.2ch.net/test/read.cgi/tech/1269438098/411
#
# [2] 問題文(含コード&リンク)：
# 　　簡単なんですけど、C言語苦手でお願いします。
#
# 　　すべて関数の部分だけで大丈夫です。
# 　�３つの実数の掛け算をもとめよ。
# 　�整数ｎの階乗ｎ！をもとめよ。
# 　�配列・実数・data[]の平均値を求めよ。
# 　�２つの実数　aとbの内容を入れ替えよ。

ttp://pc12.2ch.net/test/read.cgi/tech/1269438098/415
# [1] 授業単元：プログラム
# [2] 問題文(含コード&リンク)：プログラム開始前に％だけの行が1つも無いときには，そのような行を追加し，
# 2つ以上あるときには1つだけにするようなプログラムをC言語により作成する．

>>266 字化けしたので書き直し
http://pc12.2ch.net/test/read.cgi/tech/1269438098/411
#
# [2] 問題文(含コード&リンク)：
# 　　簡単なんですけど、C言語苦手でお願いします。
#
# 　　すべて関数の部分だけで大丈夫です。
# 　1) ３つの実数の掛け算をもとめよ。
# 　2) 整数ｎの階乗ｎ！をもとめよ。
# 　3) 配列・実数・data[]の平均値を求めよ。
# 　4) ２つの実数　aとbの内容を入れ替えよ。

http://pc12.2ch.net/test/read.cgi/tech/1269438098/416
# 数当てゲーム１　乱数当て
# プログラムで一つの整数乱数aを生成し、その値を当てさせる。
# 入力された値がaより小さい時は「もっと大きいよ」、aより小さい時は「もっと小さいよ」と出力し、当てるまで繰り返しをする。
#
# プログラムの例
# Srand (time(NULL));
# a=rand();
#
# プログラムの最初にRAND_MAXを出力したほうがわかりやすい
#
# --------------------------------------------------------------------------------
#
# 数当てゲーム２　０〜９９９の当て
# 先ほどのプログラムを更に改善し、０〜９９９までの整数乱数を生成せよ
#
# ---------------------------------------------------------------------------------
#
# 数当てゲーム３　当て回数の制限
# さらに改善し、当てる回数に制限を付ける、例えば10回など
# 当てる度に残っている回数を表示する。回数に達するとプログラム終了

>>268
% Prolog

３つの実数の掛け算をもとめよ(_実数1,_実数2,_実数3,_実数解) :-
　　　_実数解 is _実数1 * _実数2 * _実数3.

整数ｎの階乗ｎ！をもとめよ(0,1).
整数ｎの階乗ｎ！をもとめよ(1,1).
整数ｎの階乗ｎ！をもとめよ(_整数ｎ,_ｎ！) :-
　　　_整数ｎより１小さい数 is _整数ｎ - 1,
　　　整数ｎの階乗ｎ！をもとめよ(_整数ｎより１小さい数,_（ｎ−１）！),
　　　_ｎ！ is _（ｎ−１）！ * _整数ｎ.

'配列・実数・data[]の平均値を求めよ'(_実数のならび,_平均値) :-
　　　相加平均(_実数のならび,_平均値).

'２つの実数　aとbの内容を入れ替えよ'(_a,_b,_b,_a).

'２つの実数　aとbの内容を入れ替えよ'(a,b) :-
　　　retract(a(_a)),
　　　retract(b(_b)),
　　　assertz(a(_b)),
　　　assertz(b(_a)).

相加平均([],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.0e+00,M).

>>267
% Prolog
プログラム開始行はprogramからはじまることとする.

'プログラム開始前に％だけの行が1つも無いときには，そのような行を追加し，2つ以上あるときには1つだけにするようなプログラム'(_プログラム) :-
　　　get_lines(_プログラム,Lines),
　　　'プログラム開始前に％だけの行が1つも無いときには，そのような行を追加し，2つ以上あるときには1つだけにするようなプログラム'(Lines,[],Lines2),
　　　put_lines(_プログラム,Lines2),!.

'プログラム開始前に％だけの行が1つも無いときには，そのような行を追加し，2つ以上あるときには1つだけにするようなプログラム'([A|R1],[],['%',A|R1]) :-
　　　プログラム開始行はprogramからはじまることとする,
　　　sub_atom(A,0,7,_,program),!.
'プログラム開始前に％だけの行が1つも無いときには，そのような行を追加し，2つ以上あるときには1つだけにするようなプログラム'([A|R1],[_|_],[A|R1]) :-
　　　プログラム開始行はprogramからはじまることとする,
　　　sub_atom(A,0,7,_,program),!.
'プログラム開始前に％だけの行が1つも無いときには，そのような行を追加し，2つ以上あるときには1つだけにするようなプログラム'(['%'|R1],[],['%'|R2]) :-
　　　'プログラム開始前に％だけの行が1つも無いときには，そのような行を追加し，2つ以上あるときには1つだけにするようなプログラム'(R1,[_],R2).
'プログラム開始前に％だけの行が1つも無いときには，そのような行を追加し，2つ以上あるときには1つだけにするようなプログラム'(['%'|R1],[_],R2) :-
　　　'プログラム開始前に％だけの行が1つも無いときには，そのような行を追加し，2つ以上あるときには1つだけにするようなプログラム'(R1,[_],R2).
'プログラム開始前に％だけの行が1つも無いときには，そのような行を追加し，2つ以上あるときには1つだけにするようなプログラム'([A|R1],U,[A|R2]) :-
　　　\+(A='%'),
　　　'プログラム開始前に％だけの行が1つも無いときには，そのような行を追加し，2つ以上あるときには1つだけにするようなプログラム'(R1,U,R2).

>>271
% Prolog 極度に読みにくいので構造だけ露にする。

プログラム開始行はprogramからはじまることとする.

u(_プログラム) :-
　　　get_lines(_プログラム,Lines),
　　　u(Lines,[],Lines2),
　　　put_lines(_プログラム,Lines2),!.

u([A|R1],[],['%',A|R1]) :-
　　　プログラム開始行はprogramからはじまることとする,
　　　sub_atom(A,0,7,_,program),!.
u([A|R1],[_|_],[A|R1]) :-
　　　プログラム開始行はprogramからはじまることとする,
　　　sub_atom(A,0,7,_,program),!.
u(['%'|R1],[],['%'|R2]) :-
　　　u(R1,[_],R2).
u(['%'|R1],[_],R2) :-
　　　u(R1,[_],R2).
u([A|R1],U,[A|R2]) :-
　　　\+(A='%'),
u(R1,U,R2).

>>269
% Prolog (その一)

:- op(250,xf,より大きい).
:- op(250,xf,より小さい).

履歴を持った数当てゲームサーバ :-
　　　乱数を引き正解値を決める(_正解),
　　　当てずっぽの数をひとつ得る(_当てずっぽの数),
　　　履歴を持った数当てゲームサーバ(_当てずっぽの数,_正解,[]).

履歴を持った数当てゲームサーバ(_正解,_正解,_) :- write('正解です\n'),!.
履歴を持った数当てゲームサーバ(_当てずっぽの数,_正解,_履歴) :-
　　　すでにヒントの中に含まれている(_当てずっぽの数,_履歴,_既出のヒント),
　　　write_formatted('前に %tっていったでしょ!',[_既出のヒント]),
　　　当てずっぽの数をひとつ得る(_次の当てずっぽの数),
　　　履歴を持った数当てゲームサーバ(_当てずっぽの数,_正解,_履歴).
履歴を持った数当てゲームサーバ(_当てずっぽの数,_正解,_履歴) :-
　　　\+(すでにヒントの中に含まれている(_当てずっぽの数,_履歴)),
　　　_当てずっぽの数 < _正解,
　　　write('もっと大きいよ\n'),
　　　当てずっぽの数をひとつ得る(_次の当てずっぽの数),
　　　履歴を持った数当てゲームサーバ(_次の当てずっぽの数,_正解,[_当てずっぽの数 より大きい|_履歴]).
履歴を持った数当てゲームサーバ(_当てずっぽの数,_正解,_履歴) :-
　　　\+(すでにヒントの中に含まれている(_当てずっぽの数,_履歴)),
　　　_当てずっぽの数 > _正解,
　　　write('もっと小さいよ\n'),
　　　当てずっぽの数をひとつ得る(_次の当てずっぽの数),
　　　履歴を持った数当てゲームサーバ(_次の当てずっぽの数,_正解,[_当てずっぽの数 より小さい|_履歴]).

>>269
% Prolog (その二)

乱数を引き正解値を決める(_正解) :- _正解 is random.

当てずっぽ数をひとつ得る(_当てずっぽ数) :-
　　　repeat,
　　　write('さあ、なににしますか？ '),
　　　get_integer(_当てずっぽ数),!.

すでにヒントの中に含まれている(_当てずっぽの数,[N より大きい|R],Max より大きい) :-
　　　_当てずっぽの数 < _正解,
　　　\+(_当てずっぽの数 > N),
　　　findmax(M,member(M より大きい,[N より大きい|R]),Max),!.
すでにヒントの中に含まれている(_当てずっぽの数,[N より小さい|R],Min より小さい) :-
　　　_当てずっぽの数 > _正解,
　　　\+(_当てずっぽの数 < N),
　　　findmin(M,member(M より小さい,[N より小さい|R]),Min),!.
すでにヒントの中に含まれている(_当てずっぽの数,[_|R],X) :-
　　　すでにヒントの中に含まれている(_当てずっぽの数,R,X).

>>269
% Prolog

乱数の範囲を０〜９９９に絞り込む(_絞り込まれた乱数値) :-
　　　_絞り込まれた乱数値 is random mod 10000.

>>275
% Prolog ごめん。まちがえたw

乱数の範囲を０〜９９９に絞り込む(_絞り込まれた乱数値) :-
　　　_絞り込まれた乱数値 is random mod 1000.

>>275
% Prolog 述語の構成がよくなかった。

乱数を引き正解値を決める(_正解値) :-
　　　_乱数値 is random,
　　　乱数の範囲を０〜９９９に絞り込む(_乱数値,_正解値).

乱数の範囲を０〜９９９に絞り込む(_乱数値,_絞り込まれた乱数値) :-
　　　_絞り込まれた乱数値 is _乱数値 mod 1000.

% ０〜９９９という条件付けが　乱数を引き正解値を決める/1 の条件部に
% 入ってしまっていることは、好ましいことではない。

'乱数を引き正解値(０〜９９９)を決める'(_正解値) :-
　　　_乱数値 is random,
　　　乱数の範囲を０〜９９９に絞り込む(_乱数値,_正解値).

乱数の範囲を０〜９９９に絞り込む(_乱数値,_絞り込まれた乱数値) :-
　　　_絞り込まれた乱数値 is _乱数値 mod 1000.

% という定義にするべきであろう。

>>275
% prolog 少し長くなったので、
% http://nojiriko.asia/prolog/c135_416.html を参照してください。

>>195
% Prolog
http://nojiriko.asia/prolog/c135_243.html

http://pc11.2ch.net/test/read.cgi/db/1252492296/860
# ・DB2、バージョン9？
# ・受注データ
# ・検索範囲の期間指定をして、日別の受注件数を表示したい。
# 　ただし、受注がなかった場合にはその日は受注0件と表示しなければいけない。
# ・以下のような結果を得たい。
#
# 例
# 元となるテーブルが、
# 4/1　商品A
# 4/1　商品B
# 4/3　商品A
# 4/4　商品A
# 4/5　商品C
# （4/2の受注レコードはなし）
# で、
# 検索期間4/1-4/5という場合、
#
# 4/1　2件
# 4/2　0件
# 4/3　1件
# 4/4　1件
# 4/5　1件
# という結果を得たい。

>>280
% Prolog

検索範囲の期間指定をして、日別の受注件数を表示(_月/_日,_月/_日) :-
　　　　count(受注データ(_月/_日,_),_度数),
　　　　write_formatted('%t/%t %t件\n',[_月,_日,_件数]),!.
検索範囲の期間指定をして、日別の受注件数を表示(_月_1/_日_1,_月_2/_日_2) :-
　　　　前日・今日(2010/_月_1/_日_1,_/_月_3/_日_3),
　　　　count(受注データ(_月_1/_日_1,_),_度数),
　　　　write_formatted('%t/%t %t件\n',[_月_1,_日_1,_件数]),
　　　　検索範囲の期間指定をして、日別の受注件数を表示(_月_3/_日_3,_月_2/_日_2).

% 前日・今日/2 は http://nojiriko.asia/prolog/t815.html 参照

>>281 (>>280)
% Prolog _度数というところを_件数に訂正します。

検索範囲の期間指定をして、日別の受注件数を表示(_月/_日,_月/_日) :-
　　　　count(受注データ(_月/_日,_),_件数),
　　　　write_formatted('%t/%t %t件\n',[_月,_日,_件数]),!.
検索範囲の期間指定をして、日別の受注件数を表示(_月_1/_日_1,_月_2/_日_2) :-
　　　　前日・今日(2010/_月_1/_日_1,_/_月_3/_日_3),
　　　　count(受注データ(_月_1/_日_1,_),_件数),
　　　　write_formatted('%t/%t %t件\n',[_月_1,_日_1,_件数]),
　　　　検索範囲の期間指定をして、日別の受注件数を表示(_月_3/_日_3,_月_2/_日_2).

http://pc12.2ch.net/test/read.cgi/tech/1269438098/426
# [1] 授業単元：プログラム
# [2] 問題文(含コード&リンク)：sample.txtを読み込み、データを身長の小さい人から順番に並び変えてans.txtに出力せよ。
#
# sample.txtの中身はこんな感じです。
# 12 ヤマダタロウ 56.7 165.1
# 43 タナカハナコ 44.3 156.8
# 54 スズキイチロウ 70.3 179.2
# 左から番号、名前、体重、身長です
#

>>283
% Prolog 定義述語名をシングルクォートで囲ってあるのは途中二ヶ所ピリオドが現れるから

'sample.txtを読み込み、データを身長の小さい人から順番に並び変えてans.txtに出力せよ' :-
　　　get_split_lines('sample.txt',[' '],Ls),
　　　findall([_身長|L1],(member(L1,Ls),list_nth(4,L1,_身長)),Ls2),
　　　sort(Ls2,Ls3),
　　　findall(L2,member([_|L2],Ls3),_整列されたLs),
　　　put_lines('ans.txt',_整列されたLs).

http://pc11.2ch.net/test/read.cgi/db/1269585561/10
#　有給と勤怠の管理システム作ってるけど、
#　有給の設計むずいな。前年度の繰越とか。
#　有給管理のプログラムを作ってください。
#
# 有給テーブル
# 取得日
# 日数
#
# 勤怠テーブル
# 日付
# 出勤時間
# 退社時間
# 勤怠区分
#
# 勤怠区分テーブル
# 勤怠区分
#

>>285
問題出した当人が文句を付けるというのもおかしな話なのだけれども、
有給テーブル/勤務テーブルとは何だ？
これは個人の家計簿のようなものなんだろうか。個人の「管理システム」なんて
考えられないな。
# 有給テーブル
# 個人ID
# 取得日
# 日数
#
# 勤怠テーブル
# 個人ID
# 出勤時間
# 退社時間
# 勤怠区分
ではなかろうか。>>285 は問題と解答の一部を組み合わせて新たな問題と
しているので、おかしなことになってしまったのかも知れない。

>>285 問題を作り直しました。まずは第一問。
http://pc11.2ch.net/test/read.cgi/db/1269585561/10
#　ある会社では有給の最大取得可能日数を申請日の前年同日の翌日から申請日までに
# 取得した有給日数の合計としています。しかしこの有給日数は欠勤や遅刻、早退に
# よって減価します。この場合はマイナスの日数として入力されています。
#　一年以上前の取得有給日数は無効になるルールで有給の最大取得可能日数を示す
# プログラムを書きなさい。
#
# 有給テーブル
# 個人ID
# 取得日
# 日数
# 摘要
#

>>287
% Prolog

申請日の前年同日の翌日から申請日までに取得した有給日数の合計(_個人ID,_申請日,_有給の最大取得日数) :-
　　　前年同日(_申請日,_前年同日),
　　　findsum(_日数,( 有給テーブル(_個人ID,_取得日,_日数,_),_取得日 @> _前年同日,_取得日 @=< _申請日),
　　　　　　　_有給の最大取得日数).

http://pc12.2ch.net/test/read.cgi/tech/1269438098/469
# [1]C言語課題
# [2]
# fopen等から作成された既に開いているFILEと同じファイルを指す
# 独立したオープンのFILE*変数を作成するfreopen関数を作れ

http://pc12.2ch.net/test/read.cgi/tech/1269438098/457
# [2] 問題文(含コード&リンク)：
# ・ユークリッドの互除法の拡張アルゴリズム
# 入力　f1,f2　(f1>f2>0でよい)に対して、
# s*f1+t*f2=gcd(f1,f2)となる、s,tを求めよ。
# ただし、gcd(f1,f2)はf1とf2の最大公約数である。また 配列を使わずに再現すること。

>>290
% Prolog (その一)

gcd_equal(A*F1,B*F2,GCD) :-
F1 >= F2,
最大公約数をユークリッドの互除法で求める(F1,F2,GCD),
U is (F1-F2) // GCD,
gcd_equal(1,U,A*F1,B*F2,GCD).

gcd_equal(A*F1,B*F2,GCD) :-
F2 > F1,
最大公約数をユークリッドの互除法で求める(F2,F1,GCD),
U is (F2-F1) // GCD,
gcd_equal(1,U,B*F2,A*F1,GCD).

>>290
% Prolog (その一)

gcd_equal(A*F1,B*F2,GCD) :-
　　　F1 >= F2,
　　　最大公約数をユークリッドの互除法で求める(F1,F2,GCD),
　　　U is (F1-F2) // GCD,
　　　gcd_equal(1,U,A*F1,B*F2,GCD).

gcd_equal(A*F1,B*F2,GCD) :-
　　　F2 > F1,
　　　最大公約数をユークリッドの互除法で求める(F2,F1,GCD),
　　　U is (F2-F1) // GCD,
　　　gcd_equal(1,U,B*F2,A*F1,GCD).

>>290
% Prolog (その二)

gcd_equal(N,U,A*F1,B*F2,GCD) :-
　　　U2 is U * N,
　　　0 is (U2 * F2 + GCD) mod F1,
　　　B is U2 * (-1),
　　　A is (U2 * F2 + GCD) // F1,
　　　GCD is A * F1 + B * F2.
gcd_equal(N,U,A*F1,B*F2,GCD) :-
　　　U2 is U * N,
　　　0 is (U2 * F2 - GCD) mod F1,
　　　A is (U2 * F2 - GCD) // F1 * (-1),
　　　B is U2,
　　　GCD is A * F1 + B * F2.
gcd_equal(N,U,A*F1,B*F2,GCD) :-
　　　U2 is U * N,
　　　0 is (U2 * F1 + GCD) mod F2,
　　　A is U2 * (-1),
　　　B is (U2 * F2 + GCD) // F2,
　　　GCD is A * F1 + B * F2.
gcd_equal(N,U,A*F1,B*F2,GCD) :-
　　　U2 is U * N,
　　　0 is (U2 * F1 - GCD) mod F2,
　　　B is (U2 * F1 - GCD) // F2 * (-1),
　　　A is U2,
　　　GCD is A * F1 + B * F2.
gcd_equal(N,U,A*F1,B*F2,GCD) :-
　　　N2 is N + 1,
　　　gcd_equal(N2,U,A*F1,B*F2,GCD).

>>290
% Prolog (その三)

最大公約数をユークリッドの互除法で求める(M,N,N) :-
　　　0 is M mod N,!.
最大公約数をユークリッドの互除法で求める(M,N,X) :-
　　　Mod is M mod N,
　　　最大公約数をユークリッドの互除法で求める(N,Mod,X).

>>291->>294
% Prolog 一部訂正しました。
http://nojiriko.asia/prolog/c135_457.html

http://pc11.2ch.net/test/read.cgi/db/1252492296/877
# T_USER　T_HOGE　T_MAG　　　　　　　　　T_USER
# ID|NUM　 ID　　　　 　MAG　 　 　 　 　　 　 ID|NUM
# --|----　--　　　　　　--　　　 　　 　 　　　 --|----
# A | 100　　A　　　　　 100　　.→→→　　　　A | 300
# B | 100　　A　　　　　　　　　update結果　　B | 200
# C | 100　　B　　 　 　　　　　　　　　　　　　　C | 100
#
# 「T_HOGE.IDがT_USER.IDと一致する数×T_MAG.MAG」の結果を
# T_USER.NUMに対し加算するUPDATE文を書きたいのですが
# どうすればよいでしょうか。IDはVARCHAR型です。

>>296
% Prolog

「T_HOGE.IDがT_USER.IDと一致する数×T_MAG.MAG」の結果をT_USER.NUMに対し加算するUPDATE文 :-
　　　「T_HOGE.IDがT_USER.IDと一致する数×T_MAG.MAG」の結果をT_USER.NUMに対し加算するUPDATE文(_),
　　　fail.
「T_HOGE.IDがT_USER.IDと一致する数×T_MAG.MAG」の結果をT_USER.NUMに対し加算するUPDATE文.

「T_HOGE.IDがT_USER.IDと一致する数×T_MAG.MAG」の結果をT_USER.NUMに対し加算するUPDATE文(ID) :-
　　　'T_MAG'(MAG),
　　　retract('T_USER'(ID,NUM)),
　　　count('T_HOGE'(ID),Count),
　　　NUM2 is NUM + MAG * Count,
　　　assertz('T_USER'(ID,NUM2)).

>>297 (>>296) 訂正
% Prolog よく見たら述語名のなかにピリオドが含まれていた。

'「T_HOGE.IDがT_USER.IDと一致する数×T_MAG.MAG」の結果をT_USER.NUMに対し加算するUPDATE文' :-
　　　'「T_HOGE.IDがT_USER.IDと一致する数×T_MAG.MAG」の結果をT_USER.NUMに対し加算するUPDATE文'(_),
　　　fail.
'「T_HOGE.IDがT_USER.IDと一致する数×T_MAG.MAG」の結果をT_USER.NUMに対し加算するUPDATE文'.

'「T_HOGE.IDがT_USER.IDと一致する数×T_MAG.MAG」の結果をT_USER.NUMに対し加算するUPDATE文(ID)' :-
　　　'T_MAG'(MAG),
　　　retract('T_USER'(ID,NUM)),
　　　count('T_HOGE'(ID),Count),
　　　NUM2 is NUM + MAG * Count,
　　　assertz('T_USER'(ID,NUM2)).

>>298 (>>296) さらに訂正
% Prolog

'「T_HOGE.IDがT_USER.IDと一致する数×T_MAG.MAG」の結果をT_USER.NUMに対し加算するUPDATE文' :-
　　　'「T_HOGE.IDがT_USER.IDと一致する数×T_MAG.MAG」の結果をT_USER.NUMに対し加算するUPDATE文'(_),
　　　fail.
'「T_HOGE.IDがT_USER.IDと一致する数×T_MAG.MAG」の結果をT_USER.NUMに対し加算するUPDATE文'.

'「T_HOGE.IDがT_USER.IDと一致する数×T_MAG.MAG」の結果をT_USER.NUMに対し加算するUPDATE文'(ID) :-
　　　'T_MAG'(MAG),
　　　retract('T_USER'(ID,NUM)),
　　　count('T_HOGE'(ID),Count),
　　　NUM2 is NUM + MAG * Count,
　　　assertz('T_USER'(ID,NUM2)).

http://pc12.2ch.net/test/read.cgi/tech/1217773415/821
# COBOL?のコピー句をツリー状のデータ構造に起こしたいと思ってます。
# 簡易的に書くと
# 連番 名前 深さレベル
# 1 aaa 1
# 2 bbb 2
# 3 ccc 2
# 4 ddd 3
# 5 eee 2
# の様な構造から、例えばaaaという名前でアクセスすると自分の直下のbbb,ccc,eeeが取得でき、cccは
# 次の連番に深さ3のdddがあるので、結果的にbbbdddeeeを取得できる。
# bbbを取ろうとした場合は、次の行が同レベルのcccなので純粋にbbbを取得できる。
# というような感じです。

>>300
% Prolog

copy句(_名前,_コピー句) :-
　　　copy句データ構造(_連番,_名前,_深さレベル),
　　　_直下のレベル is _深さレベル + 1,
　　　_次の連番 is _連番 + 1,
　　　copy句データ構造(_次の連番,_名前,_直下の深さレベル),
　　　次の連番が直下レベル(_直下のレベル,_コピー句),!.
copy句(_名前,_名前).

次の連番が直下レベル(_直下のレベル,_コピー句) :-
　　　findall(_コピー句_2,
　　　　　　(　　　copy句データ構造(_,_名前,_直下の深さレベル),
　　　　　　　　　copy句(_名前,_コピー句_2)),
　　　　　　_コピー句ならび),
　　　concat_atom(_コピー句ならび,_コピー句),!.

http://pc12.2ch.net/test/read.cgi/tech/1269438098/541
# と入力した場合は，「4321」と表示され，「1」と入力した場合は，「1000」と
# 表示させ，「3210」と入力した場合は，「123」と表示するものとする．
#
# faXXXXX<1> ./kadai02 ←プログラムの実行
#
# 数値を入力して下
# 3210 ←キーボードより入力
#
# 数値を逆転させた結果は、123で
#
# faXXXXX<2>
#

>>302
% Prolog

キーボードより入力した4桁の数値を逆転させて表示 :-
　　　get_integer(_整数),
　　　'整数を逆転して先頭からの零を排除する。先頭が零でない場合は4桁の頭部零文字列に変換'(_整数,_逆転した4桁の数値文字列),
　　　write_formatted('%t\n',[_逆転した数値文字列]).

'整数を逆転して先頭からの零を排除する。先頭が零でない場合は4桁の頭部零文字列に変換'(_整数,_逆転した4桁の数値文字列),
　　　write_formatted('%t\n',[_逆転した数値文字列]).

'整数を逆転して先頭からの零を排除する。先頭が零でない場合は4桁の頭部零文字列に変換'(_整数,_逆転した4桁の数値文字列) :-
　　　number_chars(_整数,Chars),
　　　末尾の零ならびを排除かつ頭部に零を詰める(4,Chars,_4桁の数値文字列),
　　　reverse(_4桁の数値文字列,_逆転した4桁の数値文字列).

末尾の零ならびを排除かつ頭部に零を詰める(_,_文字ならび,[]) :-
　　　all(_文字ならび,0),!.
末尾の零ならびを排除かつ頭部に零を詰める(0,_文字ならび,_文字ならび) :- !.
末尾の零ならびを排除かつ頭部に零を詰める(_桁,_文字ならび,['0'|_未決定ならび]) :-
　　　_桁 > 0,
　　　_残り桁 is _桁 - 1,
　　　末尾の零ならびを排除かつ頭部に零を詰める(_残り桁,_文字ならび,_未決定ならび).

>>303 (>>302) 訂正
% Prolog 第一節 0 -> '0'

末尾の零ならびを排除かつ頭部に零を詰める(_,_文字ならび,[]) :-
　　　all(_文字ならび,'0'),!.
末尾の零ならびを排除かつ頭部に零を詰める(0,_文字ならび,_文字ならび) :- !.
末尾の零ならびを排除かつ頭部に零を詰める(_桁,_文字ならび,['0'|_未決定ならび]) :-
　　　_桁 > 0,
　　　_残り桁 is _桁 - 1,
　　　末尾の零ならびを排除かつ頭部に零を詰める(_残り桁,_文字ならび,_未決定ならび).

http://pc12.2ch.net/tech/1268979408/209
# 文字列の変換問題。
#
# CHAPTER01=00:00:00.000
# CHAPTER01NAME=第一部 オープニング
# CHAPTER02=00:09:13.400
# CHAPTER02NAME=オラはにんきもの
#
# こういうのを
#
# TRACK 01 AUDIO
# TITLE "第一部 オープニング"
# INDEX 01 00:00:00
# TRACK 02 AUDIO
# TITLE "オラはにんきもの"
# INDEX 01 09:13:40
#
# こうしたいんですが

>>305 訂正
http://pc12.2ch.net/test/read.cgi/tech/1268979408/209
# 文字列の変換問題。
#
# CHAPTER01=00:00:00.000
# CHAPTER01NAME=第一部 オープニング
# CHAPTER02=00:09:13.400
# CHAPTER02NAME=オラはにんきもの
#
# こういうのを
#
# TRACK 01 AUDIO
# TITLE "第一部 オープニング"
# INDEX 01 00:00:00
# TRACK 02 AUDIO
# TITLE "オラはにんきもの"
# INDEX 01 09:13:40
#
# こうしたいんですが

>>306
% Prolog INDEX の 01 の処理がわからない。

変換規則('TRACK',Lines,TRACK,S) :-
　　　member(_文,Lines),
　　　sub_atom(_文,0,7,_,H,'CHAPTER',T,HL,XL,TL),
　　　append(L0,['='|R2],TL),
　　　\+(append(_,['N','A','M','E'],L0)),
　　　concat_atom(L0,TRACK),
　　　concat_atom(['TRACK',' ',TRACK,' ','AUDIO'],S).

変換規則('TITLE',Lines,TRACK,S) :-
　　　member(_文,Lines),
　　　sub_atom(_文,0,7,_,H,'CHAPTER',T,HL,XL,TL),
　　　append(L1,['='|R],TL),
　　　append(L0,['N','A','M','E'|R2],L1),
　　　concat_atom(L0,TRACK),
　　　concat_atom(R,TITLE),
　　　concat_atom(['　','TITLE',' "',TITLE,'"'],S).

変換規則('INDEX',Lines,TRACK,S) :-
　　　member(_文,Lines),
　　　sub_atom(_文,0,7,_,H,'CHAPTER',T,HL,XL,TL),
　　　append(L0,['='|R2],TL),
　　　\+(append(_,['N','A','M','E'],L0)),
　　　concat_atom(L0,TRACK),
　　　concat_atom(R2,TIME),
　　　concat_atom(['　','INDEX',' 01 ',TIME],S).

>>306
% Prolog

変換(_ファイル名) :-
get_lines(_ファイル名,Lines),
変換規則('TRACK',Lines,TRACK,S1),
変換規則('TITLE',Lines,TRACK,S2),
変換規則('INDEX',Lines,TRACK,S3),
write_formatted('%t\n%t\n%t\n',[S1,S2,S3]),
fail.
変換(_).

http://pc12.2ch.net/test/read.cgi/tech/1269438098/543
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# コンソール上でキーボードから次のような標準入力を与えるとする。
# 10+2
# すると、演算結果が出力するようなプログラムを記述せよ。
# 四則演算( +, -, *, / )に対応させること
#
# 言語に備わった解析・計算機能を利用するのではなく、
# 文字列を解析して式を生成する部分もプログラムとして書くこと。
# C言語の以下の関数に相当する関数等は使用して構わない。
# 文字列をコピーする関数( strcpy, strncpy )
# 文字列を連結する関数( strcat, strncat )
# 文字列の比較を行う関数( strcmp, strncmp )
# 文字列の長さを調べる関数( strlen )
# 文字を検索する関数( strchr )
# 文字列を整数値に変換する関数( atoi )

FORTRANの課題です。
下の数値データを入力して平均値、最大値、および最小値を判定するプログラムを作りなさい。
8.88 12.34 35.52 33.5 5.1 6.13 6.18 10.15 11.22 35.16

どなたか教えてくれないでしょうか？

http://pc11.2ch.net/test/read.cgi/db/1252492296/889
# 質問です。DBMSはOracle10gです。
#
# ユニークな数値IDをキーとしたテーブルがあります。
# IDは連続した値にはなりません。
#
# ID | hoge
# ----+---------
# 001 | aaa
# 003 | bbb
# 047 | ccc
# 084 | ddd
# 120 | eee
# 401 | fff
# 645 | ggg
#
# IDは1000万まで取り得ます。
# ここから、1〜1000万までの間で、テーブルに存在しないIDのみを取り出すには
# どのように書いたら良いでしょうか？

>>311
% Prolog

'1〜1000万までの間で、テーブルに存在しないIDのみを取り出す'(ID) :-
　　　for(1,ID,10000000),
　　　\+(テーブル(ID,_)).

>>309
% Prolog

コンソール上でキーボードから標準入力として得られた文字列を解析して式を生成して評価する(_式,_値) :-
　　　コンソール上でキーボードから次のような標準入力を得る(_行),
　　　atom_chars(_行,Chars),
　　　項(Chars,_式),
　　　_値 is _式.

コンソール上でキーボードから次のような標準入力を得る(_行) :- get_line(_行).

項(Chars,_項) :-
　　　append(L0,[_演算子|R],Chars),
　　　append(_,[_演算子|_],['+','-','*','/']),
　　　_項=..[_演算子,_項1,_項2],
　　　項(L0,_項1),
　　　項(R,_項2).
項(Chars,_項) :- concat_atom(Chars,_項).

>>313 (>>309)　訂正
% Prolog

コンソール上でキーボードから標準入力として得られた文字列を解析して式を生成して評価する(_式,_値) :-
　　　コンソール上でキーボードから標準入力を得る(_行),
　　　atom_chars(_行,Chars),
　　　式(Chars,_式),
　　　_値 is _式.

コンソール上でキーボードから標準入力を得る(_行) :- get_line(_行).

式(Chars,_式) :-
　　　append(L0,[_演算子|R],Chars),
　　　append(_,[_演算子|_],['+','-','*','/']),
　　　_項=..[_演算子,_項1,_項2],
　　　式(L0,_項1),
　　　式(R,_項2).
式(Chars,_項) :- concat_atom(Chars,_項).

>>313
これだと、
3 * 4 + 5
が
3 * (4 + 5) と解釈されるのではないか？

http://pc12.2ch.net/test/read.cgi/tech/1269438098/553
# [1]Ｃプログラミング
# [2]
# ０から９までの数字を２回ずつ使用し掛け算の筆算を表示させよ
# 図
# 　　 　□□□
# 　　×□□□
# 　　━━━━
# 　　　□□□
# 　 □□□
# □□□
# 　━━━━━
# □□□□□

http://pc12.2ch.net/test/read.cgi/tech/1269438098/558
# モジュラス10ウェイト3のソースコードを教えてください。
# できれば解説もお願いします。

>>317
% Prolog

モジュラス10ウェイト3(_数値ならび,_チェックデジット) :-
　　　モジュラス10ウェイト3(_数値ならび,_,Sum),
　　　_チェックデジット is 10 - (Sum mod 10),!.

モジュラス10ウェイト3([A],3,B) :-
　　　B is A * 3,!.
モジュラス10ウェイト3([A|R],N,Sum) :-
　　　モジュラス10ウェイト3(R,M,Sum_1),
　　　モジュラス10ウェイト3トグル(M,N),
　　　Sum is Sum_1 + A * N,!.

モジュラス10ウェイト3トグル(3,1) :- !.
モジュラス10ウェイト3トグル(1,3) :- !.

>>316
% Prolog
http://nojiriko.asia/prolog/c135_553.html

http://pc12.2ch.net/test/read.cgi/tech/1269438098/574
# [1] 授業単元： C言語入門
# [2] 問題文(含コード&リンク)：
# ニュートン法を用いてf(x)=e^(-x)-x^2=0の根を求めよ。
# 但し、x(0)=1とし、反復回数を4とする

http://pc12.2ch.net/test/read.cgi/tech/1272685619/326
# 文字列を10文字幅にして、足りない部分は先頭に'0'を付けるにはどうすればいいですか？
# 例えば "deadbeef"を入力すると"00deadbeef"と返還する処理を書きたいです。
# String.format("%010s", "deadbeef");
# とやってもダメでした

>>321
% Prolog

'文字列を10文字幅にして、足りない部分は先頭に''0''を付ける'(_文字列,_先頭に0を付加した文字列) :-
　　　atom_chars(_文字列,Chars),
　　　length(L,10),
　　　append(L0,Chars,L),
　　　all(L0,'0')
　　　atom_chars(_先頭に0を付加した文字列,L).

>>320
% Prolog

'ニュートン法を用いてf(x)=e^(-x)-x^2=0の根を求める'(X) :-
　　　'高次代数方程式の解法(ニュートン法)'(0,4,1.0,X).

f(X,Y) :-
　　Y is exp(-X)-X*X.
df(X,Y) :-
　　Y is -exp(-X)-2*X.

'高次代数方程式の解法(ニュートン法)'(Max,Max,X,X) :- !.
'高次代数方程式の解法(ニュートン法)'(N,Max,X1,X) :-
　　　f(X1,Y),
　　　df(X1,Y2),
　　　X2 is X1 - Y / Y2,
　　　N2 is N + 1,
　　　'高次代数方程式の解法(ニュートン法)'(N2,Max,X2,X).

>>315　確かに。>>314 (>>309) 訂正
% Prolog ただし、()を含まないレベル。

'コンソール上でキーボードから標準入力として得られた文字列を解析して式を生成して評価する'(_式,_値) :-
　　　コンソール上でキーボードから次のような標準入力を得る(_行),
　　　atom_chars(_行,Chars),
　　　式(Chars,_式),
　　　_値 is _式.

コンソール上でキーボードから次のような標準入力を得る(_行) :- get_line(_行).

式(Chars,_項) :-
　　　append(L0,[_演算子|R],Chars),
　　　append(_,[_演算子|_],['+','-']),
　　　_項=..[_演算子,_項1,_項2],
　　　式(L0,_項1),
　　　式(R,_項2),!.
式(Chars,_項) :-
　　　append(L0,[_演算子|R],Chars),
　　　append(_,[_演算子|_],['*','/']),
　　　_項=..[_演算子,_項1,_項2],
　　　式(L0,_項1),
　　　式(R,_項2),!.
式(Chars,_項) :- concat_atom(Chars,_項).

>>310 平均だけ。

　　integer n
　　real x(10),y,z,
　　data x,n/8.88,12.34,35.52,33.5,5.1,6.13,6.18,10.15,11.22,35.16/
　　call(heikin(x,n,y,z)
　　write(*,620) 'heikin = ',z
　　end

　　subroutine heikin(x,n,y,z)
　　integer m,n
　　real x(n),y,z
　　y=0.
　　do 10 m=1,n
　　　　y=y+x(m)
10 continue
　　z=y/n
　　return
　　end

http://pc12.2ch.net/test/read.cgi/tech/1269438098/603
# 意個数の整数を標準入力（キーボード）から入力し、
# 入力された整数の個数
# 平均値（小数点以下 1 桁まで表示）
# 最大値
# 最小値
# を標準出力（ディスプレイ）に表示するプログラムを作成せよ。
# ただし、９９９９が入力されたら入力を終了するものとし、９９９９は入力個数、平均値、最
# 大値、最小値には含めない。
# また、最初に９９９９が入力された場合には、入力個数＝０、平均値＝０．０、最大値＝０、
# 最小値＝０が出力されるようにする。

>>326
% Prolog

'意個数の整数を標準入力（キーボード）から入力し、入力された整数の個数 、平均値（小数点以下 1 桁まで表示） 、最大値、最小値を標準出力（ディスプレイ）に表示する' :-
　　　　findall(X,(repeat,get_integer(N),(N=9999,!,fail;true)),L),
　　　　\+(L=[]),
　　　　length(L,_整数の個数),
　　　　avg(L,_平均値),
　　　　max(L,_最大値),
　　　　min(L,_最小値),
　　　　write_formatted('入力された整数の個数 = %t\n平均値 = %.1f\n最大値 = %t\n最小値 = %t\n',[_整数の個数,_平均値,_最大値,_最小値]),!.
'意個数の整数を標準入力（キーボード）から入力し、入力された整数の個数 、平均値（小数点以下 1 桁まで表示） 、最大値、最小値を標準出力（ディスプレイ）に表示する' :-
　　　　write_formatted('入力された整数の個数 = %t\n平均値 = %.1f\n最大値 = %t\n最小値 = %t\n',[0,0.0,0,0]),!

>>327 (>>326)
% Prolog 訂正 (本体最初のfindall/3の第一引数をNに直した)

'意個数の整数を標準入力（キーボード）から入力し、入力された整数の個数 、平均値（小数点以下 1 桁まで表示） 、最大値、最小値を標準出力（ディスプレイ）に表示する' :-
　　　　findall(N,(repeat,get_integer(N),(N=9999,!,fail;true)),L),
　　　　\+(L=[]),
　　　　length(L,_整数の個数),
　　　　avg(L,_平均値),
　　　　max(L,_最大値),
　　　　min(L,_最小値),
　　　　write_formatted('入力された整数の個数 = %t\n平均値 = %.1f\n最大値 = %t\n最小値 = %t\n',[_整数の個数,_平均値,_最大値,_最小値]),!.
'意個数の整数を標準入力（キーボード）から入力し、入力された整数の個数 、平均値（小数点以下 1 桁まで表示） 、最大値、最小値を標準出力（ディスプレイ）に表示する' :-
　　　　write_formatted('入力された整数の個数 = %t\n平均値 = %.1f\n最大値 = %t\n最小値 = %t\n',[0,0.0,0,0]),!

http://pc12.2ch.net/test/read.cgi/tech/1269438098/605
# キーボードから int 型変数ａに値を入力し、ａの値を 2 進数に変換して画面に表示するプログ
# ラムを作成せよ。
# ただし、ａに負の値が入力された場合には、再入力させるものとする。
# 実行例： () の部分が入力である。
# Input a: (-4)
# Input a: (-3)
# Input a: (10)
# a(decimal)=10
# a(binary) =1010

>>329
% Prolog

'キーボードから int 型変数ａに値を入力し、ａの値を 2 進数に変換して画面に表示する(ただし、ａに負の値が入力された場合には、再入力させるものとする。 ' :-
　　　　repeat,
　　　　get_integer(_a),
_a >= 0,
　　　　二進数(_a,_二進数ならび),
　　　　append(_,[0|R],_二進数ならび),
　　　　二進数表示文字列(_二進数ならび,_二進数表示文字列),
　　　　write_formatted('a(decimal)=%t\na(binary) =%t\n',[_a,_二進数表示文字列]),!.

二進数(_10進数,L) :-
　　　　length(L,32),
　　　　二進数(_10進数,[],X),
　　　　append(L1,X,L),
　　　　all(L1,0).

二進数(J,Y,[J|Y]) :- J < 2.
二進数(J,Y,X) :- J >= 2,J2 is J // 2,M is J mod 2,二進数(J2,[M|Y],X).

二進数表示文字列(L,_二進数表示文字列) :-
　　　　二進数表示文字列_2(L1,L2),
　　　　concat_atom(L2,_二進数表示文字列).

二進数表示文字列_2([],[]) :- !.
二進数表示文字列_2([1|R1],['1'|R2]) :- 二進数表示文字列_2(R1,R2).
二進数表示文字列_2([0|R1],['0'|R2]) :- 二進数表示文字列_2(R1,R2).

http://pc12.2ch.net/test/read.cgi/tech/1269438098/607
# [1] 授業単元： C言語
# [2] 問題文：
# (1)\int_0^π/2 f(x^2cosx)dx
# （0からπ/2までのf=x^2cosxの定積分)
# (2)\int_1^e f(logx)^2dx
# 　(1からeまでの(logx)の二乗の定積分）
# (1),(2) の積分を実施する。
#

http://pc12.2ch.net/test/read.cgi/tech/1269438098/608
# 【質問テンプレ】
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# 　　ランダムなアルファベットから成る、最大長255個の文字列を作成し、
# 　　文字配列char a[256]へ代入、putsで表示せよ。
# 　　作る文字列の長さははじめに入力すること。
#

http://pc12.2ch.net/test/read.cgi/tech/1267796762/48
# 【 課題 】ttp://rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/959.zip
# 【 形態 】1. Javaアプリケーション(main()で開始) or 2. Applet
# 【 補足 】一つの物をつくるのですが、何回かに分けて提出です。pdfファイルを見ていただければわかると思います。
# 問題：
# 一定の幅と高さをもつボードがある。図 1のようにボード上には左上隅を原点とする座標系
# （x座標、y座標）が定義されているとする。この時、つぎの条件を満たすように二辺の長
# さ(幅と高さ)と左上の位置を表す座標をもつ長方形をボード上に配置するプログラムを作
# 成せよ。座標系の単位はピクセルとする。ボードの大きさは最終版では指定したアプレットの
# 大きさに依存して決定する。CUIの場合には固定値でよい。例えば 600×500。
# (1)
# 配置に関する以下の操作を行うことができる。各操作の名前には下線が引かれている。
# a)幅、高さ、左上の位置（ｘ座標、ｙ座標）を与えて長方形を作成する。create
# b)長方形 Rを指定して、Rを現在位置から指定したｘ方向の距離 x 0,ｙ方向の距離 y 0だけ移動する。move
# c)長方形 Rを指定して、指定した幅の倍率 mxで幅を、高さの倍率 myで高さをそれぞれ拡大または縮小する。倍率は有限小数で与えるものとする。幅・高さ・座標の値はMathクラスの roundメソッドを使用して決定する。expand/shrink
# d)長方形 Rを指定して削除する。delete
# e)ボード上の長方形をすべて削除する。deleteAll
# f) 2つの長方形 R1と R2を指定し、R1と R2の重なり部分を抽出し、新たな長方形 R3
# として配置する。intersect

>>332
% Prolog

'ランダムなアルファベットから成る、最大長255個の文字列を作成し表示する。作る文字列の長さははじめに入力すること。' :-
　　　　'作る文字列の長さははじめに入力する'(N),
　　　　'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(N,L),
　　　　表示する(L),!.

'作る文字列の長さははじめに入力すること'(N) :-
　　　　repeat,
　　　　催促付き整数入力('文字列の長さ(255以下)を整数で入力してください : ',N),
　　　　N > 0,
　　　　N =< 255,!.
'作る文字列の長さははじめに入力すること'(N) :-
　　　　write('入力された値は整数でないか範囲(0-255)から外れています\n'),
　　　　 '作る文字列の長さははじめに入力すること'(N).

'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(0,[]) :- !.
'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(N,[A|R]) :-
　　　　M is random mod 65536,
　　　　アルファベット(A,M),
　　　　N1 is N - 1,
　　　　'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(N1,R),!.
'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(N,X) :-
　　　　'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(N,X).

アルファベット(A,N) :- char_code(A,N).

表示する([]) :- !.
表示する([A|R]) :- write(A),表示する(R).

>>334 (>>332)
% Prolog 「こと」が抜けましたw

'ランダムなアルファベットから成る、最大長255個の文字列を作成し表示する。作る文字列の長さははじめに入力すること。' :-
　　　　'作る文字列の長さははじめに入力すること'(N),
　　　　'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(N,L),
　　　　表示する(L),!.

>>334 (>>332)
% Prolog さらに間違い(repeat/0を削り忘れた)を発見。書き直します。

'ランダムなアルファベットから成る、最大長255個の文字列を作成し表示する。作る文字列の長さははじめに入力すること。' :-
　　　　'作る文字列の長さははじめに入力すること'(N),
　　　　'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(N,L),
　　　　表示する(L),!.

'作る文字列の長さははじめに入力すること'(N) :-
　　　　催促付き整数入力('文字列の長さ(255以下)を整数で入力してください : ',N),
　　　　N > 0,
　　　　N =< 255,!.
'作る文字列の長さははじめに入力すること'(N) :-
　　　　write('入力された値は整数でないか範囲(0-255)から外れています\n'),
　　　　 '作る文字列の長さははじめに入力すること'(N).

'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(0,[]) :- !.
'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(N,[A|R]) :-
　　　　M is random mod 65536,
　　　　アルファベット(A,M),
　　　　N1 is N - 1,
　　　　'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(N1,R),!.
'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(N,X) :-
　　　　'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(N,X).

アルファベット(A,N) :- char_code(A,N).

表示する([]) :- !.
表示する([A|R]) :- write(A),表示する(R).

http://pc12.2ch.net/test/read.cgi/tech/1269438098/618
# [1] 授業単元： 画像処理
# [2] 問題文：1.各自が自由に作成した画像のヒストグラ
# ムを調べ、それぞれどのような形になるか画像として表示できるようにせよ。また、ヒストグラムから判断したし
# きい値を用いて、2 値画像を作成せよ。
# 2.先の画像群に対して、平均化フィルタ（移動平均操作、重み付け移動平均操作など）、微分フィルタ（1
# 次微分、2 次微分など）をそれぞれ適用した画像を出力せよ。
# http://ime.nu/www.dotup.org/uploda/www.dotup.org879740.txt

http://pc12.2ch.net/test/read.cgi/tech/1269438098/619
# [1] 授業単元： プログラミング
# [2] 問題文(含コード&リンク)：
# 30個の要素を持つ配列に小数をキーボードから代入し,それらを小さい順にソートし,その結果をモニタに出力するプログラムを作成せよ

>>338
% Prolog

'30個の要素を持つ配列に小数をキーボードから代入し,それらを小さい順にソートし,その結果をモニタに出力する' :-
　　　'30個の要素を持つ配列に小数をキーボードから代入し'(L1),
　　　それらを小さい順にソートし(L1,L2),
　　　その結果をモニタに出力する(L2).

'30個の要素を持つ配列に小数をキーボードから代入し'(L) :-
　　　findall(X,(for(1,N,30),read(X)),L).

それらを小さい順にソートし(L1,L2) :- それらを小さい順にソートし(L1,[],L2).

それらを小さい順にソートし([],L,L) :- !.
それらを小さい順にソートし([V|R],L1,L2) :-
　　　挿入(V,L1,L3),
　　　それらを小さい順にソートし(R,L3,L2).

挿入(V,[],[V]) :- !.
挿入(V,[V1|R1],[V,V1|R1]) :- V =< V1,!.
挿入(V,[V1|R1],[V1|R2]) :-
　　　V > V1,
　　　挿入(V,R1,R2).

その結果をモニタに出力する([]) :- !.
その結果をモニタに出力する([V|R]) :- write_formatted('%f\n',[V]),その結果をモニタに出力する(R).

>>336 (>>332)
% Prolog 'ランダムなアルファベットから成る、最大長255個の文字列を作成し/0
% 引数を減らしてみた。 生成する要素数が255以下のように少数に限定されている場合は、要素がすべて変数のリストを生成しておいてその変数と単一化していくことでも求めるリストを生成できる。

'ランダムなアルファベットから成る、最大長255個の文字列を作成し表示する。作る文字列の長さははじめに入力すること。' :-
　　　　'作る文字列の長さははじめに入力すること'(N),
length(L,N),
　　　　'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(L),
　　　　表示する(L),!.

'作る文字列の長さははじめに入力すること'(N) :-
　　　　催促付き整数入力('文字列の長さ(255以下)を整数で入力してください : ',N),
　　　　N > 0,
　　　　N =< 255,!.
'作る文字列の長さははじめに入力すること'(N) :-
　　　　write('入力された値は整数でないか範囲(0-255)から外れています\n'),
　　　　 '作る文字列の長さははじめに入力すること'(N).

'ランダムなアルファベットから成る、最大長255個の文字列を作成し'([]) :- !.
'ランダムなアルファベットから成る、最大長255個の文字列を作成し'([A|R]) :-
　　　　M is random mod 65536,
　　　　アルファベット(A,M),
　　　　'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(R),!.
'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(L) :-
　　　　'ランダムなアルファベットから成る、最大長255個の文字列を作成し'(L).

アルファベット(A,N) :- char_code(A,N).

表示する([]) :- !.
表示する([A|R]) :- write(A),表示する(R).

>>340 のような使い方の述語の代表として、all/2を挙げよう。

all([A],A).
all([A|R],A) :- all(R,A).

この述語はfoo/1が以下のように定義済みだとして、
foo([6,6,6,6]).

?- foo(L),all(L,6).
L = [6,6,6,6]
yes
?- foo(L),all(L,X).
L = [6,6,6,6],
X = 6
yes のように使われるのだろうが、

?- length(L,4),foo(L,6).
L = [6,6,6,6]
yes
?- のように使うこともできる。>>340の ランダムなアルファベットから成る、最大長255個の文字列を作成し/1 は
この最後の使い方に相当する。

それから>>340の解説で ランダムなアルファベットから成る、最大長255個の文字列を作成し/0 となっていますが /1 の間違い。

>>337
% Prolog 取り敢えず、データ部をRGB値ならびに切り取った後の処理。

像のヒストグラム(RGB値ならび) :-
　　　　画像のヒストグラム(RGB値ならび,_ヒストグラムならび),
　　　　ヒストグラム(_ヒストグラムならび).

画像のヒストグラム(RGB値ならび,_ヒストグラムならび) :-
　　　　findall(N,(for(0,N,31),count((member(_値,RGB値ならび),_値 >= N * 8,_値 < (N + 1) * 8),Count)),L),
　　　　max(L,Max),
　　　　findall(L1,(member(J,L),length(L1,Max),Length(L2,J),append(L0,L2,L1),all(L0,' '),all(L1,'*')),L4),
　　　　転置(L4,_ヒストグラムならび).

ヒストグラム([]) :- !.
ヒストグラム([L|R]) :-
　　　　concat_atom(L,S),
　　　　write_formatted('%t\n',[S]),
　　　　ヒストグラム(R).

http://pc12.2ch.net/test/read.cgi/tech/1269438098/627
# [1] 授業単元： C言語
# [2] 問題文： １〜９までの値の整数 n を入力として受け取り、実行例のように、その n を高さとした二等辺三角形を出力するプログラムを作成しなさい。
# なお、10以上が入力されたら以下の実行例のようなエラーメッセージを発するようにしなさい。
#
# 実行例
#
# 1から9までの整数を入力：6
# 1
# 22
# 333
# 4444
# 55555
# 666666
# 55555
# 4444
# 333
# 22
# 1
#
# 1から9までの整数を入力：11
# 入力する数は1から9までです
#

>>343
% Prolog

'１〜９までの値の整数 n を入力として受け取り、実行例のように、その n を高さとした二等辺三角形を出力するプログラムを作成しなさい。' :-
　　　　　'１〜９までの値の整数 n を入力として受け取り、'(N),
　　　　　'その n を高さとした二等辺三角形を出力する'(N).

'１〜９までの値の整数 n を入力として受け取り、'(N) :-
　　　　repeat,
　　　　催促付き整数入力('1から9までの整数を入力：',N),
　　　　'１〜９までの値の整数'(N),!.

'１〜９までの値の整数(N) :- N >= 1,N =< 9,!.
'１〜９までの値の整数(N) :- 'なお、10以上が入力されたら以下の実行例のようなエラーメッセージを発するようにしなさい。'(N),fail.

'なお、10以上が入力されたら以下の実行例のようなエラーメッセージを発するようにしなさい。'(N) :- write('入力する数は1から9までです \n').

'その n を高さとした二等辺三角形を出力する'(N) :- 'その n を高さとした二等辺三角形を出力する'(1,N),

'その n を高さとした二等辺三角形を出力する'(N,N) :- !.
　　　　表示する数値列(N,N,S),!.
　　　　write_formatted('%t\n',[S]),!.
'その n を高さとした二等辺三角形を出力する'(M,N) :-
　　　　\+(M = N),
　　　　表示する数値列(M,N,S),
　　　　write_formatted('%t\n',[S]),
　　　　M2 is M + 1,
　　　　'その n を高さとした二等辺三角形を出力する'(M2,N),
　　　　write_formatted('%t\n',[S]),!.

>>344 (>>343)
% Prolog 間違い。訂正。

'１〜９までの値の整数 n を入力として受け取り、実行例のように、その n を高さとした二等辺三角形を出力するプログラムを作成しなさい。' :-
　　　　　'１〜９までの値の整数 n を入力として受け取り、'(N),
　　　　　'その n を高さとした二等辺三角形を出力する'(N).

'１〜９までの値の整数 n を入力として受け取り、'(N) :-
　　　　repeat,
　　　　催促付き整数入力('1から9までの整数を入力：',N),
　　　　'１〜９までの値の整数'(N),!.

'１〜９までの値の整数(N) :- N >= 1,N =< 9,!.
'１〜９までの値の整数(N) :- 'なお、10以上が入力されたら以下の実行例のようなエラーメッセージを発するようにしなさい。'(N),fail.

'なお、10以上が入力されたら以下の実行例のようなエラーメッセージを発するようにしなさい。'(N) :- write('入力する数は1から9までです \n').

'その n を高さとした二等辺三角形を出力する'(N) :- 'その n を高さとした二等辺三角形を出力する'(1,N),

'その n を高さとした二等辺三角形を出力する'(N,N) :-
　　　　表示する数値列(N,S),
　　　　write_formatted('%t\n',[S]),!.
'その n を高さとした二等辺三角形を出力する'(M,N) :-
　　　　表示する数値列(M,S),
　　　　write_formatted('%t\n',[S]),
　　　　M2 is M + 1,
　　　　'その n を高さとした二等辺三角形を出力する'(M2,N),
　　　　write_formatted('%t\n',[S]),!.

表示する数値列(M,S) :- length(L,M),all(L,M),concat_atom(L,S),!.

http://pc12.2ch.net/test/read.cgi/tech/1269438098/630
# [1] プログラミング演習課題
# [2] 画像ファイル情報を表す構造体hBitmapは次の定義を持つ。
# typedef struct{
# char signature[7];
# int width,height;//縦横のピクセル数
# int pixels; //ピクセル情報 (0,0)(0,1)..(0,width-1),(1,0),(1,1),...,(1,width-1),...という風に並ぶ。エンデ
ィアンはビッグエンディアンとする
# }hBitmap;
# sigunatureには文字列"hBitmap"が終端の¥0を含めて格納されるものとする
# ピクセルは３２ビットの色情報で上位8ビットは０ 0~7ビットは赤
# 8~15ビットは青 16~23ビットは緑を表す。（各成分は２５６段階の色情報を
# 持つ）
# 2次元座標平面[-0.5,0.5]X[0.5,0.5]を大きさ600x600のビットマップに対応させ
# そこで次の不等式が作る領域を指定された色で塗りつぶした画像ファイルを
# 上記構造体をファイルにバイナリ保存する形で作成するプログラムを作れ
# (1)(x-0.25)^2+y^2<=0.5^2 (x+0.25)^2+y^2<=0.5^2
# (2)x^2+(y-0.125)^2=0.01^2
# (3)x^2+y^2=0.025^2
# (4)x^2+(y+0.3)^2=0.03^2
# (5)それ以外
# (1)の塗りつぶし色 R=255 G=0 B=200
# (2)の塗りつぶし色 R=255 G=0 B=180
# (3)の塗りつぶし色 R=240 G=0 B=220
# (4)の塗りつぶし色 R=180 G=180 B=180
# (5)の塗りつぶし色 R=G=B=255

http://pc12.2ch.net/test/read.cgi/tech/1269438098/633
# [1] プログラミング演習
# [2]
# 5匹の羊と5匹の狼を1匹ずつひとつの檻に入れる。
# 羊の数を狼の数が超えると羊が食べられるのでNG。
# 上の条件で羊と狼を全頭檻に入れられる順番の組み合わせを全通り出力するプログラム。
# 他に方法はないのでしょうか？

<A HREF="http://nojiriko.asia/prolog/index.html">このディレクトリの索引</A>
http://pc12.2ch.net/test/read.cgi/tech/1269438098/641
# このスレの住民の方には楽勝かもしれませんがお願いします
#
# 場合の数を計算するときに、いわゆる「nCr」というものを使うことがある。これは、順番を特に決めない場合、n個のものからr個のものを取り出す場合をいい、
# 7C5 = 7! / (7-5)!5!
# である。nCrであれば
# nCr = n! / (n-r)!r! (但し、0≦r≦n)
#
# この数を計算したい。
# 1. nとrを入力させる。
# 2. n!を計算させる
# 3. (n-r)!を計算させる
# 4. r!を計算させる
# 5. (2)/(3)/(4)を計算する
#
# しかしn!と(n-r)!がかなりの部分まで重複することを利用すれば、かなり計算の手間を省くことができる
# 1から5の手順まで守ったプログラムと手間を省いたプログラムをそれぞれ作成しなさい
#

http://pc12.2ch.net/test/read.cgi/tech/1269438098/642
# [1] 授業単元：ロボット制御
#
# [2] 問題文：
# 3次元空間座標(x,y,z)の数値を与えると、
# ロボットの関節の角度(A,B,C)を計算するプログラムを作成する。
#

>>348
% Prolog

nCr(N,R,X) :-
　　　階乗(N,U1),
　　　V is N - R,
　　　階乗(V,U2),
　　　階乗(R,U3),
　　　X is U1 // U2 // U3.

%%%%%%%%%%%%%%%%%%%%%%%%%%%
nCr(N,R,X) :-
　　　U is N - R + 1,
　　　階乗(U,N,K1),
　　　階乗(R,K2),
　　　X is K1 // K2 .

%%%%%%%%%%%%%%%%%%%%%%%%%%%%
階乗(M,N,1) :- M > N,!.
階乗(M,N,X) :-
　　　M2 is M + 1,
　　　階乗(M2,N,Y),
　　　X is M * Y.

階乗(0,1) :- !.
階乗(1,1) :- !.
階乗(N,X) :-
　　　N2 is N - 1,
　　　階乗(N2,Y),
　　　X is N * Y,
　　　asserta((階乗(N,X) :- (!))).

http://pc11.2ch.net/test/read.cgi/db/1252492296/908
# TEAMが1 で、
# NAMEにaを含むデータを上位にして、
# SCOREの多い順に取り出したいのですが、
# どう書けばいいですか？お願いします。
#
# これを
# ID|TEAM|NAME|SCORE
# --+----+----+-----
# 1 | 1　　| aaa　| 200
# 2 | 2　　| abb　| 50
# 3 | 1　　| ccc　| 300
# 4 | 1　　| daa　| 400
# 5 | 1　　| eae　| 100
# 6 | 1　　| fff　　| 800
#
# ↓こうしたい
# ID|TEAM|NAME|SCORE
# --+----+----+-----
# 4 | 1　　| daa　| 400
# 1 | 1　　| aaa　| 200
# 5 | 1　　| eae　| 100
# 6 | 1　　| fff　　| 800
# 3 | 1　　| ccc　| 300

>>351
% Prolog

'TEAMが1でSCOREの多い順に取り出したい'(_SCOREの多い順ならび) :-
　　　'TEAMが1でNAMEにaを含むデータを上位にして'(_aを含む鍵付きデータ,_aを含まない鍵付きデータ),
　　　'SCOREの多い順に取り出したい'(_aを含む鍵付きデータ,_aを含まない鍵付きデータ,_SCOREの多い順ならび),!.

'SCOREの多い順に取り出したい'(_aを含む鍵付きデータ,_aを含まない鍵付きデータ,_SCOREの多い順ならび) :-
　　　降順整列(_aを含む鍵付きデータ,_降順に整列したaを含む鍵付きデータ),
　　　降順整列(_aを含まない鍵付きデータ,_降順に整列したaを含まない鍵付きデータ),
　　　鍵を除去しながら結合する(_降順に整列したaを含む鍵付きデータ,_降順に整列したaを含まない鍵付きデータ,_SCOREの多い順ならび).

'TEAMが1でNAMEにaを含むデータを上位にして'(_aを含む鍵付きデータ,_aを含まない鍵付きデータ) :-
　　　findall([SCORE,ID,1,NAME,SCORE],(テーブル(ID,1,NAME,SCORE),'NAMEにaを含む(NAME)),_aを含む鍵付きデータ),
　　　findall([SCORE,ID,1,NAME,SCORE],(テーブル(ID,1,NAME,SCORE),\+('NAMEにaを含む'(NAME))),_aを含まない鍵付きデータ),!.

'NAMEにaを含む'(NAME) :- sub_atom(NAME,_,1,_,a),!.

鍵を除去しながら結合する([],[],[]) :- !.
鍵を除去しながら結合する([],Y,X) :- 鍵を除去しながら結合する(Y,[],X),!.
鍵を除去しながら結合する([[_|L]|R1],Y,[L|Z]) :- 鍵を除去しながら結合する(R1,Y,Z).

http://pc12.2ch.net/test/read.cgi/tech/1261057499/694
# キーボードからＣのソース・プログラム名(fname.c)を入力し、そのプログラムの行番号付
# テキスト・ファイルを、別名のファイル(fname.txt)で表示するプログラムを作成せよ。ただし、
# ファイル名のfnameの部分は共通にせよ。
# 上を教えてください。
# お願いします。
#

>>353
% Prolog

'キーボードからＣのソース・プログラム名(fname.c)を入力し、そのプログラムの行番号付テキスト・ファイルを、別名のファイル(fname.txt)で表示する。ただし、ファイル名のframeの部分は共通にする' :-
　　　　write('ファイル名を入力してください : '),
　　　　get_line(_ファイル名),
　　　　concat_atom([_ファイル名,'.c'],File1),
　　　　get_lines(File1,L1),
　　　　'そのプログラムの行番号付テキスト・ファイルを'(1,L1,L2),
　　　　'別名のファイル(fname.txt)で表示する'(File2,L2),!.

'そのプログラムの行番号付テキスト・ファイルを'(_,[],[]) :- !.
'そのプログラムの行番号付テキスト・ファイルを'(N,[Line|R1],[S|R2]) :-
　　　　write_formatted_atom('%06d %t',[N,Line],S),
　　　　N2 is N + 1,
　　　　'そのプログラムの行番号付テキスト・ファイルを'(N2,R1,R2).

'別名のファイル(fname.txt)で表示する'(_ファイル名,L) :-
　　　　concat_atom([_ファイル名,'.txt'],File),
　　　　put_lines(File,L).

>>349 後半の情報が切れてしまった。再掲
http://pc12.2ch.net/test/read.cgi/tech/1269438098/642
# [1] 授業単元：ロボット制御
# [2] 問題文：
# 3次元空間座標(x,y,z)の数値を与えると、
# ロボットの関節の角度(A,B,C)を計算するプログラムを作成する。
#
# L1,L2はロボットの腕の長さでL1:69.8/L2:77.35が与えられています。
#
# また、それぞれの変換公式は
# C= ±(プラスマイナス) arccos(((x^2+y^2+x^2)-(L1^2+L2^2))/(2*L1*L2))
# B= arcsin(y/(L1+L2*cos(C)))
# A= arctan(x/(-z)) ±(マイナスプラス) arccos(((L1+L2*cos(C))*cos(B))/root(x^2+y^2))
# で、ABCは動作幅が制限されています。
# Cの動作幅は-30<= C <=127 [deg]
# Bの動作幅は-15<= B <=93 [deg]
# Aの動作幅は-120<= A <=135 [deg]
#
# 最初にCを出すと値がプラスマイナスの2種類が出るため、
# 条件に当てはまる最適値を選んでradに変換した上でBに代入して計算、
# Bの値をAに代入した上で、出てきた二つの値から最適値を選んで
# 結果を出力するのだと思うのですが、どのような条件式を書けばよいのでしょうか？
#
# 最適値の選び出し方の動作アルゴリズムだけでも結構ですのでお願いします。

>>347
% Prolog

'5匹の羊と5匹の狼を1匹ずつひとつの檻に入れる。羊の数を狼の数が超えると羊が食べられるのでNG。上の条件で羊と狼
を全頭檻に入れられる順番の組み合わせを全通り出力する'(X) :-
　　　_狼ならび=[_,_,_,_,_],
　　　_羊ならび=[_,_,_,_,_],
　　　檻の中の構成(_狼ならび,_羊ならび,[],[],X).

檻の中の構成(L,[],_狼の数,_羊の数,L) :- all(L,狼).
檻の中の構成([_|R1],L,_狼の数,_羊の数,[狼|R]) :-
　　　羊の方が多い(_狼の数,_羊の数),
　　　檻の中の構成(R1,L,[_|_狼の数],_羊の数,R).
檻の中の構成(L,[_|R2],_狼の数,_羊の数,[羊|R]) :-
　　　羊と狼が同数か羊の方が多い(_狼の数,_羊の数),
　　　檻の中の構成(L,R2,_狼の数,[_|_羊の数],R).

羊の方が多い(_狼ならび,_羊ならび) :- append(_狼ならび,R,_羊ならび),\+(R=[]),!.

羊と狼が同数か羊の方が多い(_狼ならび,_羊ならび) :- append(_狼ならび,_,_羊ならび),!.

>>356 (>>347)
% Prolog 変なところで改行されてしまったので書き直し。

'5匹の羊と5匹の狼を1匹ずつひとつの檻に入れる。羊の数を狼の数が超えると羊が食べられるのでNG。上の条件で羊と狼を全頭檻に入れられる順番の組み合わせを全通り出力する'(X) :-
　　　_狼ならび=[_,_,_,_,_],
　　　_羊ならび=[_,_,_,_,_],
　　　檻の中の構成(_狼ならび,_羊ならび,[],[],X).

檻の中の構成(L,[],_狼の数,_羊の数,L) :- all(L,狼).
檻の中の構成([_|R1],L,_狼の数,_羊の数,[狼|R]) :-
　　　羊の方が多い(_狼の数,_羊の数),
　　　檻の中の構成(R1,L,[_|_狼の数],_羊の数,R).
檻の中の構成(L,[_|R2],_狼の数,_羊の数,[羊|R]) :-
　　　羊と狼が同数か羊の方が多い(_狼の数,_羊の数),
　　　檻の中の構成(L,R2,_狼の数,[_|_羊の数],R).

羊の方が多い(_狼ならび,_羊ならび) :- append(_狼ならび,R,_羊ならび),\+(R=[]),!.

羊と狼が同数か羊の方が多い(_狼ならび,_羊ならび) :- append(_狼ならび,_,_羊ならび),!.

http://pc12.2ch.net/test/read.cgi/tech/1269438098/680
# [1] 制御工学
# [2] 問題文：dy/dx＝(1-y)/15の微分方程式をルンゲクッタ法を用いてｘ＝0〜100までの値を求めよ。
# [5] その他の制限：初期値は0で、刻み幅は任意です。
# コード、計算結果をプリントして提出、また計算結果をグラフにして提出しなければならないので、ファイル形式で保存できるようにして欲しいです。
#
# プログラミングの授業ではないのに急に出されて困っています。
# よろしくお願い致します。

http://pc12.2ch.net/test/read.cgi/tech/1269438098/681
# [1] 授業単元： プログラム
# [2] 問題文(含コード&リンク)： 以下のようにプログラムを作成してください。バブルソートという名前です
# 0に34 1に3 2に11 3に28 4に17が入っています。
# (1)0番と1番の値を比べ、0番が大きいなら、入れ替える→(2)順に1番と2番、2番と3番…と比べて、(1)と同様の処理 を行う→(3)端まで行ったら0番に戻って、n-1番までで(1)と(2)を繰り返す(ここの例ではn=4)
#

http://pc12.2ch.net/test/read.cgi/tech/1269438098/684
# [1] 授業単元： プログラム演習
# [2] 問題文(含コード&リンク)：
# 次のプログラム（最小二乗法による直線近似）を配列を用いて書き換えなさい。
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10600.txt
#

http://pc12.2ch.net/test/read.cgi/tech/1269438098/685
# 1] 授業単元： プログラム演習
# [2] 問題文(含コード&リンク)：
# 下記のような成績があった時、各科目の平均、各学生の合計点の偏差値、科目毎の相関係数を求めるプログラムを配列を用いて実装しなさい。
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10601.txt
#
# 名前　　 点数
# 　　 　英語　数学　物理
# 学生1 80 50 60
# 学生2 60 70 80
# 学生3 50 80 90
# 学生4 60 75 80
# 学生5 50 90 75
#

http://pc12.2ch.net/test/read.cgi/tech/1269438098/686
# [1] 授業単元： プログラム演習
# [2] 問題文(含コード&リンク)：
# 配列を用いて連立一次方程式を解くプログラムを実装し、以下の連立一次方程式の解を求めなさい。
# a + 2b -5c + 4d = 2
# 2a - 4b + 2c + 3d = 18
# 4a + 15b - 32c + 3d = -116
# 5a + 15b - 32c + d = -129
#

http://pc12.2ch.net/test/read.cgi/tech/1272685619/621
#
# プログラミングをやる理由は？
# １．職業プログラマー（仕事）
# ２．学生（授業・研究等）
# ３．趣味（サークル活動、同人活動等で二人以上で活動）
# ４．趣味（個人的活動）
#

>>363
% Prolog 直ぐに思いつく定義は下の二通り。括弧の処理(注釈の処理)はどうすればよいか？

プログラミングをやる理由は？(１,'職業プログラマー（仕事）').
プログラミングをやる理由は？(２,'学生（授業・研究等）').
プログラミングをやる理由は？(３,'趣味（サークル活動、同人活動等で二人以上で活動）').
プログラミングをやる理由は？(４,'趣味（個人的活動）').

プログラミングをやる理由(1,'職業プログラマー（仕事）').
プログラミングをやる理由(2,'学生（授業・研究等）').
プログラミングをやる理由(3,'趣味（サークル活動、同人活動等で二人以上で活動）').
プログラミングをやる理由(4,'趣味（個人的活動）').

>>361
% Prolog 相関係数(その一)

値位置(名前,[_名前,_,_,_],_名前).
値位置(英語,[_,_英語,_,_],_英語).
値位置(数学,[_,_,_数学,_],_数学).
値位置(物理,[_,_,_,_物理],_物理).

成績(学生1,80,50,60).
成績(学生2,60,70,80).
成績(学生3,50,80,90).
成績(学生4,60,75,80).
成績(学生5,50,90,75).

科目間の相関係数(_科目1,_科目2,_相関係数) :-
　　　　findall(_点数,(成績(A,B,C,D),値位置(_科目1,[A,B,C,D],_点数)),_科目1の点数ならび),
　　　　findall(_点数,(成績(A,B,C,D),値位置(_科目2,[A,B,C,D],_点数)),_科目2の点数ならび),
　　　　相関係数(_科目1のならび,_科目2の点数ならび,_相関係数).

>>361
% Prolog 相関係数(その二)

相関係数(_科目1の点数ならび,_科目2の点数ならび,_相関係数) :-
　　　　length(_科目1の点数ならび,Len),
　　　　相加平均(_科目1の点数ならび,_科目1の相加平均),
　　　　相加平均(_科目2の点数ならび,_科目2の相加平均),
　　　　共分散(_科目1の点数ならび,_科目2の点数ならび,_共分散),
　　　　標準偏差(_科目1の点数ならび,Len,_科目1の相加平均,0.0,_科目1の標準偏差),
　　　　標準偏差(_科目2の点数ならび,Len,_科目2の相加平均,0.0,_科目2の標準偏差),
　　　　_相関係数 is _共分散 / (_科目1の標準偏差 * _科目2の標準偏差).

共分散(_標本ならび1,_標本ならび2,_共分散) :-
　　　　length(_標本ならび1,Len),
　　　　length(_標本ならび2,Len),
　　　　相加平均(_標本ならび1,_標本ならび1の相加平均),
　　　　相加平均(_標本ならび2,_標本ならび2の相加平均),
　　　　共分散(_標本ならび1,_標本ならび2,Len,_標本ならび1の相加平均,_標本ならび2の相加平均,0.0,_共分散).

共分散([],[],Len,_,_,S,_共分散) :- _共分散 is S / Len,!.
共分散([A|R1],[B|R2],Len,_相加平均1,_相加平均2,S1,_共分散) :-
　　　　U is (A-_相加平均1) * (B-_相加平均2),
　　　　S2 is S1 + U,
　　　　共分散(R1,R2,Len,_相加平均1,_相加平均2,S2,S),!.

>>366
% Prolog 相加平均を共分散/3の中で二重に計算している。この部分も共分散/7の方を使って。

相関係数(_科目1の点数ならび,_科目2の点数ならび,_相関係数) :-
　　　　length(_科目1の点数ならび,Len),
　　　　相加平均(_科目1の点数ならび,_科目1の相加平均),
　　　　相加平均(_科目2の点数ならび,_科目2の相加平均),
　　　　共分散(_科目1の点数ならび,_科目2の点数ならび,Len,_科目1の相加平均,_科目2の相加平均,0.0,_共分散),
　　　　標準偏差(_科目1の点数ならび,Len,_科目1の相加平均,0.0,_科目1の標準偏差),
　　　　標準偏差(_科目2の点数ならび,Len,_科目2の相加平均,0.0,_科目2の標準偏差),
　　　　_相関係数 is _共分散 / (_科目1の標準偏差 * _科目2の標準偏差).

>>361
% Prolog 偏差値

各学生の合計点の偏差値(_各学生の合計点の偏差値) :-
　　　　findall(_名前,成績(_名前,_,_,_),_名前ならび),
　　　　標本を集める(_母集合),
　　　　偏差値(_母集合,_偏差値ならび),
　　　　名前と符合させる(_名前ならび,_偏差値ならび,_各学生の偏差値).

偏差値(_母集合,_偏差値ならび) :-
　　　　相加平均(_母集合,_算術合計),
　　　　標準偏差(_母集合,_標準偏差),
　　　　findall(_偏差値,(member(_値,_母集合),偏差値(_値,_相加平均,_標準偏差,_偏差値)),_偏差値ならび).

偏差値(_標本値,_相加平均,_標準偏差,_偏差値) :-
　　　　_偏差値 is 10 * (_標本値 - _相加平均) / _標準偏差 + 50.0.

各学生の合計点の総和(_合計点の総和) :-
　　　　findsum(_各学生の合計点,各学生の合計点(_,_各学生の合計点),_合計点の総和).

各学生の合計点(_名前,_各学生の合計点) :-
　　　　成績(_名前,_英語,_数学,_物理),
　　　　_各学生の合計点 is _英語 + _数学 + _物理.

標本を集める(_母集合) :-
　　　　findall(_各学生の合計点,各学生の合計点(_,_各学生の合計点),_母集合).

名前と符合させる([],[],[]) :- !.
名前と符合させる([A|R1],[B|R2],[[A,B]|R3]) :- 名前と符合させる(R1,R2,R3)

>>368
% Prolog 訂正 「合計点の」の抜けていました。それから名前と符合させる/3の第二節の最後のピリオドが落ちています。

各学生の合計点の偏差値(_各学生の合計点の偏差値) :-
　　　　findall(_名前,成績(_名前,_,_,_),_名前ならび),
　　　　標本を集める(_母集合),
　　　　偏差値(_母集合,_偏差値ならび),
　　　　名前と符合させる(_名前ならび,_偏差値ならび,_各学生の合計点の偏差値).

<A HREF="http://nojiriko.asia/prolog/index.html">このディレクトリの索引</A>
http://pc12.2ch.net/test/read.cgi/tech/1269438098/740
# [1] 授業単元：繰り返し＋条件分岐＋一次元配列　処理
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10603.txt
#
# int uriage[12]={20,30,10,80,90,40,60,70,50,30,40,90}
#
# で定義された配列データを逆順に出力するプログラムを作成せよ。
#
# 例：90 40 30 50 70 ... 20

http://pc12.2ch.net/test/read.cgi/tech/1269438098/744
# [1]プログラミング演習
# [2]asciiコード表を出力しなさい。(main関数、プロトタイプ宣言、関数定義を全て書くこと。)

http://pc11.2ch.net/test/read.cgi/db/1252492296/912
# 文章の中に特定キーワードがあるかどうかを探し、一致した場合そのキーワードを取得する
# SQLを作成したいのですが、(たとえるなら逆LIKEのようなイメージ)上手くいきません。
#
# テーブル名：T_DIC(InnoDB,UTF-8)
# KEYWORD
# -------
# 'ぬるぽ'
# 'めるぽ'
# 'nullpo'
#
# これに対し、'お前の母ちゃんぬるぽ！nullpo！'のキーワードに対する応答を下記のようにしたいのです。
#
# KEYWORD
# -------
# 'ぬるぽ'
# 'nullpo'
#

>>370
% Prolog 高名な reverse述語定義 をふたつ。

reverse(L1,L2) :- reverse(L1,[],L2).

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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

reverse([],[]).
reverse([A|R1],L) :- reverse(R1,L1),append(L1,[A],L).

>>372
% Prolog

文章の中に特定キーワードがあるかどうかを探し、一致した場合そのキーワードを取得する(_文章,_文章の中に含まれたキーワードならび) :-
　　　　findall(KEYWORD,('T_DIC'(KEYWORD),文章の中にキーワードを含む(_文章,KEYWORD)),_文章の中に含まれたキーワードならび).

文章の中にキーワードを含む(_文章,KEYWORD) :- sub_atom(_文章,_,_,_,KEYWORD),!.

http://pc12.2ch.net/test/read.cgi/tech/1269438098/752
#
# [2] 問題文(含コード&リンク)： 掃き出し法で下の連立方程式を解くプログラムを作成してください
# 3x+y+z=10
# x+5y+2z=2
# x+2y+5z=30

>>371
% Prolog
http://nojiriko.asia/prolog/c135_744.html

>>376 >>371
このようなasciiコード表述語なくして、
asciiコード【表】を生成することは不可能。
空欄だらけの表になってしまう。

http://pc12.2ch.net/test/read.cgi/tech/1269438098/765
# [1] 授業単元： プログラミング実習２
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10606.txt
# レポート課題
#
# (ＩＥＥＥ規格754による実数表現)　長さが32の0と1の列
#
# 　　　　　　　　　　　　　　se7e6・・・e1e0d1d2d3・・・d23
#
# を入力して、このビット列の表す実数値(実数表現の仕方はＩＥＥＥ規格754に従うも
# のと仮定する)
#
# 　　　　　　　　　(-1)^s×(1+M)×2^E if -127<E<128
# (-1)^s×M×2^E+1 if E=-127
# Inf(無限大） if E=128,M=0
# NaN(非数,Not a Mumber) if E=128,M≠0
#
# を出力するプログラムを作成せよ。

http://pc12.2ch.net/test/read.cgi/tech/1269438098/766
# [1]プログラム�
# [2]要素数nの実数型配列cの要素全てにaを入力する関数void value(double v,int n,double x);を定義せよ。
#

http://pc12.2ch.net/test/read.cgi/tech/1269438098/771
# [1] C言語演習
# [2] n科目の点数を入力してGPAを出す(100~90が4,80~89は3,70~79は2,60~69は
# 1,60以下は0)

http://pc12.2ch.net/test/read.cgi/tech/1269438098/774
# [1] 授業単元： 映像メディア処理
# [2] 問題文(含コード&リンク)：
# 入力した画像を3〜16値階調にする多値ディザ法のプログラムを作りなさい。
#
# [5] その他の制限：
# グレースケールの画像をロードし、image_in[256][256]という配列に保存してあります。
# これに多値ディザ法を適用し、image_out[256][256]に出力させたいです。
# ロード部分は問題無いので、多値ディザ法を行う部分をお願いします。

>>380
% Prolog (その一) 題意から少しズレるが普通はこういう風に作ると思う。

科目(1,'prolog初級').
科目(2,'自然言語の論理学').
科目(3,'関数型言語').
科目(4,'C#講習').

科目のグレード・ポイント(1,4.0).
科目のグレード・ポイント(2,4.0).
科目のグレード・ポイント(3,2.0).
科目のグレード・ポイント(4,1.0).

点数評価値(_点数,4) :- _点数 >= 90,_点数 =< 100,!.
点数評価値(_点数,3) :- _点数 >= 80,_点数 < 90,!.
点数評価値(_点数,2) :- _点数 >= 70,_点数 < 80,!.
点数評価値(_点数,1) :- _点数 >= 60,_点数 < 70,!.
点数評価値(_点数,0) :- _点数 < 60,!.

>>380
% Prolog (その二)

'点数を入力してGPAを出す(100~90が4,80~89は3,70~79は2,60~69は1,60以下は0)'(GPA) :-
　　　　write('科目番号をリストで入力しなさい : ),
　　　　read(_科目番号ならび),
　　　　点数を入力する(_科目番号ならび,_点数ならび),
　　　　'GPAの計算'(_点数ならび,GPA).

点数を入力する([],[]) :- !.
点数を入力する([_科目番号|R1],[[_科目番号,_点数]|R2]) :-
　　　　科目(_科目番号,_科目),
　　　　write_formatted('%tの点数を入力してください : '),
　　　　get_integer(_点数),
　　　　点数を入力する(R1,R2).

'GPAの計算'(_点数ならび,GPA) :-
　　　　length(_点数ならび,N),
　　　　'GPAの計算'(_点数ならび,0.0,X),
　　　　GPA is X / N.

'GPAの計算'([],X,X) :- !.
'GPAの計算'([[_科目番号,_点数]|R1],S1,S2) :-
　　　　点数評価値(_点数,_点数評価値),
　　　　科目のグレード・ポイント(_科目番号,_科目のGP値),
　　　　S2 is S1 + _点数評価値 * _科目のGP値,
　　　　'GPAの計算'([[_科目番号,_点数]|R1],S1,S2).

>>383 (>>380)
% Prolog 間違えた。

'GPAの計算'(_点数ならび,GPA) :-
　　　　findsum(_科目のグレード・ポイント,科目のグレード・ポイント(_,_科目のグレード・ポイント),_科目のグレード・ポイントの合計),
　　　　'GPAの計算'(_点数ならび,0.0,X),
　　　　GPA is X / _科目のグレード・ポイントの合計.

>>379
% Prolog Prologに配列はないからリストで表現してみる。例えばこのようになる。

a(3.14).
c(_).

要素数nの実数型配列cの要素全てにaを入力する(_n) :-
　　　　retract(c(_)),
　　　　a(V),
　　　　length(L,_n),
　　　　all(L,V),
　　　　assertz(c(L)).

all([],_).
all([V|R],V) :- all(R,V).

>>378
% Prolog

'長さが32の0と1の列se7e6・・・e1e0d1d2d3・・・d23を入力して、このビット列の表す実数値(実数表現の仕方はＩＥＥＥ規格754に従うものと仮定する)'(_ビット列を表すならび,X) :-
　　　　ＩＥＥＥ規格754(_ビット列を表すならび,X).

ＩＥＥＥ規格754([S,1,0,0,0,0,0,0,0|R],無限大) :- all(R,0),!.
ＩＥＥＥ規格754([S,1,0,0,0,0,0,0,0|R],非数) :- \+(all(R,0)),!.
ＩＥＥＥ規格754([S,1,1,1,1,1,1,1,1|R],_実数値) :-
　　　　二進数から整数へ変換(R,M),
　　　　_実数値 is (-1) ^ S * M * 2 ^ (-127) + 1.
ＩＥＥＥ規格754([S|L],_実数値) :-
　　　　length(L0,7),
　　　　append([L0,R],L),
　　　　二進数から整数へ変換(L0,E),
　　　　二進数から整数へ変換(R,M),
　　　　_実数値 is (-1) ^ S * (1 + M) * 2 ^ E,!.

二進数から整数へ変換(_二進数ならび表現,_整数表現) :- 二進数から整数へ変換(_二進数ならび表現,_,_整数表現).

二進数から整数へ変換([N],1,N).
二進数から整数へ変換([0|R],M,N) :-
　　　　二進数から整数へ変換(R,M1,N),
　　　　M is M1 * 2,!.
二進数から整数へ変換([1|R],M,N) :-
　　　　二進数から整数へ変換(R,M1,N2),
　　　　M is M1 * 2,
　　　　N is M + N2,!.

>>362
% Prolog

拡大係数行列を既約ガウス行列に変形して連立一次方程式の解を得る(_変数名ならび,_拡大係数行列,_解ならび) :-
　　　　既約ガウス行列に変形(_拡大係数行列,_既約ガウス行列),
　　　　解の収集(_変数名ならび,_既約ガウス行列,_解ならび).

解の収集([],[],[]) :- !.
解の収集([_変数名|R1],[_行|R2],[_変数名=X|R3]) :-
　　　　last(_行,X),
　　　　解の収集(R1,R2,R3).

% 既約ガウス行列に変形/2は http://nojiriko.asia/prolog/Gauss_gyoretsu_ni_henkei.html 参照

http://pc12.2ch.net/test/read.cgi/tech/1269438098/775
# [1] プログラミング応用１
# [2] 問題文(含コード＆リンク)：http://ime.nu/water.eit.hirosaki-u.ac.jp/~slmizu/pa2010/
#
# ハノイの塔を解くプログラムの時間計算量と空間計算量を調べる
#
# * 時間計算量、空間計算量をそれぞれ、while ループの実行回数、プログラムが実際に使用するスタックのサイズとして求める。
# * 上記二つの量を円盤の枚数毎に求め、横軸に円盤枚数(1-30)をとって図にプロットする。

http://pc12.2ch.net/test/read.cgi/tech/1269438098/776
# [1] 授業単元：プログラミング
# [2] 問題文： ttp://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10608.txt
#
# グレースケール画像の輝度値を量子化し、量子化された画像を量子化レベルに応じて疑似カラー化します。
# 表1で規定された量子化レベルに合わせて疑似カラー画像を作成してください。
# ただし各量子化レベルに対する疑似カラー設定値（RGB)を入力できるようにすること。
#
# 表1：
# 量子化レベル　｜0 ｜1 ｜2 ｜3 ｜4 ｜5 ｜6 ｜7 ｜
# 輝度値の範囲　｜0-31 ｜32-63 ｜64-95 ｜96-127 ｜128-159 ｜160-191 ｜192-223 ｜224-255 ｜
# 疑似カラー設定｜255,0,0｜255,160,0｜190,255,0｜30,255,0｜0,255,130｜0,220,255｜0,60,255｜100,0,255｜

>>389
% Prolog (その一)

グレースケール画像の輝度を量子化して擬似カラー画像に変換する(_グレースケールファイル,_擬似カラー画像ファイル) :-
　　　　グレースケールファイルをヘッダとデータに分解(_グレースケールファイル,_グレースケール画像ヘッダ部文字ならび,_グレースケール画像データ部値ならび),
　　　　グレースケールから擬似カラー画像ヘッダに変換(_グレースケール画像ヘッダ部文字ならび,_擬似カラー画像ヘッダ部文字ならび),
　　　　グレースケール画像の輝度値を量子化し、量子化された画像を量子化レベルに応じて疑似カラー化する(_グレースケール画像データ部値ならび,_擬似カラー画像データ部値ならび),
　　　　open(_擬似カラー画像ファイル,write,Ouput),
　　　　put_chars(Output,_擬似カラー画像ヘッダ部文字ならび),
　　　　close(Output),
　　　　open(_擬似カラー画像ファイル,append,Ouput2,[type=binary]),
　　　　put_bytes(Output2,_擬似カラー画像データ部値ならび),
　　　　close(Output2),!.

グレースケール画像の輝度値を量子化し、量子化された画像を量子化レベルに応じて疑似カラー化する([],[]) :- !.
グレースケール画像の輝度値を量子化し、量子化された画像を量子化レベルに応じて疑似カラー化する([_グレースケール画素の輝度|R1],[R,G,B|R2]) :-
　　　　輝度範囲(_量子化レベル,_輝度範囲下限,_輝度範囲上限),
　　　　_グレースケール画素の輝度 >= _輝度範囲下限,
　　　　_グレースケール画素の輝度 =< _輝度範囲上限,
　　　　擬似カラー設定(_量子化レベル,R,G,B),
　　　　グレースケール画像の輝度値を量子化し、量子化された画像を量子化レベルに応じて疑似カラー化する(R1,R2).

>>389
% Prolog (その二)

量子化レベル(0).
量子化レベル(1).
量子化レベル(2).
量子化レベル(3).
量子化レベル(4).
量子化レベル(5).
量子化レベル(6).
量子化レベル(7).

擬似カラー設定(0,255,0,0).
擬似カラー設定(1,255,160,0).
擬似カラー設定(2,190,255,0).
擬似カラー設定(3,30,255,0).
擬似カラー設定(4,0,255,130).
擬似カラー設定(5,0,220,255).
擬似カラー設定(6,0,60,255).
擬似カラー設定(7,100,0,255).

輝度値の範囲(0,0,31).
輝度値の範囲(1,32,63).
輝度値の範囲(2,64,95).
輝度値の範囲(3,96,127).
輝度値の範囲(4,128,159).
輝度値の範囲(5,160,191).
輝度値の範囲(6,192,223).
輝度値の範囲(7,224,255).

>>358
% Prolog

'dy/dx＝(1-y)/15の微分方程式をルンゲクッタ法を用いてｘ＝0〜100までの値を求める'(L) :-
　　　　ルンゲ・クッタ法(0.0,100,0.0,1.0,L).

f(X,Y,Z) :- Z is (1.0 - Y) / 15.

ルンゲ・クッタ法(X,M,_,_,[]) :- X >= M,!.
ルンゲ・クッタ法(X,M,Y,H,[[X,Y2]|R]) :-
　　　　f(X,Y,Z1),C1 is Z1 * H,
　　　　f(X + H / 2.0,Y + C1 / 2.0,Z2),C2 is Z2 * H,
　　　　f(X + H / 2.0,Y + C2 / 2.0,Z3),C3 is Z3 * H,
　　　　f(X + H ,Y + C3,Z4),C4 is Z4 * H,
　　　　D is (C1 + 2.0 * C2 + 2.0 * C3 + C4) / 6.0,
　　　　Y2 is Y + D,
　　　　X2 is X + H,
　　　　ルンゲ・クッタ法(X2,M,Y2,H,R).

http://pc11.2ch.net/test/read.cgi/db/1252492296/922
# 売上データベースがあって、主テーブルの項目は、売上番号、得意先名、日付。
# 明細テーブルの項目は、明細番号、売上番号、商品、個数。売上番号で1対多でリンクしています。
# 商品（複数）と日付を指定して、 商品名　個数計　得意先計の一覧を出力したいです。
# ただし得意先名は同名を1とカウントしたいのです。
# SELECT 明細.商品, Sum(明細.個数) AS 個数計, Count(主.得意先) AS 得意先計
# FROM 主 INNER JOIN 明細 ON 主.売上番号 = 明細.売上番号
# WHERE 主.日付 Between '5/1/2010' And '5/4/2010'
# GROUP BY 明細.商品
# HAVING 明細.商品='えんぴつ' or 明細.商品='筆';
# とすると、得意先計が複数カウント（同名は1とならない）してしまいます。
# どのように書いたらよいのでしょうか。

>>393
% Prolog

'商品（複数）と日付を指定して、 商品名　個数計　得意先計の一覧を出力する'(_商品ならび,_日付下限,_日付上限,X) :-
　　　　findall([_商品,_個数,_得意先名],(主(_売上番号,_得意先名,_日付),明細(_明細番号,_売上番号,_商品,_個数),member(_商品,_商品ならび),_日付@>=_日付下限,_日付@=<_日付上限),_選択ならび),
　　　　findsetof([_商品,_得意先名],member([_商品,_個数,_得意先名],_選択ならび),_鍵ならび),
　　　　findall([_商品,_個数計,_得意先名],(member([_商品,_得意先名],_鍵ならび),findsum(_個数,member([_商品,_個数,_得意先名],_選択ならび),_個数計)),X).

http://pc12.2ch.net/test/read.cgi/tech/1267796762/74
# 【　課題　】http://ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/964.txt
#
# ・指定したディレクトリの一覧を表示する。サブディレクトリがあればその一覧も表示する。
# ・指定したディレクトリからの相対パスで出力。

http://pc12.2ch.net/test/read.cgi/tech/1269438098/801
# [1] 授業単元：プログラミング演習
# [2] 問題文：
# テストの点数を入力し合計点、平均点、受験者数、合格者数を表示するプログラムを作成しなさい。ただし、データの終わりの999（999点と表示しない）合格者は60点以上
# 実行例
#
# 84　　　　　　　　　<--キーボードから点数入力
# 84点　　　　　　　　<--入力した点数を表示
# 95
# 95点
# 48
# 48点
# 66
# 66点
# 80
# 80点
# 999　　　　　<--データの終わり（999点とは表示しない）
# 合計点＝373点
# 平均点＝74.6点
# 受験者数＝5名
# 合格者数＝4名

>>396
% Prolog

テストの点数を入力し合計点、平均点、受験者数、合格者数を表示するプログラムを作成しなさい。ただし、データの終
わりの999（999点と表示しない）合格者は60点以上　:-
　　　　'テストの点数を入力し、ただし、データの終わりの999（999点と表示しない）'(_点数ならび),
　　　　合計点(_点数ならび,_合計点),
　　　　平均点(_点数ならび,_平均点),
　　　　受験者数(_点数ならび,_受験者数),
　　　　合格者数(_点数ならび,_合格者数),
　　　　表示する('合計点=%t点\n平均点=%t名\n受験者数=%t名\n合格者数=%t名\n',[_合計点,_平均点,_受験者数,合格者数]).
　
'テストの点数を入力し、ただし、データの終わりの999（999点と表示しない）'(_点数ならび) :-
　　　　催促付き整数入力('点数を入力してください(データの終わりの999) : ',_点数),
　　　　'テストの点数を入力し、ただし、データの終わりの999（999点と表示しない）'(_点数,_点数ならび).

'テストの点数を入力し、ただし、データの終わりの999（999点と表示しない）'(_点数,[]) :-
　　　　'ただし、データの終わりの999（999点と表示しない）'(_点数),!.
'テストの点数を入力し、ただし、データの終わりの999（999点と表示しない）'(_点数,[_点数|R]) :-
　　　　write_formatted('%t点\n',[_点数]),
　　　　get_integer(_次の点数),
　　　　'テストの点数を入力し、ただし、データの終わりの999（999点と表示しない）'(_次の点数,R).

合計点(_点数ならび,_合計点) :- sum(_点数ならび,_合計点).

平均点(_点数ならび,_平均点) :- avg(_点数ならび,_平均点).

受験者数(_点数ならび,_受験者数) :- length(_点数ならび,_受験者数).

合格者数(_点数ならび,_合格者数) :- count((member(_点数,_点数ならび),_点数>=60),_合格者数).

表示する(Format,_値ならび) :- write_formatted(Format,_値ならび).

>>395
% Prolog ディレクトリをget_byte/2できるPrologはないと思う。シェル経由で呼び出してみる。

指定したディレクトリの一覧を表示する。サブディレクトリがあればその一覧も表示する(_ディレクトリのバス) :-
　　　　指定したディレクトリの情報を取得(_ディレクトリのパス,_ディレクトリの情報ならび),
　　　　一覧を表示する。サブディレクトリがあればその一覧も表示する(_ディレクトリのバス,_ディレクトリの情報ならび).

指定したディレクトリの情報を取得(_ディレクトリのパス,_ディレクトリの情報ならび) :-
　　　　concat_atom(['ls -l ',_ディレクトリのパス],S),
　　　　shs(S,_ディレクトリ情報ならび),!.

一覧を表示する。サブディレクトリがあればその一覧も表示する(_ディレクトリのパス) :-
　　　　write_formatted('%%% ディレクトリ=%t %%%\n',[_ディレクトリのパス]),
　　　　一覧を表示する(_ディレクトリのパス),
　　　　サブディレクトリがあればその一覧も表示する。(_ディレクトリのパス).

一覧を表示する([]) :- write('\n'),!.
一覧を表示する([_行|R]) :- write_formatted('%t\n',[_行]),一覧を表示する(R).

サブディレクトリがあればその一覧も表示する([]) :- !.
サブディレクトリがあればその一覧も表示する([_行|R]) :-
　　　　sub_atom(_行,0,1,_,d),
　　　　ディレクトリのパスを取得(_行,_ディレクトリのパス),
　　　　指定したディレクトリの一覧を表示する。サブディレクトリがあればその一覧も表示する(_ディレクトリのバス),
　　　　サブディレクトリがあればその一覧も表示する(R),!.
サブディレクトリがあればその一覧も表示する([_|R]) :- サブディレクトリがあればその一覧も表示する(R).

ディレクトリのパスを取得(_行,_ディレクトリのパス) :- split(_行,[' '],L),last(L,_ディレクトリのパス).

>>388
% Prolog 製品版のPrologとして国産で唯一活性な AZ-Prolog の作者による、回答です。

Prologでハノイを普通に書くとラストコールオプティミゼーションが効くので
スタックサイズの伸びはNに比例することになります。
所要時間は述語のCall回数に比例するので、2のN乗で増加します。

http://nojiriko.asia/prolog/c135_775.html

>>397 (>>396)
% Prolog 一部修正したり加筆しました。
http://nojiriko.asia/c135_801.html

>>400 すみません。リンクを間違えた。
http://nojiriko.asia/prolog/c135_801.html

>>359
% Prolog

バブルソート(L1,L2) :- バブルソート(L1,[],L2).

バブルソート([],L,L) :- !.
バブルソート([A|R1],L1,L) :- バブルソート(A,R1,R2,L1,L2),バブルソート(R2,L2,L).

バブルソート(A,[],[],L1,[A|L1]) :- !.
バブルソート(A,[B|R1],[A|R2],L1,L2) :- A @=< B,バブルソート(B,R1,R2,L1,L2).
バブルソート(A,[B|R1],[B|R2],L1,L2) :- A @> B,バブルソート(A,R1,R2,L1,L2),!.

http://pc12.2ch.net/test/read.cgi/tech/1269438098/818
# [1] 授業単元：ソフトウェア演習
# [2] 問題文(含コード&リンク)：
#
# 直角三角形の３辺a,b,cのa,bの長さが与えられたときCの長さを返す関数のプログラム、
# 角度０〜180の値を与えるラジアンに変換した値、sinの値、cosの値を返す関数のプログラムをひとつのプログラム行う。
# π＝3.141592
#

>>403
% Prolog

'直角三角形の３辺a,b,cのa,bの長さが与えられたときCの長さを返す'(A,B,C) :-
　　　　A == B,
　　　　C is sqrt(A ^ 2 + B ^ 2).
'直角三角形の３辺a,b,cのa,bの長さが与えられたときCの長さを返す'(A,B,C) :-
　　　　B > A,
　　　　C is sqrt(B ^ 2 + A ^ 2).
'直角三角形の３辺a,b,cのa,bの長さが与えられたときCの長さを返す'(A,B,C) :-
　　　　B > A,
　　　　C is sqrt(B ^ 2 - A ^ 2).
'直角三角形の３辺a,b,cのa,bの長さが与えられたときCの長さを返す'(A,B,C) :-
　　　　A > B,
　　　　C is sqrt(A ^ 2 +　B ^ 2).
'直角三角形の３辺a,b,cのa,bの長さが与えられたときCの長さを返す'(A,B,C) :-
　　　　A > B,
　　　　C is sqrt(A ^ 2 - B ^ 2).

ラジアン値(_角度０〜180,_ラジアン値) :- _ラジアン値 is pi * _角度０〜180 / 180.

sin(_角度０〜180,Sin値) :- ラジアン値(_角度０〜180,_ラジアン値),Sin値 is sin(_ラジアン値).

cos(_角度０〜180,Cos値) :- ラジアン値(_角度０〜180,_ラジアン値),Cos値 is cos(_ラジアン値).