いろんな言語で宿題スレ 第二編

最初のスレは512Kbyte越えで終了。
今回は、Prolog,lisp,Haskell,Ocaml,Erlangなどがバランスよく
現れるように配慮して進めます。

前スレの題材に使わせていただいたのは、
C/C++の宿題片付けます 131代目
http://pc12.2ch.net/test/read.cgi/tech/1255709298/
★★ Java の宿題ここで答えます Part 68 ★★
http://pc12.2ch.net/test/read.cgi/tech/1248012902/
Python の宿題ここで答えます Part 1
http://pc12.2ch.net/test/read.cgi/tech/1153585095/
Rubyの宿題教えてください。2限目＠プログラム板
http://pc12.2ch.net/test/read.cgi/tech/1200175247/
BASICの宿題はお前にまかせた＠プログラム板
http://pc12.2ch.net/test/read.cgi/tech/1136788500/
C#,C＃の宿題片付けます。＠プログラム板
http://pc12.2ch.net/test/read.cgi/tech/1197620454/
などでした。

http://pc12.2ch.net/test/read.cgi/tech/1255709298/507
# [1] 授業単元： C++
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10044.txt
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10045.txt
# 問題が２つあります。それぞれ違うファイルにしてもらえたならば幸いです。
# 宜しくお願い致します。
# <問題1>
# 自動車クラスCarにデータメンバやメンバ関数を自由に追加せよ
# （ナンバーを表すデータメンバを追加する。燃費を表すデータメンバを追加する，
# 移動による燃料残量の計算に燃費を反映させる，
# タンク容量を表すデータメンバを追加する，給油のためのメンバ関数を追加する等）。
# また追加したものがテストできる main関数も作成し，提出すること。
# <問題2>
# 名前・身長・体重などをメンバとしてもつ人間クラスを自由に定義せよ。
# 作成したクラスがテストできる main関数も作成し，提出すること。

http://pc12.2ch.net/test/read.cgi/tech/1255709298/509
# [1] 授業単元： Ｃ言語演習
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10047.txt
# 課題２
# コンソール入力される算術式の値を計算し、その答えをコンソール出力するプログラムを作成せよ。
# なお、Ｃプログラミング環境はBorland C++ Compiler　5.5　を使用すること。
#
# 算術式の構成要素　　　　　　　　　　１）　数値（１０進数）
# 　　　　　　　　　　　　　　　　　　２）　四則演算子（加減乗除　＋−＊／）
# 　　　　　　　　　　　　　　　　　　３）　括弧（左、右）
# 　　　　　　　　　　　　　　　　　　４）　等号（＝）
#
# 数値　　　　　　　　　　　　　　　　整数部４桁まで、小数部２桁までとする。
#
# 四則演算子と括弧と記号　優先順位　　（）＞　＊、／　＞　＋、−　＞　＝
#
#
# エラー表示　　　　　　　　　　　　　演算不可能な場合は、エラー表示させること。
# 　　　　　　　　　　　　　　　　　　例：６+３＊＊　　９／／　　９-５）　　８+（　

http://pc12.2ch.net/test/read.cgi/tech/1255709298/510
# [1] プログラミング入門
# [2] 文字列ｓを逆に並べる関数reverse(s) を書け。
# さらにこの関数を使って、入力を行ごとに反転させるプログラムを作成せよ。という問題です。

>>5
% Prolog

'reverse(s)'(S,_反転されたS) :-
　　atom_chars(S,S1),
　　反転(S1,S2),
　　atom_chars(S2,_反転されたS).

反転([],[]).
反転([A|R1],R) :-
　　反転(R,R2),
　　append(R2,[A],R).

入力を行ごとに反転させる(_反転された入力行のならび) :-
　　get_line(_行),
　　入力を行ごとに反転させる(_行,_反転された入力行のならび).

入力を行ごとに反転させる(end_of_file,[]) :- !.
入力を行ごとに反転させる(_行,[_反転された行|R]) :-
　　'reverse(s)'(_行,_反転された行),
　　get_line(_次の行),
　　入力を行ごとに反転させる(_次の行,R).

>>6 間違ってる!
'reverse(s)'(S,_反転されたS) :-
　　atom_chars(S,S1),
　　反転(S1,S2),
　　atom_chars(_反転されたS,S2). が正しい。

そもそもCharsをS*と表現するのは、居心地が悪い。Lに変えよう。(LはlistのL)
'reverse(s)'(S,_反転されたS) :-
　　atom_chars(L,L1),
　　反転(L1,L2),
　　atom_chars(_反転されたS,L2).

>>8 またまた間違い。
'reverse(s)'(S,_反転されたS) :-
　　atom_chars(S,L1),
　　反転(L1,L2),
　　atom_chars(_反転されたS,L2).

% Prolog 保存サイト nojiriko.asia が故障で今週末までアクセスできないため、
http://prolog.asia/html/prolog/
にコピーを作りました。一部、イメージファイルと.txtファイルに存在しないものがあります。

http://pc12.2ch.net/test/read.cgi/tech/1255709298/490
# [1] プログラミング
# [2] double型の引数を2つ持ち、２つの引数の積の絶対値を返す、
# double型の戻値を持つ関数 absmul() を作成した上で、動作の
# 確認の出来るプログラムとして作成せよ。という問題と
#
# 標準入力からの入力に対して、アルファベットを全て空白文字
# に変更して出力するプログラムを作成せよ

>>10
% Prolog 問題(1)
absmul(_浮動小数点数_1,_浮動小数点数_2,_答え) :-
　　Y is _浮動小数点数_1 * _浮動小数点数_2,
　　絶対値(Y,_答え).

絶対値(X,X) :- X >= 0.0.
絶対値(Y,X) :- Y < 0.0,X is -1 * Y.

test_absmul :-
　　二つの浮動小数点数を得ます(_浮動小数点数_1,_浮動小数点数_2),
　　write('(1)と(2)の積の絶対値としてあなたが考える答えも入れてください : '),
　　get_float(_浮動小数点数_3),
　　absmul(_浮動小数点数_1,_浮動小数点数_2,_答え),
　　test_absmul_診断(_答え,_浮動小数点数_3,_診断),
　　write_formatted('absmulを使った計算では解は%t あなたの答えは%tでした\n',[_
浮動小数点数_3,_答え]),
　　write_formatted('ふたつは%t!!\n',[_診断]).

二つの浮動小数点数を得ます(_浮動小数点数_1,_浮動小数点数_2) :-
　　write('浮動小数点数(1) を入れてください : '),
　　get_float(_浮動小数点数_1),
　　write('浮動小数点数(2) を入れてください : '),
　　get_float(_浮動小数点数_2).

test_absmul_診断(F,F,一致しています).
test_absmul_診断(F1,F2,二値は一致しません) :- \+(F1=F2).

>>10
% Prolog 問題(2)
アルファベット(尾崎).
アルファベット(u).

標準入力からの入力に対して、アルファベットを全て空白文字に変更してを出力する :-
　　'stty raw',
　　get_char(A),
　　アルファベットを全て空白文字に変更してを出力する(A,''),
　　'stty -raw'.

アルファベットを全て空白文字に変更してを出力する(end_of_file,B) :-
　　アルファベットとして存在する(B),
　　write(' '),!.
アルファベットを全て空白文字に変更してを出力する(end_of_file,B) :-
　　\+(アルファベットとして存在する(A)),!.
アルファベットを全て空白文字に変更してを出力する(A,B) :-
　　アルファベットとして存在する(B),
　　write(' '),
　　アルファベットを全て空白文字に変更してを出力する(A,''),!.
アルファベットを全て空白文字に変更してを出力する(A,B) :-
　　アルファベットとして存在する(A),
　　write(' '),
　　get_char(C),
　　アルファベットを全て空白文字に変更してを出力する(C,''),!.
アルファベットを全て空白文字に変更してを出力する(A,B) :-
　　atom_concat(A,B,C),
　　get_char(D),
　　アルファベットを全て空白文字に変更してを出力する(D,C).

http://pc12.2ch.net/test/read.cgi/tech/1255709298/554
# [1] 授業単元： C言語演習
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10056.txt
# 問題
# input.bmpというビットマップファイル（色数は２４ビット）を開き、
# その画像の赤の成分だけの画像、緑の成分だけの画像、青の成分だけの画像の三つの
# ファイルを出力するプログラム。
#
# 赤の成分の画像ファイル名(output_red.bmp）
# 青の成分の画像ファイル名(output_blue.bmp）
# 緑の成分の画像ファイル名(output_green.bmp）
# 画像のサイズについては実行時に入力させることとする。例えば、input.bmp
# が200×300の画像であったときに、実行時に以下のように表示し入力を受ける
# 「input.bmpの縦は何ピクセルですか？」２００と入力
# 「input.bmpの横は何ピクセルですか？」３００と入力
#
# 課題達成条件
# ファイルを開くときは開けたかどうかエラーチェックしている。
# メモリに領域を確保する（malloc)したときは、確保できたかどうかエラーチェックする
# 画像ファイルはペイントというソフトをつかって、jpegからビットマップ（?画素当たり２４ビット）に変換したものとする。

http://pc12.2ch.net/test/read.cgi/tech/1255709298/561
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10060.txt

http://pc12.2ch.net/test/read.cgi/tech/1255709298/562
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10061.txt

http://pc12.2ch.net/test/read.cgi/tech/1255709298/563
# [1] 授業単元：ソフトウェア工学
# [2] 問題文(含コード&リンク)：
# (π/4) = tan^-1(1) = 1 - (1/3) + (1/5) - … + (-1)^k * (1/(2k+1)) + …
# の公式を用いて、第n項までの多項式近似により円周率を求め、その誤差と計算時間を測定するプログラムを作成せよ。

http://pc12.2ch.net/test/read.cgi/tech/1255709298/564
# [1] 授業単元：C言語
# [2] 問題文
# 問題文１
# 整数 n を入力すると 'a' から n個目までのアルファベットを全て表示するプログラムを作成せよ。 (例：n=6 の時 abcdefを表示)
#
# 問題文２
# 整数 n を入力すると1からn までの間で 3の倍数か、
# 5の倍数のどちらかであるような数の和を表示するプログラムを作れ。
# (例：n=10 の時 3+5+6+9+10=33)
#
# 問題文３
# 次のプログラムの (a)-(j)の部分をfor 文を使って書き直せ。 #include<stdio.h> int main() { int a[10]; double sum,ave; sum=0; a[0]=1; a[1]=5; a[2]=7; a[3]=2; a[4]=4; a[5]=1; a[6]=9; a[7]=4; a[8]=20; a[9]=5; sum=sum+a[0];
# /* (a) ここ */ sum=sum+a[1]; /* (b) ここ */ sum=sum+a[2]; /* (c) ここ */ sum=sum+a[3]; /* (d) ここ */ sum=sum+a[4]; /* (e) ここ */ sum=sum+a[5]; /* (f) ここ */ sum=sum+a[6]; /* (g) ここ */ sum=sum+a[7];
# /* (h) ここ */ sum=sum+a[8]; /* (i) ここ */ sum=sum+a[9]; /* (j) ここ */ ave=sum/10; printf("総和は %d です。平均は %d です。\n",sum, ave); }
#
# 問題文４
# 整数を5個入力すると、まずそのまま表示し、次に逆順で表示するプログラムを作れ。
# 実行例： 数を入力して下さい： 3 数を入力して下さい： 7 数を入力して下さい：1 数を入力して下さい： 2 数を入力して下さい： 5
# そのまま表示 3 7 1 2 5 逆順に表示 5 2 1 7 3 プログラムのテキストをコピーして下のテキスト入力フィールドへ出力結果と共に貼り付けて提出すること。

http://pc12.2ch.net/test/read.cgi/tech/1255709298/565
# [1] 授業単元：C言語プログラミング
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10062.txt

http://pc12.2ch.net/test/read.cgi/tech/1255709298/566
# [1]授業単元　C言語実習
# [2]コマンドラインで指定された英数字と空白、タブ、改行記号
# のみから構成されるテキストファイルに含まれる単語の頻度を
# アルファベット順に出力するプログラム。
# 単語とは英数字のみで構成されているものを指す。
# 一つの単語が１回現れた時は部分単語すべてが現れたものとする。
# 部分単語とは、その単語の連続する部分文字列のことである。
# 授業で述べた多重ハッシュテーブルを利用すること。
# 行の長さ、行の総数、単語の長さに制限は無いが、頻度は
# 32bit整数（符号付き）で正の範囲に表せるものとする。

http://pc12.2ch.net/test/read.cgi/tech/1255709298/569
# [1] 授業単元：ソフトウェア工学
# [2] 問題文(含コード&リンク)：
# 台数近似を用いて、分割数nに対する　I = ∫[1,2]ln(x)dx　の値を求めるプログラムを作成し、誤差を求めよ。

>>19
Common Lisp
http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10072.txt

多重ハッシュテーブルの使い道がよくわからないので、
普通のハッシュテーブルでやってみた
部分単語っていうのもいまいちわからないのだけど、例えば"word"の部分単語は
"w", "o", "r", "d", "wo", "or", "rd", "wor", "ord", "word"
という解釈でおｋですか？

>>21
多重ハッシュテーブル、部分単語ともに分かりません。
授業受けてみたいですね。
部分単語の解釈は私もそれ以外に思いつかない。

>>20
;; Common Lisp

(defun trapezodial-rule-of-integration (fx min max ndivision)
(let ((tmp 0))
(do ((k 1 (+ k 1)))
((= k ndivision))
(incf tmp (funcall fx (+ min (* k (/ (- max min) ndivision))))))
(/ (* (- max min) (+ (/ (+ (funcall fx min) (funcall fx max)) 2) tmp)) ndivision)))

(defun main ()
(let (approximate true-value)
(setf approximate (trapezodial-rule-of-integration #'log 1 2 256)
true-value (- (* 2 (log 2)) 1))
(format t "真値: ~A~%近似値: ~A~%誤差: ~A~%" true-value approximate (- true-value approximate))))

>>18
;; Common Lisp

(defun merge (lst1 lst2 test-func)
(cond ((and (null lst1) (null lst2)) nil)
((null lst1) (cons (car lst2) (merge nil (cdr lst2) test-func)))
((null lst2) (cons (car lst1) (merge (cdr lst1) nil test-func)))
(t (if (funcall test-func (car lst1) (car lst2))
(cons (car lst1) (merge (cdr lst1) lst2 test-func))
(cons (car lst2) (merge lst1 (cdr lst2) test-func))))))

(defun merge-sort (lst test-func)
(cond ((> (length lst) 1)
(merge
(merge-sort (subseq lst 0 (floor (/ (length lst) 2))) test-func)
(merge-sort (subseq lst (floor (/ (length lst) 2))) test-func)
test-func))
(t lst)))

http://pc12.2ch.net/test/read.cgi/tech/1255709298/598
# [1] 授業単元： プログラミング
# [2] 問題文(含コード&リンク)： 2つの整数値と1つの文字を、例えば「4+2」のように入力し、
# 入力に応じた四則演算を行って結果を出力するプログラムを作成しなさい。
# ただし、中央の文字に四則演算の記号以外の文字が入力された時のことも考慮しなさい。

>>25
% Prolog
二項式とは(_式文字列,N1,_演算子,N2,_答え,_診断) :-
　　整数文字ならび(_式文字列,_整数文字ならびの一,R1),
　　演算子文字ならび(R1,_演算子文字ならび,R2),
　　整数文字ならび(R2,_整数文字ならびの二,R),
　　number_chars(N1,_整数文字ならびの一),
　　number_chars(N2,_整数文字ならびの二),
　　atom_chars(_式,_演算子文字ならび).
　　二項式診断(N1,_式,N2,_答え,_診断).

演算子文字ならび([],[],[]).
演算子文字ならび([A|R],[],[A|R]) :- 四則演算子ではない(A),数字である(A).
演算子文字ならび([A|R1],[A|R2],R) :- 四則演算子ではない(A),数字ではない(A),演算子文字ならび(R1,R2,R).
演算子文字ならび([A|R1],[A|R2],R) :- 四則演算子である(A),演算子文字ならび(R1,R2,R).

整数文字ならび([A|R],[],[A|R]) :- 数字ではない(A)..
整数文字ならび([A|R],[A1|R2],R) :- 数字である(A),整数文字ならび(R1,R2,R).

二項式診断(N1,_演算子,N2,_答え,演算子が四則演算子ではありません) :- \+(member(_演算子,[+,-,*,/])),!.
二項式診断(N1,_演算子,N2,_答え,正常終了) :- integer(N1),integer(N2),member(_演算子,[+,-,*,/]),_式 =..[_演算子,N1,N2],_答え is _式.

数字である(A) :- member(A,['0','1','2','3','4','5','6','7','8','9']).
数字ではない(A) :- \+(member(A,['0','1','2','3','4','5','6','7','8','9'])).

四則演算子である(A) :- member(A,['+','-','*','/']).
四則演算子ではない(A) :- \+(member(A,['+','-','*','/'])).

>>16
% Prolog

func(K,X) :- X is (-1)^K * (1/(2*K+1)).

π(M,Pi) :- findsum(U,(for(0,K,M),func(M,U)),S),Pi is S * 4.

計算時間と誤差(M,_計算時間,_誤差) :-
　　A is time,for(1,N,100),π(M,Pi),N=100,B is time,
　　_誤差 is Pi - pi,
　　_計算時間 is (B - A) / 100.

>>18
% Prolog

マージソート(L,LX) :-
ならびを半分に分割する(L,L1,L2),
　　マージソート(L1,L11),
　　マージソート(L2,L22),
　　併合する(L11,L22,LX).

併合する(L,[],L) :- !.
併合する([],L,L) :- !.
併合する([A|R1],[B|R2],[A|R3]) :-
　　A @< B,
　　併合する(R1,[B|R2],R3).
併合する([A|R1],[B|R2],[B|R3]) :-
　　A @>= B,
　　併合する([A|R1],R2,R3).

ならびを半分に分割する(L,L1,L2) :- ならびを半分に分割する(L,L,[],[],L1,L2).

ならびを半分に分割する(L,L0,LX,LY,LX,LY) :- append(LX,LY,L0),!.
ならびを半分に分割する(L,L0,LX,LY,LX,[A|LY]) :- append(LX,[A|LY],L0),!.
ならびを半分に分割する([A,B|R1],L0,LX,LY,L1,L2) :- ならびを半分に分割する(R1,L0,[_|LX],[_|LY],L1,L2).

>>14
% Prolog (BinaryDataModel風)
t2_14(File) :- get_lines(File,Lines),member(_行,Lines),split(_行,[','],L),構造追加(L),fail.
t2_14(_).

索引番号起点(-1).
索引番号終点(-1).

構造追加(L) :- 索引番号終点(_索引番号終点),構造追加(L,_索引番号終点).

構造追加([A|R]) :- Random is random mod 9999,\+(index(Random,A,-1)),
　　assertz(index(Random,A,-1)),
　　length(R,Len),
　　assertz(num(Random,Len)),
　　attr定義(1,Len,Random,R),!.
　　retract(索引番号終点(_索引終点番号)),
　　構造追加_2(_索引終点番号,Random).
構造追加([A|R]) :- 構造追加([A|R]).

構造追加_2(-1,Random) :- retract(索引番号起点(_索引起点番号)),assertz(索引番号起点(Random)),assertz(索引番号終点(Random)),!.
構造追加_2(N,Random) :- assertz(索引番号終点(Random)),retract(index(N,W2,_)),assertz(index(N,W2,Random)),!.

attr定義(M,N,A,[]) :- M > N,!.
attr定義(M,N,A,[B|R]) :- assertz(attr(A,M,B)),M2 is M+1,attr定義(M2,N,A,R).

>>29 してはいけないところに改行が入ってしまった。

構造追加_2(-1,Random) :- retract(索引番号起点(_索引起点番号)),assertz(索引番号起点(Random)),assertz(索引番号終点(Random)),!.

構造追加_2(N,Random) :- assertz(索引終点,Random)),retract(index(N,W2,_)),assertz(index(N,W2,Random)),!.

>>17 問題文1
:- op(600,xf,個目).

'整数 N を入力すると a から N個目までのアルファベットを全て表示'(N個目) :-
　　for(1,M,N),put_code(96+M),M=N.

>>17 問題文2

'整数 N を入力すると1からN までの間で 3の倍数か、5の倍数のどちらかであるような数の和を表示'(N) :-
　　findsum(U,(for(1,M,N),'3の倍数であるか5の倍数'(M)),Sum),
　　write_formatted('3か5の倍数の合計は %t です\n',[Sum]).

'3の倍数であるか5の倍数'(N) :- '3の倍数(N),!.
'3の倍数であるか5の倍数'(N) :- '5の倍数(N),!.

'3の倍数'(N) :- 0 is N mod 3.

'5の倍数'(N) :- 0 is N mod 5.

>>17 問題文4
% Prolog

'整数を5個入力すると、まずそのまま表示し、次に逆順で表示する' :-
　　findall(_整数,(for(1,N,5),write('数を入力して下さい：'),get_integer(_整数)),L),
　　concat_atom(L,' ',S1),
　　write_formatted('入力されたのは %t です\n',[S1]),
　　reverse(L,L2),
　　concat_atom(L2,' ',S2),
　　write_formatted('逆順に表示すると %t となります\n',[S2]).

http://pc12.2ch.net/test/read.cgi/tech/1248012902/454
# 【　課題　】http://ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/main.htm 822.txt
#
# (1) 入力された正の整数が素数であるか判定するプログラムを作成する。
# ただし、機能は以下のように実現するものとする。
# boolean 型の戻り値をもつメソッド isPrime は引数に正の整数をとり、
# 素数なら true を返し、そうでないなら false を返す。
# main メソッドから、isPrime を呼び出すようにせよ。
#
# (2)入力された正の整数が素数であるか判定し、素数でない場合は最少の素因数を
# 出力するプログラムを作成する。ただし、機能は以下のように実現するものとする。
# int 型の戻り値をもつメソッド minimumDivisor は引数に正の整数をとり、
# 素数なら0 を返し、そうでないなら最小の素因数を返す。
# main メソッドから、minimumDivisor を呼び出し、戻り値に応じた出力をすようにせよ。

>>34 (1)
% Prolog

program :-
　　user_parameters([A]),
　　atom_to_term(A,N,_),
　　isPrime_test(N,_診断),
　　write_formatted('%t\n',[_診断]).

isPrime_test(N,true) :- isPrime(N).
isPrime_test(N,false) :- \+(isPrime(N)).

isPrime(1) :- !.
isPrime(N) :- for(2,M,N//2),0 is N mod M.

>>35 しまった!! 逆だった。訂正します。
% Prolog

program :-
　　user_parameters([A]),
　　atom_to_term(A,N,_),
　　isPrime_test(N,_診断),
　　write_formatted('%t\n',[_診断]).

isPrime_test(N,true) :- isPrime(N).
isPrime_test(N,false) :- \+(isPrime(N)).

isPrime(1) :- !.
isPrime(N) :- \+((for(2,M,N//2),0 is N mod M)).

>>36 もう一つ訂正
% 最後に ! を入れて置きましょう。

isPrime(1) :- !.
isPrime(N) :- \+((for(2,M,N//2),0 is N mod M)),!.

>>35 (2)
% Prolog

program :-
　　user_parameters([A]),
　　atom_to_term(A,N,_),
　　minimumDiviso(N,_診断),
　　write_formatted('%t\n',[_診断]).

minimumDiviso(1,0) :- !.
minimumDiviso(N,M) :- for(2,M,N//2),0 is N mod M,!.
minimumDiviso(N,0).

>>20
% Prolog 台数近似って分からないから台形則で。

func(N,X) :- N2 is N,X is ln(N2).

t2_20_誤差(N,X1,X2,_誤差) :-
　　台形則(N,X1,X2,S),
　　_誤差 is S - (2 * log(2) -1).

台形則(N,X1,X2,S) :-
　　_間隔 is (X2 - X1) / N,
　　台形則(0,N,X1,_間隔,S).

台形則(N,N,_,_,0.0) :- !.
台形則(J,N,X1,_間隔,S) :-
　　func(X1 + _間隔 * J,U1),
　　func(X1 + _間隔 * (J + 1),U2),
　　S1 is (U1 + U2) * (1.0 / N) / 2.0,
　　J2 is J + 1,
　　台形則(J2,N,X1,_間隔,S2),
　　S is S1 + S2.

>>19
% Prolog ハッシュとか意識せず、一番Prologらしい表現で
:- dynamic(hash/2).

t2_19_表示 :- listing(hash/2).

t2_19 :-
　　get_line(Line),
　　split(Line,[' ','\t','\n'],L),
　　member(_単語,L),
　　sub_atom(_単語,_,_,_,_部分単語),
　　\+(_部分単語=''),
　　t2_19_1(_部分単語),
　　fail.
t2_19.

t2_19_1(A) :- retract(hash(A,_頻度)),_頻度2 is _頻度 + 1,assertz(hash(A,_頻度2)),!.
t2_19_1(A) :- assertz(hash(A,1)).

>>3 >>4 >>13 の解答がまだない。

>>3 のようなオブジェクト指向の課題は今後ESPで書くからちょっと待って。もう忘れた・・・

>>3
% ESP (その一)　なんだか分からないけど継承だらけ。

class さつまのかみ has
　　nature 人間,実像;
　　attribute 戸籍名:='平忠度',契機,実像;
　　:create(Class,_契機,_実像,Obj) :-
　　　　:new(Class,Obj),
　　　　Obj!契機:=_契機,Obj!実像:=_実像,Obj!誕生日:='19490126';
instance
　　:予定(Obj,_契機,_予定) :- _契機@>=Obj!契機,予定(Obj,_契機,_予定);
local
　　予定(Obj,'20091107','ESPのお勉強');
end.

class 人間 has
　　nature 誕生,死亡,遺伝子;
　　attribute 戸籍名;
end.

class 実像 has
　　attribute 身長,体重,髪の毛の色,体毛,肌の色,歯型,印象;
end.

>>3
% ESP (その二)

class 誕生 has
　　attribute 誕生日,時刻,立会い医師または助産婦,誕生にまつわるエピソード;
end.

class 死亡 has
　　attribute 死亡時刻,確認医師,死因,死亡に至る経過,辞世,墓の在り処;
end.

class 遺伝子 has
　　attribute 遺伝子;
end.

http://pc12.2ch.net/test/read.cgi/tech/1153585095/932
# 負でない整数nの階乗(n!)は，次のように定義される．
#
# n! = 1 × 2 × 3 × ... × n (n ≧ 1)
# 0! = 1
#
# 引数nを与えるとn!を計算して返す関数fact(n)を定義し，それを用いて0!〜10!を計算して表示するプログラムを作成せよ．
#

>>45
% Prolog

'引数nを与えるとn!を計算して返す関数fact(n)を定義し，それを用いて0!〜10!を計算して表示する' :-
　　for(0,N,10),
　　fact(N,X),
　　write_formatted('n=%t,%t\n',[N,X]),
　　N=10.

fact(0,1).
fact(N,X) :- \+(N=0),N1 is N-1,fact(N1,Y),X is N * Y.

http://pc12.2ch.net/test/read.cgi/tech/1153585095/935
# 引数として英数字からなる文字列を1つ与えて呼び出すと，その全体，最後の1文字を
削ったもの，最後の2文字を削ったもの，…と1文字になるまで表示する関数を定義せよ
．値を返す必要はない．
#
# 次に，キーボードから文字列を読み込み，読み込んだ文字列を引数として定義した関数を呼び出すようにせよ．
#

>>47
% Prolog

'引数として英数字からなる文字列を1つ与えて呼び出すと，その全体，最後の1文字を削ったもの，最後の2文字を削ったもの，…と1文字になるまで表示する'(_文字列) :-
　　sub_atom(_文字列,0,M,1,_),
　　for(1,N,M),
　　sub_atom(_文字列,0,_,N,_副文字列),
　　write_formatted('%t\n',[_副文字列]),
　　N = M.

t2_47 :-
　　write('文字列を入力してください :\n'),
　　get_line(_文字列),
　　'引数として英数字からなる文字列を1つ与えて呼び出すと，その全体，最後の1文字を削ったもの，最後の2文字を削ったもの，…と1文字になるまで表示する'(_文字列).

http://pc12.2ch.net/test/read.cgi/tech/1255709298/615
# C++で10進数を2進数に変換するプログラムを配列使って
# 順番通りに表示できるようにするのってどうするんですか

>>49
% Prolog

t2_615 :-
　　write('10進数をスペースで区切って何個か入力してください : '),
　　get_line(Line),
　　split(Line,[' '],L),
　　member(N,L),
　　二進数(N,L),
　　wrln(L),
　　fail.
t2_615.

二進数(_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).

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

>>50 間違い。訂正

wrln([]) :- nl.
wrln([A|R]) :- write(A),wrln(R).

と直すか、wrln/1は使わず、
t2_615 :-
　　write('10進数をスペースで区切って何個か入力してください : '),
　　get_line(Line),
　　split(Line,[' '],L),
　　member(N,L),
　　二進数(N,L),
　　atom_chars(A,L), /* 追加して */
　　write_formatted('%t\n',[A]), /* 普通にwrite_formatted/2 で */
　　fail.
t2_615.

>>51 さらに訂正
二進数/2の第二引数は整数のリストだから、atom_chars/2は使えない。整数はatomと別扱い。
concat_atom/2を使えばよいが、ISO標準ではないから、
>>51 の第二案は使わず、第一案のwrln/1を直すのがよいだろう。

http://sum2cha.blogpico.com/archives/2017 レス番号606
[1] 授業単元： プログラミング
[2] 問題文(含コード&リンク)：
全部で3つなのですが
１・ 以下のプログラムを作成
・ 以下の数列を0〜20まで表示
・ 数列は以下の通りとする
・ a[0] = 0.01, a[1] = 0.1, a[2] = 1.0
・ a[n+1] = a[n] + a[n-1] + a[n-2]
・ プログラムを実行するとa[0]〜a[20]までの値が改行区切りで表示されること

>>53 (これはエラーとなる例)
% Prolog ではN+1では定義は困難。さらに以下のプログラムでは
% t2_53(M,Y) の部分でエラーとなる

t2_53 :-
　　findall(X,(for(0,N,20),t2_53(N,X)),L),
　　wrln(L).

t2_53(0,0.01).
t2_53(1,0.1).
t2_53(2,1.0).
t2_53(N,X) :-
M is N + 1,
　　N1 is N - 1,
　　N2 is N - 2,
　　t2_53(M,Y),
　　t2_53(N1,X1),
　　t2_53(N2,X1),
　　X is Y - X1 - X2.

%%%%%%%%%%%%%%%%%%%%

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

>>53
% Prolog 仕方ないから、以下とする。

t2_53 :-
　　findall(X,(for(0,N,20),t2_53(N,X)),L),
　　wrln(L).

t2_53(0,0.01).
t2_53(1,0.1).
t2_53(2,1.0).
t2_53(N,X) :-
　　N1 is N - 1,
　　N2 is N - 2,
　　N3 is N - 3,
　　t2_53(N1,X1),
　　t2_53(N2,X2),
　　t2_53(N3,X3),
　　X is X1 + X2 + X3.

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

http://pc12.2ch.net/test/read.cgi/tech/1255709298/638
# [1] 授業単元：
# [2] 問題文(含コード&リンク)：ソケット通信を用いたチャットの作成
# http://ime.nu/mikilab.doshisha.ac.jp/dia/research/report/2003/0714/006/report20030714006.html
# にある2.1、2.2のクライアント、サーバのプログラム（出来れば簡単な解説もお願いします）

http://sum2cha.blogpico.com/archives/2017 レス番号606
[1] 授業単元： プログラミング
[2] 問題文(含コード&リンク)：
# ３．以下のプログラムを作成
# ３ｘ３マスのマルバツゲームのボードを作成
# ○側と×側が交互に2次元座標上の位置を入力
# 入力後、毎回ボードを表示する
# たて、よこ、斜めのいずれかに○か×が3つ並んだ
# 時点でプログラムを終了

http://pc12.2ch.net/test/read.cgi/tech/1255709298/596
# [1] 授業単元：
# アルゴリズムとプログラミング
# [2] 問題文(含コード&リンク)：
# 下のアドレスのプログラムに追加して、ダイクストラ法のプログラムを完成させてください
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10070.txt
# プログラムに使用するデータファイル↓
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10071.txt
# 次のプログラムに、以下の2〜6の処理を追加してダイクストラのプログラムを完成させてください。
# 2、送信ノードに接続されている全てのノードについて、接続リンクの長さを送信ノードからの距離とする。
# 3、送信ノードに接続されている全てのノードのうち、最短の距離を持つノードを確定とする
# 4、確定したノードに接続されている全てのノードについて、送信ノードからこの確定ノードを経由して到達する経路の距離を計算し、これまでの距離より短ければ更新する
# 5、まだ確定していないノードのうち、送信ノードからの距離が最短のノードを確定とする
# 6、全てのノードが確定するまで4,5の処理を繰り返す。

http://pc12.2ch.net/test/read.cgi/tech/1255709298/651
# [1] 授業単元： Ｃ言語演習
# [2] 問題文(含コード&リンク)：
# 正の整数nの２乗の数に、２種類の数字しか現れない
# 4桁の正の整数 n をすべて挙げなさい

http://pc12.2ch.net/test/read.cgi/tech/1248012902/461
# 【　形態　】1. Javaアプリケーション(main()で開始)
# 【　期限　】11月11日
# 【　Ver　 】1.6.0_11
#
#
# 課題です
# http://ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/825.zip
# ・課題
# 与えられたデータ（行列Ａのデータ　Ａ.txt ベクトルｂのデータ　b.txt）について
# pivot選択付きGaussの消去法を用いて連立方程式Ａｘ＝ｂの解ｘを求めよ
# また得られたｘに対して　||Ａｘ‐ｂ||２を計算せよ

>>59
% Prolog

'正の整数nの２乗の数に、２種類の数字しか現れない4桁の正の整数 n をすべて挙げる'(L) :-
　　findall(N,'正の整数nの２乗の数に、２種類の数字しか現れない4桁の正の整数 n '(N),L).

'正の整数nの２乗の数に、２種類の数字しか現れない4桁の正の整数 n '(N) :-
　　組合せ([0,1,2,3,4,5,6,7,8,9],2,[A,B]),
　　length(L,9),
　　'２種類の数字しか現れないならび'(A,B,0,0,L),
　　concat_atom(L,Atom),
　　atom_to_term(Atom,N1,_),
　　N is truncate(sqrt(N1)).
　　N >= 1000,N =< 9999,
　　U is N * N.

'２種類の数字しか現れないならび'(_,_,1,1,[]) :- !.
'２種類の数字しか現れないならび'(A,B,_,K,[A|R]) :-
　　'２種類の数字しか現れないならび'(A,B,1,K,R).
'２種類の数字しか現れないならび'(A,B,K,_,[B|R]) :-
　　'２種類の数字しか現れないならび'(A,B,K,1,R).

>>57
% Prolog
http://prolog.asia/html/prolog/t2_57.html

http://pc12.2ch.net/test/read.cgi/tech/1255709298/657
# [1] 授業単元： Ｃ言語のポインタ、配列、ファイルの問題です
# [2] 問題文(含コード&リンク)：
# n件のデータを配列に入力しその平均値を出力するプログラムをつくり、
# 実行部において添字演算子は用いず、*(p+i)と*p++それぞれを用いるパターンを作る
# ただし、入出力処理をファイル処理に、入出力ファイル名はコマンドラインで指定する

>>63
% Prolog

'n件のデータを配列に入力しその平均値を出力する'(N) :-
　　user_parameters([_入力ファイル,_出力ファイル]),
　　open(_入力ファイル,read,Input),
　　findavg(K,(for(1,M,N),get_line(Input,Line),(Line=end_of_file,!,fail;atom_to_term(Line,K,_)),Avg),
　　close(Input),
　　open(_出力ファイル,write,Output),
　　write_formatted(Output,'平均値は %t\n'),
　　close(Output),!.

>>65 訂正
% Prolog

'n件のデータを配列に入力しその平均値を出力する'(N) :-
　　user_parameters([_入力ファイル,_出力ファイル]),
　　open(_入力ファイル,read,Input),
　　findavg(K,(for(1,M,N),get_line(Input,Line),(Line=end_of_file,!,fail;atom_to_term(Line,K,_)),Avg),
　　close(Input),
　　open(_出力ファイル,write,Output),
　　write_formatted(Output,'平均値は %t\n',[Avg]), /* この行訂正 */
　　close(Output),!.

>>65 もう一ヶ所訂正。上から四行目、括弧閉じがひとつ足らなかった。

　　findavg(K,(for(1,M,N),get_line(Input,Line),(Line=end_of_file,!,fail;atom_to_term(Line,K,_))),Avg),

http://pc12.2ch.net/test/read.cgi/tech/1248012902/463
# 【課題】
# http://ime.nu/www51.tok2.com/home/rg550/cgi-bin/hosoku/img0047.zip
# 【課題1】
# 実行例のようにキーボードから文字列を読み込み、文字型の配列に一文字づつ格納
# した後、整列し(順番はどちらでもかまいません)、出力するプログラムを
# 作成しなさい。
# 【課題2】
# 0から9までの整数乱数を100個発生させ、実行例のようにその出現分布を棒グラフと
# 値で出力するプログラムを作成しなさい。また、100個の乱数の平均値も合わせて
# 出力しなさい。
# ただし、0から9 それぞれの個数を数えるための変数に必ず配列を用いてください。
# (出現個数カウント用の変数を10個用意してはいけません。) 例えば、出現個数
# カウント用の配列 count[] を用意すると、 count[0] に0が出現した回数が
# 格納される。もし0が10回出現した場合、count[0]=10となる。)

>>67
% Prolog 課題1

'実行例のようにキーボードから文字列を読み込み、文字型の配列に一文字づつ格納した
後、整列し(順番はどちらでもかまいません)、出力する' :-
　　get_chars(_文字ならび),
　　sort(_文字ならび,_整列した文字ならび),
　　atom_chars(_整列した文字列,_整列した文字ならび),
　　write_formatted('%t\n',[_整列した文字列]).

>>67
% Prolog 課題2
'0から9までの整数乱数を100個発生させ、実行例のようにその出現分布を棒グラフと値
で出力する' :-
findall([N,0,[]],for(0,N,9),_出現個数カウント用ならび),
'0から9までの整数乱数を100個発生させ'(1,L1),
'その出現分布を棒グラフと値で出力する'(L1,_出現個数カウント用ならび).

'0から9までの整数乱数を100個発生させ'(N,[]) :- N > 100,!.
'0から9までの整数乱数を100個発生させ'(N,[A|R]) :-
A is random mod 10,
N2 is N + 1,
'0から9までの整数乱数を100個発生させ'(N2,R).

'その出現分布を棒グラフと値で出力する'([],L) :-
'グラフと値で出力'(L),!.
'その出現分布を棒グラフと値で出力する'([N|R],L) :-
member([N,C,L1],L),
C2 is C + 1,
ならびの置換([N,C,L1],[N,C2,[_|L1]],L,L2),
'その出現分布を棒グラフと値で出力する'(R,L2).

グラフと値で出力([]).
グラフと値で出力([[N,C,L1]|R]) :-
all(L1,'*'),
write_formatted(' %t: %t %t\n',[N,L1,C]),
グラフと値で出力(R).

>>69 書き直し
% Prolog 課題2 (100個の乱数の平均値は表示行数の関係上、省略します)
'0から9までの整数乱数を100個発生させ、実行例のようにその出現分布を棒グラフと値
で出力する' :-
　　findall([N,0,[]],for(0,N,9),_出現個数カウント用ならび),
　　'0から9までの整数乱数を100個発生させ'(1,L1),
　　'その出現分布を棒グラフと値で出力する'(L1,_出現個数カウント用ならび).

'0から9までの整数乱数を100個発生させ'(N,[]) :- N > 100,!.
'0から9までの整数乱数を100個発生させ'(N,[_乱整数|R]) :-
　　_乱整数 is random mod 10,
　　N2 is N + 1,
　　'0から9までの整数乱数を100個発生させ'(N2,R).

'その出現分布を棒グラフと値で出力する'([],L) :-
　　'グラフと値で出力'(L),!.
'その出現分布を棒グラフと値で出力する'([N|R],L) :-
　　member([N,_カウント,L1],L),
　　_カウント2 is _カウント + 1,
　　ならびの置換([N,_カウント,L1],[N,_カウント2,[_|L1]],L,L2),
　　'その出現分布を棒グラフと値で出力する'(R,L2).

グラフと値で出力([]).
グラフと値で出力([[N,C,L]|R]) :-
　　all(L,'*'),
　　write_formatted(' %t: %t %t\n',[N,L,C]),
　　グラフと値で出力(R).

http://pc12.2ch.net/test/read.cgi/tech/1248012902/464
# 0〜30の数字の中からランダムに5つ重複なしで選びたいんですが
# どうやったらいいでしょうか？
# もしそういう関数があれば教えてください

>>71
% Prolog

'0〜30の数字の中からランダムに5つ重複なしで選ぶ' :-
　　length(L,5),
　　'0〜30の数字の中からランダムに5つ重複なしで選ぶ'(L,[],X).

'0〜30の数字の中からランダムに5つ重複なしで選ぶ'([],X,X).
'0〜30の数字の中からランダムに5つ重複なしで選ぶ'([_|R1],Y,X) :-
　　N is random mod 31,
　　\+(member(N,Y)),
　　'0〜30の数字の中からランダムに5つ重複なしで選ぶ'(R1,[N|Y],X),!.
'0〜30の数字の中からランダムに5つ重複なしで選ぶ'(L1,Y,X) :-
　　'0〜30の数字の中からランダムに5つ重複なしで選ぶ'(L1,Y,X).

http://pc12.2ch.net/test/read.cgi/tech/1255709298/694
# [1] 授業単元：画像処理
# [2] 問題文(含コード&リンク)：
# 　　ブレゼンハムのアルゴリズムを用いて、ウインドウ内に線分を描画するプログラムを作成しなさい。
# 　　動作の仕様は２通りの中から選びなさい。（どちらでもよい）
#
# 　　仕様１（マウスの左ボタンと右ボタンを使用する。候補線を表示はなし。）
# 　　マウスの左ボタンクリック　　 線分の始点座標の指定
# 　　マウスの右ボタンクリック　　 線分の終点座標の指定及び線分の描画
#
# 　　仕様２（マウスの左ボタンだけで操作する。候補線を表示する。）
# 　　マウスの左ボタンクリック　　　線分の始点座標の指定、及び線分の描画開始
# 　　マウスの移動　　　　　　　　　始点から線分を絶えず候補として描画。（古い線分は消す）
# 　　マウスの左ボタンクリック　　　線分の終点座標の確定。線分を描画。
#
# ただし、ライブラリの点を描画するAPI関数を使って線分を引くこと。直線を引くAPI関数を使ってはならない。

http://pc12.2ch.net/test/read.cgi/tech/1255709298/705
# [1] 授業単元：データ構造とアルゴリズム設計
# [2] 問題文(含コード&リンク)：
# 入力された小文字のアルファベットを，リストを用いて順次格納する．
# ’−’が入力された時に文字の入力を終了し，それまでに格納された全ての文字を表示するプログラムを作成
# せよ．
# ただし，リストに格納する際，リストの最後に追加するようにせよ．
# 例（a, b, c, - と順に入力したときa,b,cと出力される）

http://pc12.2ch.net/test/read.cgi/tech/1255709298/697
#
# [1] 授業単元：
# アルゴリズムとプログラミング
# [2] 問題文(含コード&リンク)：
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10082.txt
# プログラムに使用するデータファイル↓
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10071.txt

>>74
% Prolog

'入力された小文字のアルファベットを，リストを用いて順次格納する．'’−'’が入力された時に文字の入力を終了し，それまでに格納された全ての文字を表示' :-
　　新しいキューを作る(_キュー),
　　rawmode,
　　get_char(_文字),
　　'入力された小文字のアルファベットを，リストを用いて順次格納する．'’−'’が入力された時に文字の入力を終了し，それまでに格納された全ての文字を表示'(_文字,_キュー),
　　norawmode.

'入力された小文字のアルファベットを，リストを用いて順次格納する．'’−'’が入力された時に文字の入力を終了し，それまでに格納された全ての文字を表示'('-',_キュー,_キュー) :- !.
'入力された小文字のアルファベットを，リストを用いて順次格納する．'’−'’が入力された時に文字の入力を終了し，それまでに格納された全ての文字を表示'(_文字,_キュー,_キュー) :-
　　キューに要素を追加する(_文字,_キュー,_キュー_2),
　　get_char(_文字_2),
　　'入力された小文字のアルファベットを，リストを用いて順次格納する．'’−'’が入力された時に文字の入力を終了し，それまでに格納された全ての文字を表示'(_文字_2,_キュー_2,_キュー_4),
　　キューから要素を取り出す(_要素,_キュー_3,_キュー_4),
　　put_char(_要素).

新しいキューを作る(X-X).
キューは空である(X-Y) :- X == Y.
キューに要素を追加する(_要素,X-[_要素|Y],X-Y).
キューから要素を取り出す(_要素,[_要素|X]-Y,X-Y).

<A HREF="http://nojiriko.asia/prolog/index.html">このディレクトリの索引</A>
http://pc12.2ch.net/test/read.cgi/tech/1257481818/90
# 始点
# x=cos(t)
# y=sin(t)
#
# 終点
# x=cos(t+dt)
# y=sin(t+dt)
#
# で線を描き、t=t+dtで疑似円を描いています。
#
# 長方形や楕円を、任意の角度に傾けるにはどのようにすれば良いのでしょうか？
#

>>77
一行目にゴミが入ってしまった。無視してください。
http://nojiriko.asia/prolog/ サイトは故障中で12日に復旧します。
それまでは
http://prolog.asia/html/prolog/ サイトにほとんどをコピーしてあります。

>>77
% Prolog

疑似円を描く :-
　　疑似円座標をならびに得る(L),
　　疑似円を描く(L).

疑似円を描く([[X1,Y1],[X2,Y2]]) :- 線分の描写(X1,Y1,X2,Y2).
疑似円を描く([[X1,Y1],[X2,Y2]|R]) :-
　　線分の描写(X1,Y1,X2,Y2),
　　疑似円を描く(R).

疑似円座標をならびに得る(L) :-
　　_2π is 2 * pi,
　　_dt is _2π / 100,
　　疑似円座標をならびに得る(0.0,_2π,_dt,L).

疑似円座標をならびに得る(_t_1,_t_2,_dt,[]) :- _t_1 > _t_2,!.
疑似円座標をならびに得る(_t_1,_t_2,_dt,[[X,Y]|R]) :-
　　X is cos(_t_1),
　　Y is sin(_t_1),
　　_t_3 is t_1 + _dt,
　　疑似円座標をならびに得る(_t_3,_t_2,R).

>>77
% Prolog (半径が1に固定というのはちょっと具合が悪かった)

疑似円を描く(_半径) :-
　　疑似円座標をならびに得る(_半径,L),
　　疑似円を描く(L).

疑似円を描く([[X1,Y1],[X2,Y2]]) :- 線分の描写(X1,Y1,X2,Y2).
疑似円を描く([[X1,Y1],[X2,Y2]|R]) :-
　　線分の描写(X1,Y1,X2,Y2),
　　疑似円を描く(R).

疑似円座標をならびに得る(_半径,L) :-
　　_2π is 2 * pi,
　　_dt is _2π / 100,
　　疑似円座標をならびに得る(0.0,_2π,_dt,_半径,L).

疑似円座標をならびに得る(_t_1,_t_2,_dt,_,[]) :- _t_1 > _t_2,!.
疑似円座標をならびに得る(_t_1,_t_2,_dt,_半径,[[X,Y]|R]) :-
　　X is _半径 * cos(_t_1),
　　Y is _半径 * sin(_t_1),
　　_t_3 is t_1 + _dt,
　　疑似円座標をならびに得る(_t_3,_t_2,_dt,_半径,R). /* ここも直しました *

http://pc12.2ch.net/test/read.cgi/tech/1255709298/719
# [1] 授業単元：画像処理Ｃプログラミング
# [2] 問題文(含コード&リンク)： 基本プログラムを元に各処理を行う
# 　　　基本プログラム：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10083.txt
# 　　処理内容：　ある画像に円形・方形切り出し
# ラベリング、縮退・膨張の処理を行う
# 処理結果例は画像参照
# 　　処理結果例: http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10084.zip

>>75 の問題文は以下。 (Cのソースを読まないと何をやってるか分からない)
# 初めて呼損が起こるまでに確率できた通信回数を評価したい。
# 次のプログラムに追加して、以下の方法で評価を行うプログラムを完成させてください。
#
# 1、ランダムに送受信ノードを決定する
# 2、与えられた送受信ノード間の経路を決定する
# (a)その経路上の全てのリンクに空き容量がある場合、それらを1Mbpsだけ減少させ、「確率できた通信回数」を1増やし、手続き1に戻る
# (b)その経路上に空き容量のないリンクが存在する場合、呼損とし、その時点までの「確率できた通信回数」を記録して手続き3に進む。
# 3、全リンクの空き容量を初期状態に戻し、手続き1に戻る
# 4、1〜3の手続きを1000回行い、「初めて呼損が起こるまでに確立できた通信回数」の平均を算出する。

http://pc12.2ch.net/test/read.cgi/tech/1200175247/704
# B列に１万近くの数値があり、そこから特定の範囲(例えば１００〜１０１など)に適した数値を
# 指定したセルに抽出し、複数ある場合はそのしたに並べて抽出するようなプログラムを作りたいのですが、
# どのようにしたらよいでしょうか？

>>83 意味不明のところがあるけど、
% Prolog

t2_83(_抽出値範囲キーならび,_抽出ならび) :-
　　'B列の生成'(B列),
　　抽出ならびの初期化(_初期抽出ならび),
　　t2_83(_抽出値範囲キーならび,B列,_初期抽出ならび,_抽出ならび).

t2_83([],B列,X,X).
t2_83([[_値範囲|_キー]|R1],B列,_抽出ならび,X) :-
　　'B列から値抽出'(B列,_値範囲,_値ならび),
　　抽出ならびの更新(_値ならび,_キー,_抽出ならび,_更新された抽出ならび),
　　t2_83(R,B列,_更新された抽出ならび,X).

'B列から値抽出'(B列,_値下限-_値上限,_値ならび) :-
　　findall(_値,(member(_値,B列),_値>=_値下限,_値=<_値上限),_値ならび).

抽出ならびの更新([],_,X,X).
抽出ならびの更新([_値|R],_キー,_抽出ならび,_更新された抽出ならび) :-
　　list_nth(_キー,_抽出ならび,L1),
　　append(L1,[_値],L2),
　　位置指定によるならびの置換(_キー,L2,_抽出ならび,_置換された抽出ならび),
　　抽出ならびの更新(R,_キー,_置換された抽出ならび,_更新された抽出ならび).

'B列の生成'(B列) :- findall(_値,(for(1,N,10000),_値 is random mod 10000),B列).

抽出ならびの初期化([[],[],[],[],[],[],[],[],[],[]]).

>>84
行数制限にかかるので、ちょっとズルをしているが、本来は

位置指定によるならびの置換/4 (これ未定義!)の所はカウントしながら再帰処理を
するところ。

http://pc12.2ch.net/test/read.cgi/tech/1255709298/725
# [1] 授業単元： アルゴリズム[I]
# [2] 問題文(含コード&リンク)：a,b,c,d,eの5文字をアルファベットとして
# 　重複なく4文字をで構成される全てのwordのなかで部分文字列として、
# 　ad,bd,deを含まないものを表示せよ
# [3] 環境
# 　[3.1] OS： Linux
# 　[3.2] コンパイラ名とバージョン： gcc 3.4
# 　[3.3] 言語： C
# [4] 期限： 11月11日
# [5] その他の制限 :

>>86
% Prolog

'a,b,c,d,eの5文字をアルファベットとして重複なく4文字で構成される全てのwordのなかで部分文字列として、ad,bd,deを含まないものを表示' :-
　　順列([a,b,c,d,e],4,L),
　　\+(append(_,[a,d|_],L)),
　　\+(append(_,[b,d|_],L)),
　　\+(append(_,[d,e|_],L)),
　　atom_chars(_語,L),
　　write_formatted('%t\n',[_語]),
　　fail.
'a,b,c,d,eの5文字をアルファベットとして重複なく4文字で構成される全てのwordのなかで部分文字列として、ad,bd,deを含まないものを表示'.

% *** user: '順列' / 3 ***
'順列'(Y,0,[]).
順列(Y,N,[A|X]) :-
　　del(A,Y,Z),
　　M is N - 1,
　　順列(Z,M,X).

% *** user: del / 3 ***
del(A,[A|X],X).
del(A,[B|X],[B|Y]) :-
　　del(A,X,Y).

http://pc12.2ch.net/test/read.cgi/tech/1255709298/733
# [1] 授業単元：卒業研究
# [2] 問題文：白黒濃淡画像をガンマ補正するプログラムを作る

>>89
% Prolog

ガンマ補正(_画像ファイル,_Headerの長さ,_ガンマ補正,_補正された画像ファイル) :-
　　open(_画像ファイル,read,Input,[type(binary)]),
　　open(_補正された画像フィル,write,Output,[type(binary)]),
　　for(1,N,_Headerの長さ),
　　get_byte(C),
　　put_byte(C),
　　N=_Headerの長さ,
　　get_byte(Input,C2),
　　ガンマ補正(C2,Input,Output),
　　close(Output),
　　close(Input),!.

ガンマ補正(-1,_,_,_) :- !.
ガンマ補正(C,Input,Output,_ガンマ補正) :-
　　_補正された値 is truncate(floor((( C / 255 ) ^ (1 / _ガンマ補正)) * 255 + 0
.5)),
　　put_byte(_補正された値),
　　get_byte(Input,C2),
　　ガンマ補正(C2,Input,Output,_ガンマ補正).

>>89 訂正
% Prolog

ガンマ補正(_画像ファイル,_Headerの長さ,_ガンマ補正,_補正された画像ファイル) :-
　　open(_画像ファイル,read,Input,[type(binary)]),
　　open(_補正された画像フィル,write,Output,[type(binary)]),
　　for(1,N,_Headerの長さ),
　　get_byte(Input,C),　　 /* 訂正箇所 */
　　put_byte(Output,C),　　/* 訂正箇所 */
　　N=_Headerの長さ,
　　get_byte(Input,C2),
　　ガンマ補正(C2,Input,Output),
　　close(Output),
　　close(Input),!.

ガンマ補正(-1,_,_,_) :- !.
ガンマ補正(C,Input,Output,_ガンマ補正) :-
　　_補正された値 is truncate(floor((( C / 255 ) ^ (1 / _ガンマ補正)) * 255 + 0.5)),
　　put_byte(Output,_補正された値),　　/* 訂正箇所 */
　　get_byte(Input,C2),
　　ガンマ補正(C2,Input,Output,_ガンマ補正).

>>89 すみません。さらに訂正。引数が同じになってしまった。述語名を変えます。
% Prolog

ガンマ補正(_画像ファイル,_Headerの長さ,_ガンマ補正,_補正された画像ファイル) :-
　　open(_画像ファイル,read,Input,[type(binary)]),
　　open(_補正された画像フィル,write,Output,[type(binary)]),
　　for(1,N,_Headerの長さ),
　　get_byte(Input,C),
　　put_byte(Output,C),
　　N=_Headerの長さ,
　　get_byte(Input,C2),
　　ガンマ補正の一(C2,Input,Output,_ガンマ補正),
　　close(Output),
　　close(Input),!.

ガンマ補正の一(-1,_,_,_) :- !.
ガンマ補正の一(C,Input,Output,_ガンマ補正) :-
　　_補正された値 is truncate(floor((( C / 255 ) ^ (1 / _ガンマ補正)) * 255 + 0.5)),
　　put_byte(Output,_補正された値),
　　get_byte(Input,C2),
　　ガンマ補正の一(C2,Input,Output,_ガンマ補正).

http://pc12.2ch.net/test/read.cgi/tech/1255709298/651
# [1] 授業単元： Ｃ言語演習
# [2] 問題文(含コード&リンク)：
# 正の整数nの２乗の数に、２種類の数字しか現れない
# 4桁の正の整数 n をすべて挙げなさい

>>92 ごめんこれは>>59と同じだった。実は問題が間違っていたという新解釈登場。

http://pc12.2ch.net/test/read.cgi/tech/1255709298/752
# 正の整数nを２乗して得られる4桁の整数のうち、
# ２種類の数字しか現れないものをすべて挙げなさい

>>93
% Prolog これだと単純にすべて2乗して確かめる方法で済んでしまう。

t2_93 :-
　　'正の整数nを２乗して得られる4桁の整数のうち、２種類の数字しか現れないものをすべて挙げる'(N),　　
　　write_formatted('%t\n',[N]),
　　fail.
t2_93.

'正の整数nを２乗して得られる4桁の整数のうち、２種類の数字しか現れないものをすべて挙げる'(N) :-
　　Max is trunscate(sqrt(9999)),
　　for(1,N,Max),
　　N1 is N * N,
　　number_chars(N1,L),
　　'2種類の数字しか現れない'(L).

'2種類の数字しか現れない'([A|R]) :- \+(R=[]),all(R,B),\+(B==A).

>>93 またまた違った。'2種類の数字しか現れない'/1を変更
% Prolog

t2_93 :-
　　'正の整数nを２乗して得られる4桁の整数のうち、２種類の数字しか現れないものをすべて挙げる'(N),　　
　　write_formatted('%t\n',[N]),
　　fail.
t2_93.

'正の整数nを２乗して得られる4桁の整数のうち、２種類の数字しか現れないものをすべて挙げる'(N) :-
　　Max is trunscate(sqrt(9999)),
　　for(1,N,Max),
　　N1 is N * N,
　　number_chars(N1,L),
　　'2種類の数文字しか現れない'(L).

'2種類の数文字しか現れない'([A|R]) :-
　　ならびから削除(A,R,R1),
　　\+(R1=[]),
　　all(R1,_).

% *** user: 'ならびから削除' / 3 ***
ならびから削除(_,[],[]) :- !.
ならびから削除(_削除する要素,[_削除する要素|_残り対象ならび],_削除されたなら
び) :-
　　ならびから削除(_削除する要素,_残り対象ならび,_削除されたならび),!.
ならびから削除(_削除する要素,[_要素|_残り対象ならび],[_要素|_残り削除ならび])
:-
　　ならびから削除(_削除する要素,_残り対象ならび,_残り削除ならび),!.

http://sum2cha.blogpico.com/archives/2017 レス番号182
# [1] 授業単元：アルゴリズム
# [2] 問題文：数値を１から10まで出力する。ただし、５まで出力した時点で
# 一度改行する

>>96
% Prolog

'数値を１から10まで出力する。ただし、５まで出力した時点で一度改行する' :-
　　for(1,N,10),
　　write(N),
　　'ただし、５まで出力した時点で一度改行する'(N),
　　N = 10.

'ただし、５まで出力した時点で一度改行する'(5) :- nl,!.
'ただし、５まで出力した時点で一度改行する'(_).

>>96
% Prolog

t :- for(1,N,10),write(N),t(N),N=10.

t(5) :- nl,!.
t(_).

>>96
% Prolog

t :- t(1).

t(N) :- N > 10,!.
t(5) :- write(5),nl,t(6),!.
t(N) :- write(N),N2 is N + 1,t(N2).

>>96
% Prolog

t :- t(1).

t(N) :- N > 10.
t(5) :- write(5),nl,t(6).
t(N) :- N >= 1,N =< 10,\+(N=5),write(N),N2 is N + 1,t(N2).

http://sum2cha.blogpico.com/archives/2017 レス番号297
# 3より大きく、入力された上限の数未満の全ての自然数かつ非素数について、
# 3で割り切れるものは無視し、3で割った余りが1のものは加算し、
# 余りが2のものは減算して合計を求めよ

>>101
% Prolog
'3より大きく、入力された上限の数未満の全ての自然数かつ非素数について、3で割り切れるものは無視し、3で割った余りが1のものは加算し、余りが2のものは減算して合計を求める'(_上限値,_合計) :-
　　t2_101(4,_上限値,_合計).

t2_101(N,_上限値,0) :- N >= _上限値,!.
t2_101(N,_上限値,_合計) :-
　　\+(素数である(N)),
　　2 N mod 3,
　　N2 is N + 1,
　　t2_101(N2,_上限値,_合計2),
　　_合計 is _合計2 - N.
t2_101(N,_上限値,_合計) :-
　　\+(素数である(N)),
　　1 N mod 3,
　　N2 is N + 1,
　　t2_101(N2,_上限値,_合計2),
　　_合計 is _合計2 + N.
t2_101(N,_上限値,_合計) :-
　　N2 is N + 1,
　　t2_101(N2,_上限値,_合計).

素数である(N) :- N2 is N // 2,for(2,M,N2),0 is N mod M,!,fail.
素数である(_).

>>17
NB.J言語
NB.問題1
f=:a.{~97+i.

>f 6
abcdef

>>17
NB.J言語
NB.問題2
f=:verb def '+/a*+./0=3 5|"0 1 [a=.>:i.y'

>f 10
33
>f 100
2418

OCNのアクセス封鎖中に、C/C++の宿題スレがどんどん進んでしまって、
余程連投しない限り追いつけなくなりました。ここ5日分は省きます。
http://nojiriko.asia/prolog/index.html にはその間の解答を12個
くらい解答を載せてあります。

>>105 12課題どころか28課題あるようなので、リンクを示します。
c2-の後の番号が各宿題スレのレス番号になります。
<A HREF="http://nojiriko.asia/prolog/c2_713.html">c2-713:カエサル暗号の復号</A>
<A HREF="http://nojiriko.asia/prolog/c2_817.html">c2-817:借金の定額返済。何年で返済できるか</A>
<A HREF="http://nojiriko.asia/prolog/shiharaigaku.html"> :ローンの支払い</A>
<A HREF="http://nojiriko.asia/prolog/c2_821.html">c2-812:2進数の1の補数</A>
<A HREF="http://nojiriko.asia/prolog/c2_825.html">c2-825:1から20までを表示する</A>
<A HREF="http://nojiriko.asia/prolog/c2_832.html">c2-832:最大値と置換することによって整列する</A>
<A HREF="http://nojiriko.asia/prolog/c2_833.html">c2-833:対称行列とは</A>
<A HREF="http://nojiriko.asia/prolog/c2_834.html">c2-834:文字列の結合</A>
<A HREF="http://nojiriko.asia/prolog/c2_836.html">c2-836:語の辞書順整列</A>
<A HREF="http://nojiriko.asia/prolog/c2_840.html">c2-840:グー・チョキ・パー</A>
<A HREF="http://nojiriko.asia/prolog/c2_949.html">c2-949:欠落部分の認識</A>
<A HREF="http://nojiriko.asia/prolog/c2_950.html">c2-950:１ポンドは何ドルか</A>

<A HREF="http://nojiriko.asia/prolog/py954.html">py-954:1000よりも小さいすべて
の「3または5の倍数」の合計を計算し，結果を表示するプログラム</A>
<A HREF="http://nojiriko.asia/prolog/c2_956.html">c2-956:示された手順に従って入力された値の最大値を表示する</A>
<A HREF="http://nojiriko.asia/prolog/c2_990.html">c2-990:試験の個人平均点による評価</A>
<A HREF="http://nojiriko.asia/prolog/c2_990_2.html">c2-990:試験の個人平均点による評価</A>
<A HREF="http://nojiriko.asia/prolog/py_964.html">py_964:一時ディレクトリ</A>
<A HREF="http://nojiriko.asia/prolog/py_972.html">py_972:繰り返し処理</A>
<A HREF="http://nojiriko.asia/prolog/c132_42.html">c132-42:繰り返し処理・findall/3,for/3,sub_atom/5</A>
<A HREF="http://nojiriko.asia/prolog/c132_42.html">c132-43:代入に関してC言語とPrologの差異</A>
<A HREF="http://nojiriko.asia/prolog/c132_50.html">c132-50:繰り返し処理・reverse,sub_atom/5</A>
<A HREF="http://nojiriko.asia/prolog/c132_62.html">c132-62:選択表示・reverse,sub_atom/5</A>
<A HREF="http://nojiriko.asia/prolog/c132_64.html">c132-64:キーボードから10人分の身長を入力し、 </A>

<A HREF="http://nojiriko.asia/prolog/c132_68.html">c132-68:あなたのIPアドレスは</A>
<A HREF="http://nojiriko.asia/prolog/c132_72.html">c132-72:一文字分、整数の文字表現が増えると文字ごとの累計順位が変化する</A>
<A HREF="http://nojiriko.asia/prolog/c132_74.html">c132-74:行列に値の格納とその読み出し</A>
<A HREF="http://nojiriko.asia/prolog/c132_76.html">c132-76:文章中のアルファベットと数字の出現度数</A>
<A HREF="http://nojiriko.asia/prolog/c132_88.html">c132-88:アルファベットの1つ後ろの文字だけ表示</A>

http://pc12.2ch.net/test/read.cgi/tech/1258158172/97
# struct meibo {char name[20];int eigo; int kokugo;}
# みたいな構造体でmeibo_t[]にループでどんどんデータを入れて生きたいのですがどうすれば良いですか？
# int a= 0; meibo[a]=みたいにするとエラーがでますし、何か[0]にどんどん数字が足されてるような気がします
# };
#

>>109
% Prolog

meibo(L) :-
findall(L2,(get_line(Line),split(Line,[','],L2)),L).

>>110 end_of_fileを認識させるのを忘れた!

membo(L) :-
　　findall(L2,(get_line(Line),(Line=end_of_file,!,fail;split(Line,[','],L2))),L).

>>111 ますます大変な失敗!! get_line/1は非決定性ではなかった。repeat/1が必要。

membo(L) :-
　　findall(L2,(repeat,get_line(Line),(Line=end_of_file,!,fail;split(Line,[','],))),L).

昨夜の出題なのですが、これだけは載せておきましょう

http://pc12.2ch.net/test/read.cgi/tech/1258158172/81
# [1] 授業単元： C++
# [2] 問題文(含コード&リンク)：公開鍵と秘密鍵を作り、これらを使い暗号化と復号
化を行うプログラムを書け。（RSA暗号）
# [4] 期限： 2009/11/17朝まで
# 暗号化と復号化の手順は
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10129.txt
#

http://pc12.2ch.net/test/read.cgi/tech/1258158172/123
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# 文字列GHIJKLMABCDERSTUVWFNOPQXYZに対して入力した文字列の第１文字目と第２文字目の間にある文字列を表示するプログラムを作る。
# 例：入力文字列がCQであったときCDERSTUVWFNOPQを表示する。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/118
# [1] 授業単元：C言語
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10132.txt
#
# コンピューターに関数randを使用して０〜９９の整数を作らせ、
# キーボードより数を入力し、
# コンピューターの作った数の方が大きければ「もっと大きいです」と表示し、再入力
# コンピューターの作った数の方が小さければ「もっと小さいです」と表示し、再入力
# コンピューターの作った数と一致すれば「当たりです」と表示し、終了
# 入力時には、何回目のトライかも表示すること。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/132
# [1] 授業単元：C言語入門
# [2] 問題文(含コード&リンク)：txtファイルを複製するGUIプログラムを作りなさい
# [5] その他の制限：要望なのですが、ＯＫボタンを押すとコピーができるようなものになっているとありがたいです。
#

>>114
% Prolog

文字列('GHIJKLMABCDERSTUVWFNOPQX').

文字列から入力された第１文字目と第２文字目の間にある文字列を取り出して表示
する(_第１文字目,_第２文字目,_表示する副文字列) :-
　　文字列(_文字列),
　　atom_chars(_文字列,Chars),
　　append(_,[_第１文字目|R1],Chars),
　　append(Chars2,[_第２文字目|_],R1),
　　atom_chars(_表示する副文字列,Chars2),
　　write_formatted('%t\n',[_表示する副文字列]).

>>113
python
ttp://www1.axfc.net/uploader/File/so/34414.txt

>>114
python

input1 = 'C'
input2 = 'Q'

str = 'GHIJKLMABCDERSTUVWFNOPQXYZ'
print str[str.index('C'):str.index('Q')+1]

>>115
python(インデントがおかしいかも)

import random
x = random.randint(0,99)
y = -1
cnt = 0
while x != y:
if y < x:
print u'もっと大きいです'
elif y > x:
print u'もっと小さいです'
print u'試行回数 : ' + unicode(cnt)
cnt += 1
y = input(u'Input your answer: ' )
print u'当たりです ' + unicode(x)

>>115
% Prolog

http://nojiriko.asia/prolog/c132_118.html

>>116
python

from easygui import *
import sys,shutil

source = open('./src.dat','w')
source.write('test')
source.close()


r = msgbox(u'こぴーしますか？','Copy',ok_button='OK')
if r != None:
shutil.copyfile('./src.dat','./dst.dat')

>>114
% Prolog 実際にはライブラリから述語sub_atom/10を使って、
% http://nojiriko.asia/prolog/t264_u.html

'2つの文字に挟まれた副文字列'(_文字列,_第一文字目,_第二文字目,_副文字列) :-
　　sub_atom(_文字列,_,1,_,_,_第一文字目,_残り文字列,_,_,_),
　　sub_atom(_残り文字列,_,1,_,_副文字列,_第二文字目,_,_,_,_).

% 表示は省略した。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/141
# [1] 授業単元：Ｃ言語
# [2] 問題文：
# 整数値として入力された数を素因数分解するプログラムを作成せよ。
# 表示は、612 = 2^2*3^2*17のようにする、これは2の2乗×3の2乗×17という意味であ
る
#
# 普通に全部×で表示するものはできたんですが、612 = 2^2*3^2*17と^をつかい、〜の何乗と表現するやり方がわかりませんでした。
# よろしくおねがいします。
#

http://pc12.2ch.net/test/read.cgi/tech/1258158172/140
#
# 多重繰り返し文を使って，z=1-(x^2+y^2)とz=0平面とで 囲まれる領域の体積の近似値を求めよ．
#
# です。よろしくおねがいします。
#

>>124
% Prolog
素因数分解表示(N) :- 素因数分解(N,X),write_formatted('%t = %t\n',[X]).

素因数分解(N,X) :- 素因数分解(2,N,N,0,[],L),素因数分解項構成(L,X).

素因数分解(U,M,N,C,X,X) :- U >= N // 2,!.
素因数分解(U,M,N,0,Y,X) :- member(J^_,Y),0 is U mod J,U2 is U + 2,素因数分解(U2,N,N,0,Y,X),!.
素因数分解(2,M,N,0,Y,X) :- \+(0 is M mod 2),素因数分解(3,N,N,0,Y,X),!.
素因数分解(2,M,N,C,Y,X) :- \+(0 is M mod 2),素因数分解(3,N,N,0,[2^C|Y],X),!.
素因数分解(U,M,N,0,Y,X) :- \+(U=2),\+(0 is M mod U),U2 is U + 2,素因数分解(U2,N,N,0,Y,X),!.
素因数分解(U,M,N,C,Y,X) :- \+(U=2),\+(0 is M mod U),U2 is U + 2,素因数分解(U2,N,N,0,[U^C|Y],X),!.
素因数分解(U,M,N,C,Y,X) :- 0 is M mod U,C2 is C + 1,M1 is M // U,素因数分解(U,M1,N,C2,Y,X).

素因数分解項構成([A],A) :- !.
素因数分解項構成([A|R1],B * A) :- 素因数分解項構成(R1,B).

http://pc12.2ch.net/test/read.cgi/tech/1258158172/148
# それほど長くないアドレス帳の製作をお願いします。
#

>>127
% Prolog

アドレス帳に追加(_氏名,_電話番号ならび,_アドレス) :- assertz(アドレス帳(_氏名,_電話番号ならび,_アドレス)).

アドレス帳から削除(_氏名,_電話番号ならび,_アドレス) :- retract(アドレス帳(_氏名,_電話番号ならび,_アドレス)).

アドレス帳から重複削除(_氏名,_電話番号ならび,_アドレス) :-
　　retract(アドレス帳(_氏名,_電話番号ならび,_アドレス)),
　　write_formatted('%t\t%t\t%t\t\n',[_氏名,_電話番号ならび,_アドレス]),
　　write('この節を削除しますか y or n : '),get_line(Line),
　　アドレス帳から重複削除の二(_氏名,_電話番号ならび,_アドレス).
　　fail.
アドレス帳から重複削除(_氏名,_電話番号ならび,_アドレス).

アドレス帳から重複削除の二(y,_氏名,_電話番号ならび,_アドレス) :- !.
アドレス帳から重複削除の二(y,_氏名,_電話番号ならび,_アドレス) :-
　　\+(Line = y),
　　asserta(アドレス帳(_氏名,_電話番号ならび,_アドレス)),!.

アドレス帳を表示(_氏名) :-
　　アドレス帳(_氏名,_電話番号ならび,_アドレス),
　　write_formatted('\n%t\t%t\t%t\t\n',[_氏名,_電話番号ならび,_アドレス]).

>>125
% Prolog

c132_125(_刻み数,_体積の近似値) :-
　　_刻み is 1 / _刻み数,
　　断面積の積み上げ(_刻み,0.0,L),
　　台形の積み上げ(L,_刻み,_体積の近似値).

断面積の積み上げ(_刻み,P,[]) :- P > 1.0,!.
断面積の積み上げ(_刻み,P,[U1|R]) :-
　　U1 is (sqrt((P-1.0) * (-1.0)) ^ 2) * pi,
　　P2 is P + _刻み,
　　断面積の積み上げ(_刻み,P2,R).

台形の積み上げ([A,B],H,S) :- S is (A + B) / 2 * H,!.
台形の積み上げ([A,B|R],H,S) :-
　　U is (A + B) / 2 * H,
　　台形の積み上げ([B|R],H,S1),
　　S is S1 + U.

http://pc12.2ch.net/test/read.cgi/tech/1248012902/487
#【　課題　】http://ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/834.txt
# [4] 探索問題のアルゴリズムについて，以下の問いに答えよ
# (1) 大きな者から順にデータが並んでいる配列を対象とする，2 分探索のプ
# ログラムコードを示せ． プログラムインタフェース(API) は
# bsearch(int key)とする．
#
# (2) 配列を対象とする番兵法を用いない線形探索のプログラムを書け．プロ
# グラムインタフェース(API)はlsearch(int key)とする．
#
# (3) 配列を対象とする番兵法を用いる線形探索のプログラムを書け．ただし，
# データが満杯になることはないと仮定して良い．プログラムインタフェ
# ース(API)はssearch(int key)とする．
#
# [5] キューを配列で表現したとき，データをキューに挿入するinsert(int i)
# とデータをキューから取り除くremove()のプログラムコードを示せ．ただし
# キューが満杯になることは考えなくても良い．つまりリングキューにする必要
# はない．
#
# [6] 連結リストでスタックを表現したとき，データをスタックに挿入する
# push(int i)とデータをスタックから取り除くpop()のプログラムコードを示
# せ．ただしスタックが空の時にpop が呼ばれたときには，エラーメッセージを
# 出すようにすること．（連結リストを使うと，原理的にはスタックが満杯になる
# ことはないので，push におけるエラーメッセージは不要）

>>130
% Prolog
% [5]
insert(E,X-[E|Y],X-Y).

remove(E,[E|X]-Y,X-Y).

new(X-X).

empty(X-Y) :- X == Y.
% remove/3は組込述語として存在する。ここでは別にユーザが登録可能とした。
% ?- remove([c,d],[a,b,c,d,e],X).
% X = [a,b,e]

% [6]
push(I,Stack,[I|Stack]).

pop(I,[I|Stack],Stack).
pop(I,[],[]) :- write('Error:stack empty!\n').

>>130

[4] Prologには配列がないため、中間位置要素を得るのに必ず逐次的に
リストを手繰る必要がある。したがって、この問題の解として意味の
あるプログラムを作ることはできない。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/157
# [1] 授業単元： アルゴリズム&アプリケーション
# [2] 問題文(含コード&リンク)：売掛表がcsvファイルで作られています。
# 各行の情報は、
# 顧客名,前月繰越高,当月入金高,当月売上高,締め日付
# であり、締め日付で昇順に整列していて、見出し等冗長部分はありません。
# 今回は問題を単純化するため、一人の顧客分しか扱わないことにします。
# さて更新プログラムのバグから、或る月の前月繰越高が
# その前月の 前月繰越高-当月入金高+当月売上高 と不整合になってしまいました。
# 不整合になった以降の情報が正しく、
# それ以前の情報の当月入金高、当月売上高、締め日付については誤りがないとして、
# 1) 不整合部分を探し
# 2) それ以前のすべての前月繰越高を全体が整合するように書き換えなさい。
# ファイルは一旦別のファイル(例えば/tmp/xxxxxx)に正しいものをつくり、
# その後、元のcsvファイルに書き戻しなさい。
# [5] その他の制限： 日付などの持ち方は自由に工夫してよい。

>>133
% Prolog
http://nojiriko.asia/prolog/c132_157.html

http://pc12.2ch.net/test/read.cgi/tech/1258320456/20
# ある自然数nについて，nの約数のうち，nより小さいものの和がnと一致するとき，nは完全数と呼ばれる．
#
# たとえば，6の約数は 1, 2, 3, 6 であり，
#
# 6 = 1 + 2 + 3
#
# なので，6は完全数である．
#
# 1000以下のすべての完全数を表示するプログラムを作成せよ．
#

>>135
% Prolog

py2_20 :- for(1,N,1000),完全数(N),write_formatted('%t\n',[N]),N=1000,!.
py2_20.

完全数(N) :- findsum(M,(for(1,M,N),0 is N mod M,M < N),X),N is truncate(X).

http://pc12.2ch.net/test/read.cgi/tech/1258158172/158
# [1] 授業単元： プログラム演習
# [2] 問題文(含コード&リンク)：
# 整数nを読み込み、最外周の長さnの数字のとぐろをまいた図を出力するプログラムを作りなさい。
#

http://pc12.2ch.net/test/read.cgi/tech/1258158172/168
# [1] 授業単元：C言語とアルゴリズム
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10137.txt
# [課題1-1]　線形探索
# 　キーボードから1から30までの整数を入力し、配列 a に対して入力値の線形探索を行い、見つかった
# 結果をすべて表示するプログラムを作成しなさい.ただし、配列 a は1から30までの乱数が100個入って
# いるとする.また、入力の前に配列 a の内容を10個ずつ区切って表示しなさい.
#
# [課題1-2]　線形探索（番兵法）
#　番兵法を用いて課題1-1のプログラムを書き換え,キーボードからの入力値が1〜30以外の場合、あるいは
# 配列 a に目的のデータが存在しない場合に「見つかりませんでした」と表示するプログラムを作成しなさい.
# ただし、目的のデータが存在する場合は,最初に見つかった要素だけ表示させること.
#

http://pc12.2ch.net/test/read.cgi/tech/1258158172/172
# 論理の問題ですが
#
# 95年「ここ数年で一番出来が良い」
# 96年「10年に1度の逸品」
# 97年「1976年以来の品質」
# 98年「10年に1度の当たり年」
# 99年「品質は昨年より良い」
# 00年「出来は上々で申し分の無い仕上がり」
# 01年「ここ10年で最高」
# 02年「過去10年で最高と言われた01年を上回る出来栄え」「1995年以来の出来」
# 03年「100年に1度の出来」「近年にない良い出来」
# 04年「香りが強く中々の出来栄え」
# 05年「ここ数年で最高」
# 06年「昨年同様良い出来栄え」
# 07年「柔らかく果実味が豊かで上質な味わい」
# 08年「豊かな果実味と程よい酸味が調和した味
# 09年「５０年に１度の出来栄え」
#
# です

http://pc12.2ch.net/test/read.cgi/tech/1248012902/493
# 【　課題　】http://ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/840.txt
#
# 入力した10進数の数字を表示し、10進数を2進数に、10進数を36進数に変換し、表示する。
# 36進数は{0〜9，A〜Z}の文字を使用しなければいけない。

http://pc12.2ch.net/test/read.cgi/tech/1258320456/30
# 1. 引数nを与えると，nが素数の時はTrueを，素数でないときはFalseを返す関数prime(n) を定義せよ．
# 2. 関数 prime(n) を使用して，1000以下の素数をすべて表示するプログラムを書け．見つかった個数も表示すること．
#
# Hint
#
# 1. 素数とは，1とその数自身のみを約数に持つ数である(ただし，1を除く)．
# 2. 言い換えると，2からn-1までのいずれでもnが割り切れない場合，nは素数である(ただし，n > 2の場合)．
# 3. または，2からn-1までのいずれか1つでもnを割り切ることができる場合，nは素数ではない(同上)．
#

>>139
% Prolog 何をするにせよ、第一段階w 第二引数の論理的な解析はじっくり楽しませていただきます。

ボージョレ・ヌーボーの謳い文句('95年','ここ数年で一番出来が良い').
ボージョレ・ヌーボーの謳い文句('96年','10年に1度の逸品').
ボージョレ・ヌーボーの謳い文句('97年','1976年以来の品質').
ボージョレ・ヌーボーの謳い文句('98年','10年に1度の当たり年').
ボージョレ・ヌーボーの謳い文句('99年','品質は昨年より良い').
ボージョレ・ヌーボーの謳い文句('00年','出来は上々で申し分の無い仕上がり').
ボージョレ・ヌーボーの謳い文句('01年','ここ10年で最高').
ボージョレ・ヌーボーの謳い文句('02年','過去10年で最高と言われた01年を上回る出来栄え,1995年以来の出来').
ボージョレ・ヌーボーの謳い文句('03年','100年に1度の出来,近年にない良い出来').
ボージョレ・ヌーボーの謳い文句('04年','香りが強く中々の出来栄え').
ボージョレ・ヌーボーの謳い文句('05年','ここ数年で最高').
ボージョレ・ヌーボーの謳い文句('06年','昨年同様良い出来栄え').
ボージョレ・ヌーボーの謳い文句('07年','柔らかく果実味が豊かで上質な味わい').
ボージョレ・ヌーボーの謳い文句('08年','豊かな果実味と程よい酸味が調和した味').
ボージョレ・ヌーボーの謳い文句('09年','５０年に１度の出来栄え').

>>142
% Prolog 第二段階w たとえば・・

ここ数年で一番出来が良い(_年産) :-
　　出来が良い(_年産,_出来具合),
　　ここ数年(_年産,Term),
　　findall(_出来具合2,(member(_年産2,Term),ボージョレ・ヌーボー(_年産2,_出来具合2)),_ここ数年のボージョレ・ヌーボー出来具合ならび),
　　max(_ここ数年のボージョレ・ヌーボー評価ならび,_出来具合).

>>143
% Prolog

ここ数年(_年産,_ここ数年) :-
　　年を切り取る(_年産,_年),
　　定義者の年齢(_年齢),
　　数年は定義者の年齢によって異なる(_年齢,_数年),
　　_起点年 is _年 - _数年,
　　findall(_年産2,(for(_起点年,_年2,_年),concat_atom([_年,年],_年産2)),_ここ数年).

年を切り取る(_年産,_年) :-
　　sub_atom(_年産,S,_,_,年),
　　sub_atom(_年産,0,S,_,_年2),
　　atom_to_term(_年,_年,_).

定義者の年齢(60).

数年は定義者の年齢によって異なる(_年齢,3) :- _年齢 < 70.
数年は定義者の年齢によって異なる(_年齢,5) :- _年齢 >= 70.

>>141
% Prolog

prime(N,'True') :-
　　'素数とは，1とその数自身のみを約数に持つ数である(ただし，1を除く)'(N).
prime(N,'False') :-
　　\+('素数とは，1とその数自身のみを約数に持つ数である(ただし，1を除く)'(N)).

'素数とは，1とその数自身のみを約数に持つ数である(ただし，1を除く)'(N) :-
　　0 is N mod 1,
　　0 is N mod N,
　　\+((for(2,M,N-1),0 is N mod M)),
　　\+(N==1).

>>141
% Prolog

'prime(n) を使用して，1000以下の素数をすべて表示する' :-
　　for(1000,N,1),
　　prime(N,'True'),
　　write_formatted('%t\n',[N]),
　　N = 1.
'prime(n) を使用して，1000以下の素数をすべて表示する'.

>>140
% Prolog これは前スレ875に既出 http://nojiriko.asia/prolog/t875.html
% ここでは少し整理して
http://nojiriko.asia/prolog/j68_493.html

http://pc12.2ch.net/test/read.cgi/tech/1258158172/181
# [1] 授業単元:関数を利用したプログラム
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10144.txt
# 課題内容
# 季節がずれますが，夏の頃の天気予報でよく「不快指数」という言葉を聞いたことがあると思います．
# 不快指数が高いと蒸し暑く，寝ぐるしくなります．
# この不快指数は，気温（正確には乾球気温）と湿度という2つの数値により求められます．
# 気温をt（度），湿度をh(％)とすると，以下の式で不快指数が求められます．
# 不快指数 = 0.81× t + 0.01 × h × (0.99 × t - 14.3) + 46.3#
# この不快指数により，次の表のような感覚を得るようです．
# 不快指数 〜55 〜60 〜65 〜70 〜75 〜80 〜85 85〜
# [問題]
# 2つの浮動小数点型（double型）の値を「気温（度）」と「湿度（％）」を表す値として2つの引数で受け取り，
# それらの値によって求められた不快指数の値（dobule型）を戻り値とする関数をfukaishisuuという関数名で作成しよう．
# さらに，このfukaishisuu関数を利用し，キーボードから気温と湿度の値を入力すると，
# 不快指数の値によって体感を示す言葉を表示するプログラムを作成しよう．

>>143 一ヶ所間違っていた。訂正
% Prolog

ここ数年(_年産,_ここ数年) :-
　　年を切り取る(_年産,_年),
　　定義者の年齢(_年齢),
　　数年は定義者の年齢によって異なる(_年齢,_数年),
　　_起点年 is _年 - _数年,
　　findall(_年産2,(for(_起点年,_年2,_年),concat_atom([_年2,年],_年産2)),_ここ数年).

年を切り取る(_年産,_年) :-
　　sub_atom(_年産,S,_,_,年),
　　sub_atom(_年産,0,S,_,_年2),
　　atom_to_term(_年,_年,_).

定義者の年齢(60).

数年は定義者の年齢によって異なる(_年齢,3) :- _年齢 < 70.
数年は定義者の年齢によって異なる(_年齢,5) :- _年齢 >= 70.

>>148 一行大事な所が抜けていた
# 不快指数 〜55 〜60 〜65 〜70 〜75 〜80　 〜85　　　 85〜
# 　体感 寒い 肌寒い 快適 快適 快適 やや不快 不快 不快でたまらない

>>148
% Prolog

不快指数体感表示(_気温,_湿度) :-
　　不快指数(_気温,_湿度,_不快指数),
　　不快指数体感(_不快指数,_体感),
　　write_formatted('%tです\n',[_体感]).

不快指数(_気温,_湿度,_不快指数) :-
　　_不快指数 is truncate(0.81* _気温 + 0.01 * _湿度 * (0.99 * _気温 - 14.3) +
46.3).

不快指数体感(_不快指数,肌寒い) :- _不快指数 =< 55,!.
不快指数体感(_不快指数,寒い) :- _不快指数 =< 60,!.
不快指数体感(_不快指数,快適) :- _不快指数 =< 65,!.
不快指数体感(_不快指数,快適) :- _不快指数 =< 70,!.
不快指数体感(_不快指数,快適) :- _不快指数 =< 75,!.
不快指数体感(_不快指数,やや不快) :- _不快指数 =< 80,!.
不快指数体感(_不快指数,不快) :- _不快指数 =< 85,!.
不快指数体感(_不快指数,不快でたまらない) :- _不快指数 > 85.

http://pc12.2ch.net/test/read.cgi/tech/1258158172/201
# [1] アルゴリズム
# [2] 手入力したい数列の数をまず入力し、その数だけ数列を手入力します。
# その中に連続数がある場合、その連続数の個数を初めに入力した数から引いた結果を表示。

>>152
% Prolog
http://nojiriko.asia/prolog/c132_201.html

>>140
% Prolog トップレベルだけ書いておきます。入力した数という場合、
% 今後は定義述語の引数として与えることにします。Prologはインタプリタトップからの
% 使用が当たり前で、述語のなかで入力を求めることはほとんどありません。
% これまで、C言語などの様式に従ってきましたが、これからは上記の方針でいきます。

入力した10進数の数字を表示し、10進数を2進数に、10進数を36進数に変換し、表示する
(_10進数) :-
　　Ｎ進数(2,_10進数,_2進数文字列),
　　Ｎ進数(36,_10進数,_36進数文字列),
　　write_formatted('10進数 %t は 2進数表現では %t 36進数表現では %t となります
\n',[_10進数,_2進数,_36進数]).

% Ｎ進数/3の定義は http://nojiriko.asia/prolog/j68_493.html 参照

>>154
% 改行が入ってはいけないところに入ってしまいました。
% 書き直します。

入力した10進数の数字を表示し、10進数を2進数に、10進数を36進数に変換し、表示する(_10進数) :-
　　Ｎ進数(2,_10進数,_2進数文字列),
　　Ｎ進数(36,_10進数,_36進数文字列),
　　write_formatted('10進数 %t は 2進数表現では %t 36進数表現では %t となります\n',[_10進数,_2進数,_36進数]).

% Ｎ進数/3の定義は http://nojiriko.asia/prolog/j68_493.html 参照

http://pc12.2ch.net/test/read.cgi/tech/1258158172/200
# [1] 授業単元： コンピュータアーキテクチャ
# [2] 問題文(含コード&リンク)：
# 以下の仕様を満たすもぐらたたきゲームを作成する。
# ・ 一度に一つ以上の文字を画面上に表示する
# ・ 一定時間以内に表示された文字と同じキーが押されたら得点とする
# ・ キー入力を受け付ける一定時間が過ぎたら文字を消去する
# 以上の処理を一定回数繰り返す
#

>>156
% Prolog
http://nojiriko.asia/prolog/c132_200.html

http://pc12.2ch.net/test/read.cgi/tech/1258158172/211
# [1] 授業単元：プログラミング演習第一
# [2] 問題文：
# #include <stdio.h>
#
# int main(void)
# {
# int t = 6;
#
# if(t >= 6 && t < 12){
# printf("%d時です。おはようございます。\n",t);
# }else if (t >= 12 && t < 18) {
# printf("%d時です。こんにちは。\n",t);
# }else if (t >= 18 && t < 24) || (t >= 0 &&t < 6)){
# printf("%d時です。こんばんは。\n",t);
# }else {
# printf("%d時は時刻の範囲外です。\n",t);
# }
# return 0;
# }
# これのswitch文で書き換えたプログラムを作成しなさい。
# ただし、case文の使用は4回を上限とする。

>>158
% Prolog

switch文を使って条件部分を小さく纏める(T) :-
　　M is T // 6,
　　switch(M,(1:おはようございます(T);2:こんにちは(T);3:こんばんは(T))).

おはようございます(T) :-
　　write_formatted('%t時です。おはようございます。\n',[T]).
こんにちは(T) :-
　　write_formatted('%t時です。こんにちは。\n',[T]).
こんばんは(T) :-
　　write_formatted('%t時です。こんばんは。\n',[T]).

switch(N,N:P) :-
　　call(P).
switch(N,(N:P;R)) :-
　　call(P).
switch(N,(A:P;R)) :-
　　\+(N=A),
　　switch(N,R).

http://pc12.2ch.net/test/read.cgi/tech/1258158172/212
# [1] 授業単元：プログラミング演習
# [2] 問題文：
# 3行3列の実数行列A=［a_ij］とB［b_ij］の積ABを計算せよ。
# ただし、乗算結果の行列を［c_ij］として次の計算を行うものとする。
# 行列の要素への入力は、代入文あるいは初期化子をもちいること。
# c_ij=Σa_ik×b_kj (Σはk=0で、2までです)
#

>>160
% Prolog

行列の掛け算(_行列a,_行列b,_行列c) :-
　　findall(L1,for(1,N,3),length(L1,3),_行列c),
　　findall(W,順列([1,2,3],2,W),_順列),
　　掛け算(_順列,_行列a,_行列b,_行列c),

行列の掛け算([],_,_,_) :- !.
行列の掛け算([[I,J]|R1],_行列a,_行列b,_行列c) :-
　　findsum(U,(　 for(1,K,3),
　　　　　　　　　行列要素(_行列a,I,K,N1),
　　　　　　　　　行列要素(_行列b,K,J,N2),
　　　　　　　　　U is N1 * N2),S),
　　行列要素(_行列c,I,J,S),
　　行列の掛け算(R1,_行列a,_行列b,_行列c).
　
行列要素(_行列,_行,_列,_値) :-
　　list_nth(_行,_行列,_行の値ならび),
　　list_nth(_列,_行の値ならび,_値).

>>161
順列だと [1,1],[2,2],[3,3] が入らないからだめでしょう。
これが入ってるのは何て云ったかな？

>>162
そうだった！ これまでも間違えたところがあったかな・・
「重複順列」。

重複順列(L,N,X) :- length(X,N),重複順列(L,X).
重複順列(L,[]).
重複順列(L,[A|R]) :- member(A,L),重複順列(L,R).

を定義しておく。その上で。

>>160 >>161訂正
% Prolog

行列の掛け算(_行列a,_行列b,_行列c) :-
　　findall(L1,for(1,N,3),length(L1,3),_行列c),
　　findall(W,重複順列([1,2,3],2,W),_重複順列),
　　掛け算(_重複順列,_行列a,_行列b,_行列c),

行列の掛け算([],_,_,_) :- !.
行列の掛け算([[I,J]|R1],_行列a,_行列b,_行列c) :-
　　findsum(U,(　 for(1,K,3),
　　　　　　　　　行列要素(_行列a,I,K,N1),
　　　　　　　　　行列要素(_行列b,K,J,N2),
　　　　　　　　　U is N1 * N2),S),
　　行列要素(_行列c,I,J,S),
　　行列の掛け算(R1,_行列a,_行列b,_行列c).
　
行列要素(_行列,_行,_列,_値) :-
　　list_nth(_行,_行列,_行の値ならび),
　　list_nth(_列,_行の値ならび,_値).

http://pc12.2ch.net/test/read.cgi/tech/1258158172/221
# [1] 授業単元： プログラミング
# [2] 問題文(含コード&リンク)：
# 　http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10149.txt
# メイン関数において、２つの放物線
# 　ｙ＝ａｘ2＋ｂｘ＋ｃ　（ａ≠0）
# 　ｙ＝ｐｘ2＋ｑｘ＋ｒ　（ｐ≠0）
# の係数ａ、ｂ、ｃ、ｐ、ｑ、ｒをキーボードから入力し、その数値を関数に引数として渡す。
# 関数はその数値を用いて２曲線の交点の有無を調べ、その交点の個数を戻り値としてメイン関数に渡す
# （交点が無い場合は０、交点が１つの場合は１、交点が２つの場合は２、交点が無限に存在する場合はー１を戻り値にする）。
# また関数は、もし交点が有限個存在するならばそれらの交点の座標値をメイン関数に渡す。
# メイン関数は関数から得たこれらの情報を得て、交点の個数を画面に表示し、さらにもし交点が有限個存在するならばそれらの座標値を画面に表示する。
# そのようなプログラムを作成せよ。

>>165
% Prolog
二つの放物線の交点(_a,_b,_c,_p,_q,_r,X,Y) :-
　　A is (_a - _p),
　　B is (-b - _q),
　　C is (_c - _r),
　　D is B^2 - 4 * A * C,
　　D > 0,
　　X is ((-1) * B + sqrt(D)) / (2 * A),
　　Y is _a * (X^2) + _b * X + _c.
二つの放物線の交点(_a,_b,_c,_p,_q,_r,X,Y) :-
　　A is (_a - _p),
　　B is (-b - _q),
　　C is (_c - _r),
　　D is B^2 - 4 * A * C,
　　D > 0,
　　X is ((-1) * B - sqrt(D)) / (2 * A),
　　Y is _a * (X^2) + _b * X + _c.
二つの放物線の交点(_a,_b,_c,_p,_q,_r,X,Y) :-
　　A is (_a - _p),
　　B is (-b - _q),
　　C is (_c - _r),
　　D is B^2 - 4 * A * C,
　　D = 0,
　　X is ((-1) * B / (2 * A)),
　　Y is _a * (X^2) + _b * X + _c.

http://pc12.2ch.net/test/read.cgi/tech/1258158172/224
# C++で、ベクトルの加減を行うプログラムを教えてください。
# #include <iostream>
# using namespace std;
# int main() {
#
# return 0;
# }
# 入力→cin　出力→cout
# 配列とforでお願いします。

>>167
% Prolog これも既出
http://nojiriko.asia/prolog/c132_106.html を参照

http://pc12.2ch.net/test/read.cgi/tech/1258158172/236
# [1] C言語プログラミング演習
# [2] 標準入力の文字列に含まれるタブをコマンドラインで与えたサイクルのタブストップでスペースに変換するプログラム
# （コマンドラインに 2 4 2 4 を与えた場合タブを入力したら3 7 10 17 20 27...が桁位置に
# なるようスペースを挿入する）
# 入力は半角文字に限って良い。またコマンドラインからは正の整数を表すものが
# 与えられるとして良い

>>169
% Prolog

標準入力の文字列に含まれるタブをコマンドラインで与えたサイクルのタブストップでスペースに変換する :-
　　user_paramegers(L),
　　findall(N,(member(A,L),atom_to_term(A,N,_)),L2),
　　get_chars(Chars),
　　標準入力の文字列に含まれるタブをコマンドラインで与えたサイクルのタブストップでスペースに変換する(_タブストップサイクル,_タブストップサイクル,Chars,X).

標準入力の文字列に含まれるタブをコマンドラインで与えたサイクルのタブストップでスペースに変換する([],_タブストップサイクル,L2,L3) :-
　　標準入力の文字列に含まれるタブをコマンドラインで与えたサイクルのタブストップでスペースに変換する(_タブストップサイクル,_タブストップサイクル,L2,L3),!.

標準入力の文字列に含まれるタブをコマンドラインで与えたサイクルのタブストップでスペースに変換する(_,_,[],[]) :- !.
標準入力の文字列に含まれるタブをコマンドラインで与えたサイクルのタブストップでスペースに変換する([N|R1],_タブストップサイクル,['\t'|R2],L) :-
　　length(L2,N),
　　all(L2,' '),
　　append(L2,L3,L),
　　標準入力の文字列に含まれるタブをコマンドラインで与えたサイクルのタブストップでスペースに変換する(R1,_タブストップサイクル,R2,L3),!.
標準入力の文字列に含まれるタブをコマンドラインで与えたサイクルのタブストップでスペースに変換する([N|R1],_タブストップサイクル,[A|R2],[A|R3]) :-
　　\+(A='t'),
　　標準入力の文字列に含まれるタブをコマンドラインで与えたサイクルのタブストップでスペースに変換する([N|R1],_タブストップサイクル,R2,R3).

>>170
% Prolog これだと何も起こらない

標準入力の文字列に含まれるタブをコマンドラインで与えたサイクルのタブストップでスペースに変換する :-
　　user_paramegers(L),
　　findall(N,(member(A,L),atom_to_term(A,N,_)),L2),
　　get_chars(Chars),
　　標準入力の文字列に含まれるタブをコマンドラインで与えたサイクルのタブストップでスペースに変換する(_タブストップサイクル,_タブストップサイクル,Chars,X),
　　put_chars(X).

http://pc12.2ch.net/test/read.cgi/tech/1258158172/240
# [1] 授業単元： プログラミング論
# [2] 問題文(含コード&リンク)：
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10150.txt
#
# 問２(1)を書きました。添削・解説お願いします。
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10151.txt
# 問１
# 遊びの金に困ったA君は、サラ金を利用することにした。
# 日歩20銭で１０万円借りた場合、３０日後の利息はいくらでしょうか？
# 複利計算で求めなさい。
#
# 問２
# （１）１０万円を年利４分で預金したとき、１０年後の元利合計を複利計算で求めよ。
# （２）前年の利息がどのくらいずつ増えてゆくか、前年度の利息との差額を表示せよ。

日歩20銭とは(_日歩20銭) :- _日歩20銭 is 20 / 100 / 100.
年利４分とは(0.04).

日歩20銭で１０万円借りた場合、３０日後の利息(_30日後の利息) :-
　　日歩20銭とは(_日歩20銭),
　　_30日後の利息 is _預金 * _日歩20銭^30 - _預金.

１０万円を年利４分で預金したとき、１０年後の元利合計(_10年後の元利合計) :-
　　年利４分とは(_年利4分),
　　_10年後の元利合計 is 100000 * ( 1 + _年利4分) ^ 10.

前年の利息がどのくらいずつ増えてゆくか、前年度の利息との差額を表示 :- 前年の利息がどのくらいずつ増えてゆくか、前年度の利息との差額を表示(1,100000,0).

前年の利息がどのくらいずつ増えてゆくか、前年度の利息との差額を表示(N,_,_) :- N> 10,!.
前年の利息がどのくらいずつ増えてゆくか、前年度の利息との差額を表示(N,_預金額,_前年度の利息) :-
　　年利４分とは(_年利4分),
　　_今年の利息 is _預金額 * _年利4分,
　　_次年度の預金額 is _預金額 * _年利4分,
　　_前年度の利息との差額 is _今年度の利息 - _前年度の利息,
　　write_formatted('%t年後 前年度との利息差額は %t です\n',[N,_前年度の利息との差額]),
　　N2 is N + 1,
　　前年の利息がどのくらいずつ増えてゆくか、前年度の利息との差額を表示(N2,_次年度の預金額,_今年度の利息).

http://pc12.2ch.net/test/read.cgi/tech/1200175247/745
# [1] 授業単元：プログラミング初歩
#
# [2] 問題文(含コード&リンク)：
#
# ・文字列を，a ならば z，b ならば y，c ならば x のように，小文字も大文字もアルファベットの逆順の出現文字に置き換えるプログラムを作りなさい．
# ・文字列が与えられたとき，アルファベットを大文字，小文字を区別せずに出現頻度順に小文字で並べた文字列を返すプログラムを作りなさい．
#

>>174
% Prolog

文字列を，a ならば z，b ならば y，c ならば x のように，小文字も大文字もアルファベットの逆順の出現文字に置き換える(_文字列,_アルファベットの逆順に変換された文字列) :-
　　atom_chars(_文字列,_文字ならび),
　　アルファベット逆順変換(_文字ならび,_アルファベットの逆順に変換された文字ならび),
　　atom_chars(_アルファベットの逆順に変換された文字列,_アルファベットの逆順に変換された文字ならび).

アルファベット逆順変換([],[]).
アルファベット逆順変換([A|R1],[B|R2]) :-
　　逆順アルファベット探索(A,B),
　　アルファベット逆順変換(R1,R2).

逆順アルファベット探索(A,B) :-
　　アルファベットと逆順アルファベット(_,L1,L2),
　　append(L0,[A|_],L1),
　　length(L0,Len),
　　length(L3,Len),
　　append(L3,[B|_],L2).

アルファベットと逆順アルファベット(小文字,[a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z],[z,y,x,w,v,u,t,s,r,q,p,o,n,m,l,k,j,i,h,g,f,e,d,c,b,a]).
アルファベットと逆順アルファベット(大文字,['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'],['Z','Y','X','W','V','U','T','S','R','Q','P','O','N','M','L','K','J','I','H','G','F','E','D','C','B','A']).

>>174
% Prolog 問題文[2]

文字列が与えられたとき，アルファベットを大文字，小文字を区別せずに出現頻度順に小文字で並べた文字列を返す(_文字列,_出現頻度順に文字を並べ替えた文字列) :-
　　atom_chars(_文字列,_文字ならび),
　　出現頻度順に文字ならびを変換(_文字ならび,[],_出現頻度順に並べ替えたもじならび),
　　atom_chars(_出現頻度順に並べ替えたもじならび,_出現頻度順に文字を並べ替えた文字列).

出現頻度順に文字ならびを変換([],Y,X) :-
　　sort(Y,Z),
　　出現頻度ならびから逆順に文字選択(Z,[],X).
出現頻度順に文字ならびを変換([C|R1],Y,X) :-
　　出現頻度ならびをカウントアップ(C,Y,Z),
　　出現頻度順に文字ならびを変換(R1,Z,X).

出現頻度ならびをカウントアップ(C,[],[1,C]) :- !.
出現頻度ならびをカウントアップ(C,[[N,C]|R1],[[N2,C]|R1]) :- N2 is N + 1,!.
出現頻度ならびをカウントアップ(C,[[N,C]|R1],[[N,C]|R2]) :-
　　出現頻度ならびをカウントアップ(C,R1,R2).

出現頻度ならびから逆順に文字選択([],X,X) :- !.
出現頻度ならびから逆順に文字選択([[N,C]|R1],Y,X) :-
　　出現頻度ならびから逆順に文字選択(R1,[C|Y],X).

>>176
% 「大文字・小文字を区別せずに」を見落とした。どこを直せばいいかな・・・
% あ、大変、ここの最終節もまちがっていた！ C => C1

出現頻度ならびをカウントアップ(C,[],[1,C]) :-
出現頻度ならびをカウントアップ(C,[[N,C]|R1],[[N2,C2]|R1]) :-
　　to_lower(C,C2),
　　N2 is N + 1,!.
出現頻度ならびをカウントアップ(C,[[N,C1]|R1],[[N,C1]|R2]) :-
　　出現頻度ならびをカウントアップ(C,R1,R2).

>>177
% 第一節に誤りがあった。
出現頻度ならびをカウントアップ(C,[],[1,C2]) :- to_lower(C,C2),!.
出現頻度ならびをカウントアップ(C,[[N,C]|R1],[[N2,C2]|R1]) :-
　　to_lower(C,C2),
　　N2 is N + 1,!.
出現頻度ならびをカウントアップ(C,[[N,C1]|R1],[[N,C1]|R2]) :-
　　出現頻度ならびをカウントアップ(C,R1,R2).

http://pc12.2ch.net/test/read.cgi/tech/1258158172/280
# [1] 授業単元：プログラミング演習
# [2] 問題文: http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10157.txt
#
# 以下のようなACIIコード表を画面に表示するプログラムを作成、コンパイル、
# 実行しなさい。
# ただし、for文を必ず使用すること。またASCIIコード0x7Fは制御文字であるので、
# break文またはcontinue文を使用して回避すること。
#
# |0 1 2 3 4 5 6 7 8 9 A B C D E F
#---+--------------------------------
# 2 | ! " # $ % & ' ( ) * + , - . /
# 3 |0 1 2 3 4 5 6 7 8 9 : ; < = > ?
# 4 |@ A B C D E F G H I J K L M N O
# 5 |P Q R S T U V W X Y Z [ \ ] ^ _
# 6 |' a b c d e f g h i j k l m n o
# 7 |p q r s t u v w x y z { | } ~

>>179
% Prolog

文字コード表の作成 :-
　　write('　|0 1 2 3 4 5 6 7 8 9 A B C D E F'\n'),
　　write('--+'),for(0,U2,16),write('--'),U2=16,nl,
　　for(2,N,7),
　　write_formatted('%t |',[N]),
　　for(0,M,15),
　　印字可能文字の表示(N,M),
　　M = 15,
　　nl,
　　N = 7.

印字可能文字の表示(7,15) :- !.
印字可能文字の表示(N,M) :-
　　N >= 32,N =< 126,
　　Code is N * 16 + M,
　　char_code(A,Code),
　　write_formatted('%t ',[A]),!.

http://pc12.2ch.net/test/read.cgi/tech/1248012902/509
# 【　課題　】http://nojiriko.asia/jpeg/841.jpg
# 図の有向グラフの最短経路を求めよ。
# 初期値がMAXでアルゴリズムを作れ。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/283
# [1] 授業単元： C言語演習
# [2] 問題文(含コード&リンク)： 以下の掛け算の表示プログラムを作成しなさい。
# 　　　　１　２　３　　４　　５　　６　　７　　８　　９　１０
# 　　　　２　４　６　　８　１０　１２　１４　１６　１８　２０
# 　　　　３　６　９　１２　１５　１８　２１　２４　２７　３０
# 　　　　・
# 　　　　・
# 　　　　・
# 　　　１０・・・　　　　　　　　　　　　　　　　　　　　１００

>>182
% Prolog

九九表示 :-
　　重複順列([1,2,3,4,5,6,7,8,9],2,[M,N]),
　　S is M * N,
　　write_formatted('%3d',[S]),
　　N = 9,
　　nl,
　　fail.
九九表示.

>>183 私は好みませんが、write_fomatted/2は引数に式が可能です。

九九表示 :-
　　重複順列([1,2,3,4,5,6,7,8,9],2,[M,N]),
　　write_formatted('%3d',[M * N]),
　　N = 9,
　　nl,
　　fail.
九九表示.

http://pc12.2ch.net/test/read.cgi/tech/1258158172/290
# [1] 授業単元：プログラム
# [2] 問題文(含コード&リンク)：
# 行列とベクトルの掛け算
# y=Ax (A(3*3行列以上)とxを適当に初期化)
#

>>179
NB.J言語

a=:(2 4$' |---+'),(3":,.2+i.6),.'|'
b=:'0123456789ABCEDF',:'-'
a,.b,6 16$(32+i.95){a.

|0123456789ABCEDF
---+----------------
2| !"#$%&'()*+,-./
3|0123456789:;<=>?
4|@ABCDEFGHIJKLMNO
5|PQRSTUVWXYZ[\]^_
6|`abcdefghijklmno
7|pqrstuvwxyz{|}~

>>182
NB.J言語

*/~>:i.10

1 2 3 4 5 6 7 8 9 10
2 4 6 8 10 12 14 16 18 20
3 6 9 12 15 18 21 24 27 30
4 8 12 16 20 24 28 32 36 40
5 10 15 20 25 30 35 40 45 50
6 12 18 24 30 36 42 48 54 60
7 14 21 28 35 42 49 56 63 70
8 16 24 32 40 48 56 64 72 80
9 18 27 36 45 54 63 72 81 90
10 20 30 40 50 60 70 80 90 100

>>182
% Prolog >>187が示されて、漸く九九でないことに気づいたw　これは九九でなくてなんていうのかな？

九九表示 :-
　　重複順列([1,2,3,4,5,6,7,8,9,10],2,[M,N]),
　　S is M * N,
　　write_formatted('%3d',[S]),
　　N = 10,
　　nl,
　　fail.
九九表示.

>>164
% もう二ヶ所間違っていた。
% ひとつはfindall/3がfindall/4になってしまっている。もうひとつは・・・.

行列の掛け算(_行列a,_行列b,_行列c) :-
　　findall(L1,(for(1,N,3),length(L1,3)),_行列c),
　　findall(W,重複順列([1,2,3],2,W),_重複順列),
　　行列の掛け算(_重複順列,_行列a,_行列b,_行列c).

>>160
% Prolog ちょっと間違いがひどかったので書き直し。

行列の掛け算(_行列a,_行列b,_行列c) :-
　　findall(L1,(for(1,N,3),length(L1,3)),_行列c),
　　findall(W,重複順列([1,2,3],2,W),_重複順列),
　　行列の掛け算(_重複順列,_行列a,_行列b,_行列c).

行列の掛け算([],_,_,_) :- !.
行列の掛け算([[I,J]|R1],_行列a,_行列b,_行列c) :-
　　findsum(U,(　 for(1,K,3),
　　　　　　　　　行列要素(_行列a,I,K,N1),
　　　　　　　　　行列要素(_行列b,K,J,N2),
　　　　　　　　　U is N1 * N2),S),
　　行列要素(_行列c,I,J,S),
　　行列の掛け算(R1,_行列a,_行列b,_行列c).
　
行列要素(_行列,_行,_列,_値) :-
　　list_nth(_行,_行列,_行の値ならび),
　　list_nth(_列,_行の値ならび,_値).

>>185
% Prolog

対象となる行列([[1,3,5],[2,8,12],[6,0,12]]).

行列とベクトルの積(_ベクトル,_行列とベクトルの積) :-
　　対象となる行列(_行列),
　　行列とベクトルの積(_行列,_ベクトル,_行列とベクトルの積).

行列とベクトルの積([],_ベクトル,[]).
行列とベクトルの積([_行|R1],_ベクトル,[_行2|R2]) :-
　　行列とベクトルの積(_行,_ベクトル_行2),
　　行列とベクトルの積(R1,_ベクトル,R2).

行とベクトルの積([],[],[]).
行とベクトルの積([A|R1],[B|R2],[C|R3]) :-
　　C is A * B,
　　行とベクトルの積(R1,R2,R3).

>>191 また間違っていた。行とベクトルの積/3が行列とベクトルの積/3になっているところがある。

対象となる行列([[1,3,5],[2,8,12],[6,0,12]]).

行列とベクトルの積(_ベクトル,_行列とベクトルの積) :-
　　対象となる行列(_行列),
　　行列とベクトルの積(_行列,_ベクトル,_行列とベクトルの積).

行列とベクトルの積([],_ベクトル,[]).
行列とベクトルの積([_行|R1],_ベクトル,[_行2|R2]) :-
　　行とベクトルの積(_行,_ベクトル_行2),
　　行列とベクトルの積(R1,_ベクトル,R2).

行とベクトルの積([],[],[]).
行とベクトルの積([A|R1],[B|R2],[C|R3]) :-
　　C is A * B,
　　行とベクトルの積(R1,R2,R3).

http://pc12.2ch.net/test/read.cgi/tech/1248012902/510
# 【 課題 】http://ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/842.txt
# (1)学生の姓名を入力し、該当する学生の学籍番号、学年、席次を表示する。
# 次のデータは学生の学籍番号、名前、欠席日数、席次を配列linesで格納したものです。
# String[] lines = { "0001, 山田太郎,2,3,42", "0002, 田中一郎,2,6,31", "0003, 斎藤花子,2,2,4" };
# splitとequalsメソッドを利用する。区切り記号はスペース。
# 引数 -n
# (2) (1)を利用して学生の名前の一部を入力し、該当する学生の学籍番号、名前、欠席日数を表示する。
# 引数 -q
# (3) (1)を利用して各学生の全てのデータを席次順に表示する。

>>193
% Prolog

学籍簿('0001', 山田太郎,2,3,42).
学籍簿('0002', 田中一郎,2,6,31).
学籍簿('0003', 斎藤花子,2,2,4).

学生の姓名を入力し、該当する学生の学籍番号、学年、席次を表示(_名前) :-
　　学籍簿(_学籍番号,_名前,_欠席日数,_学年,_席次),
　　write_formatted('%t,%t,%t,%t\n',[_名前,_学籍番号,学年,_席次]).

学生の名前の一部を入力し、該当する学生の学籍番号、名前、欠席日数を表示(_名前の一部) :-
　　学籍簿(_学籍番号,_名前,_欠席日数,_学年,_席次),
　　sub_atom(_名前,_,_,_,_名前の一部),
　　write_formatted('%t,%t,%t,%t\n',[_名前の一部,_学籍番号,名前,_欠席日数]).

'各学生の全てのデータを席次順(昇順)に表示' :-
　　findall([_学年,_席次],学籍簿(_学籍番号,_名前,_欠席日数,_学年,_席次),L1),
　　sort(L1,L2),
　　member([_学年,_席次],L2),
　　学籍簿(_学籍番号,_名前,_欠席日数,_学年,_席次),
　　write_formatted('%t,%t,%t,%t\n',[_名前,_学籍番号,学年,_席次]),
　　fail.
'各学生の全てのデータを席次順(昇順)に表示'.

>>194
% Prolog 少し重いが、以下の処理の方が一般的。

'各学生の全てのデータを席次順(昇順)に表示' :-
　　findall([_学年,_席次,_学籍番号,_名前,_欠席日数,_学年,_席次],学籍簿(_学籍番号,_名前,_欠席日数,_学年,_席次),L1),
　　sort(L1,L2),
　　member([_,_,_学籍番号,_名前,_欠席日数,_学年,_席次],L2),
　　write_formatted('%t,%t,%t,%t\n',[_名前,_学籍番号,学年,_席次]),
　　fail.
'各学生の全てのデータを席次順(昇順)に表示'.

http://pc12.2ch.net/test/read.cgi/tech/1258158172/308
# 任意の０でない自然数nをキーボードで入力し、入力した数字が奇数の場合、
# その数字に３を掛けと１を足します。入力した数字が偶数の場合、その数字を２で割ります。
# そして得られた数字に同様の操作をし、１に達した時点で終了します。
# そしてこの操作をした回数とこの操作で出た最大値を表示させたい。

>>196
% Prolog

c132_308 :-
　　c132_308(N,0,_操作した回数,N,_最大値),
　　write_formatted('%t,%t\n',[_操作した回数,_最大値]).

c132_308(1,_操作した回数,_操作した回数,_最大値,_最大値) :-
　　\+(_操作した回数=0),!.
c132_308(N,M,_操作した回数,Max1,_最大値) :-
　　1 is N mod 2,
　　N2 is N * 3 + 1,
　　M2 is M + 1,
　　現在の最大値は(N2,Max1,Max2),
　　c132_308(N2,M2,_操作した回数,Max2,_最大値).
c132_308(N,M,_操作した回数,Max1,_最大値) :-
　　0 is N mod 2,
　　N2 is N // 2,
　　M2 is M + 1,
　　現在の最大値は(N2,Max1,Max2),
　　c132_308(N2,M2,_操作した回数,Max2,_最大値).

現在の最大値は(A,B,A) :- A >= B.
現在の最大値は(A,B,B) :- A < B.

>>197 訂正　トップレベル これでは N が入力できていない!

c132_308(N) :-
　　c132_308(N,0,_操作した回数,N,_最大値),
　　write_formatted('%t,%t\n',[_操作した回数,_最大値]).

http://pc12.2ch.net/test/read.cgi/tech/1258158172/314
# [1] 授業単元： プログラミング
#
# [2] 問題文(含コード&リンク)：
# 遺伝的アルゴリズムを基にTSP(巡回セールスマン問題)の近似解法のプログラムを書け。
# ただし都市数の数は5〜6個程度で、都市間の距離は自由に決めてよいとする。
#

# [1] 授業単元： C言語
# [2] 問題文(含コード&リンク)：
# 巡回セールスマン問題をNearest Addition法で解くプログラムを作成せよ。
# Nearest Addition法とは
# (1)１つの都市からなる長さ０の部分閉路Ｔをひとつ作成する
# (2)現在の部分閉路Ｔが全ての都市を含むならば、それが解
# (3)そうでないならば、Ｔに含まれる都市jとＴに含まれない都市kの組み合わせで、
# jとkの間の距離Ｃjk(jkはＣの右下)を最小にするようなものを求める
# (4)(i,j)をＴに含まれるパスとするとき、これを２つのパス(i,k)と(k,j)で置き換える
# (5)以上の(2)〜(4)を繰り返す

# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# タイピングプログラムを作る。
# プログラムの流れは、英単語１行１個ずつ１０個入ったファイルを作り、
# １．テキストファイル名を入れる
# ２．テキストファイルの１行目が表示される
# ３．タイピングをする（ミスをするともう１回タイピングさせる）
# ４．１行目が終わると、２行目が表示され、またタイピングをする
# ５．１０問おわったら、かかった時間とミスした回数が出力される

# [１]授業単元　プログラム演習
# [２]問題文：一行に「文字列」,「文字列」,「文字列」,「整数」
# というふうに4つの属性がそれぞれコンマで区切られたファイルを構造体に読み込み
# （ここまでは出来ました）、その2番目の属性に現れる全ての相異なる単語の出現頻度を求め、標準出力に書き出す。
# ここで単語は出現した順に並べる。また大文字は小文字に読み替え、区別しない。また単語のうちa,the,by,for,in,on,of,to,withは除外し、カウントしない。

# [1] 課題
# [2] 問題文：文字型配列 str1[10] str2[10]を宣言し、これに好きな
# 　　　　　　文字列をキーボードから入力し、それぞれの文字を順
# 　　　　　　に１文字ずつ交互に取り出し出力しなさい。

>>203
% Prolog

文字を順に１文字ずつ交互に取り出す(Atom1,Atom2,Char) :-
　　sub_atom(Atom1,_,1,R,Char1),
　　sub_atom(Atom2,_,1,R,Char2),
　　(Char = Char1; Char = Char2).

http://pc12.2ch.net/test/read.cgi/tech/1258158172/316
# [1] 授業単元：C言語
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10165.txt
# 課題１、関数rand()を使用して０〜９９９の整数を１０個作り、
# 　　　　画面に表示させた後、昇順（数値の小さい順）に表示させるプログラム
# 　　　　（実行例）
#　　　　７５６、８３６、２３７、１０９、２９０、６４７、２７、９３３、１９８、２３９
# 　　　　２７、１０９、１９８、２３７、２３９、２９０、６４７、７５６、８３６、９３３
#
# 課題２、関数rand()を使用して０〜９の整数を作る。これを１００回実行し、各数値の出現回数をn[0]〜n[9]の
# 　　　　１０個の配列にセット、これを用いて次のような棒グラフを表示するプログラムを作成せよ。
#　　　　（実行例）
# 　　　　0:***************
# 1:********
# 2:*************
# 3:***********
# 4:*******
# 5:*********

>>205
% Prolog
'０〜９９９の整数を１０個作り、画面に表示させた後、昇順（数値の小さい順）に表示'(_整列した整数ならび) :-
　　findall(N,N is random mod 1000,L),
　　昇順整列(L,[],_整列した整数ならび),
ならびを行出力(_整数整列ならび).

昇順整列([],X,X).
昇順整列([A|R1],L,X) :- 挿入(A,L,L1),昇順整列(R1,L1,X).

挿入(A,[],[A]) :- !.
挿入(A,[B|R1],[A,B|R1]) :- A =< B,!.
挿入(A,[B|R1],[B|R2]) :-
　　挿入(A,R1,R2).

ならびを行出力([]).
ならびを行出力([A|R]) :-
　　write_formatted('%t\n',[A]),
　　ならびを行出力(R).

http://pc12.2ch.net/test/read.cgi/tech/1258158172/321
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
#
# ２つの文字列をS1とS2の配列に読み、S1の文字列の最初からｎ個目にS2の文字列を挿入する。
# 例えば、文字列が１２３４５とABでｎ=３の場合、１２３AB４５となる。
# （１） 配列を用いて作る。
# （２）関数とポインターを用いて作る。

>>207
% Prolog

'２つの文字列をS1とS2の配列に読み、S1の文字列の最初からｎ個目にS2の文字列を挿入'(S1,S2,S) :-
　　N1 is N - 1,
　　sub_atom(S1,0,N1,_,A1,A2,A3,_,_,_),
　　concat_atom([A1,S2,A2,A3],S).

>>208 訂正。sub_atom/10の中の
% Prolog

'２つの文字列をS1とS2の配列に読み、S1の文字列の最初からｎ個目にS2の文字列を挿入'(S1,S2,S) :-
　　N1 is N - 1,
　　sub_atom(S1,0,N1,_,_,A2,A3,_,_,_),
　　concat_atom([A2,S2,A3],S).

>>207
% Prolog
課題2 :-
　　課題2(100,[0,0,0,0,0,0,0,0,0,0],L),
　　課題2_グラフ(L).

課題2(0,L,L) :- !.
課題2(M,Y,L) :-
　　N is random mod 10,
N2 is N + 1,
　　'N番目要素をカウントアップ'(1,N2,Y,Y1),
　　M1 is M - 1,
　　課題2(M1,Y1,L).

課題2_グラフ(L) :-
　　for(1,N,10),
　　N1 is N - 1,
　　list_nth(N,L,_頻度),
　　findall('*',for(1,U,_頻度),L2),
　　concat_atom([N1,':'|L2],S),
　　write_formatted('%t\n',[S]),
　　N = 10.

'N番目要素をカウントアップ'(M,0,Y,Y1) :- 'N番目要素をカウントアップ'(1,10,Y,Y1).
'N番目要素をカウントアップ'(N,N,[A|R1],[B|R1]) :- B is A + 1,!.
'N番目要素をカウントアップ'(M,N,[A|R1],[A|R2]) :- M2 is M + 1,'N番目要素をカウントアップ'(M2,N,R1,R2).

>>203
NB.J言語

f=:;/@[;@,@|:@,:;/@]

'123' f 'abc'
1a2b3c

'123' f 'abcdefg'
1a2b3cdefg

>>205
NB.J言語
NB.
NB.課題1

(,:/:~)?10#100
63 92 51 92 39 15 43 89 36 69
15 36 39 43 51 63 69 89 92 92

>>205
NB.J言語
NB.
NB.課題2

load 'misc'
(":@[,':','*'#~])/"1>/:~nubcount ?100#10
0:*************
1:*************
2:*******
3:***************
4:***************
5:*****
6:*******
7:**********
8:******
9:*********

>>201
% Prolog

テキストファイルを読み込み1行づつタイピングする :-
　　テキストファイル名を入れる(_テキストファイル名),
　　get_lines(_テキストファイル名,Lines),
　　TimeA is time,
　　タイピングをする(1,10,Lines,TimeB,0,_ミスした回数),
　　_かかった時間 is time - TimeA,
　　write_formatted('かかった時間 %t秒, ミスした回数 %t回\n',[_かかった時間,_ミ
スした回数]),!.

テキストファイル名を入れる(_テキストファイル名) :-
　　write('テキストファイル名を入れてください : '),
　　get_line(_テキストファイル名).

タイピングをする(M,N,Lines,X,X) :-　!.
タイピングをする(M,N,[Line|R],Y,X) :-
　　write_formatted('%t:　%t : ',[M,Line]),
　　get_line(Line),
　　M2 is M + 1,
　　タイピングをする(M2,N,R,Y,X),!.
タイピングをする(M,N,[Line|R],X) :-
　　Y2 is Y + 1,
　　タイピングをする(M,N,[Line|R],Y2,X).

# http://codepad.org/JEzL3ZJ7 は以下のコメント付加した。これを参考にナップザックプログラムを復元せよ。
# /** ナップザックの個数 */
# /** ナップザック */
# /** 全てのナップザックの総重量 */
# /**
# * このナップザック問題を解く機械を初期化する
# */
# /**
# * ナップザックの内容を全て表示する
#
# /**
# * 全ナップザックの総重量を計算し，capacityに格納する
# */
# /**
# * ナップザックに入れることができる要素
# * @author おーさー
# *
# */
# /** 要素のID */
# /** 要素の重さ，ランダムに決定 */
# /** 要素の価値，ランダムに決定 */
# /**
# * この要素を初期化する
# * @param givenId 要素のID
# */

>>215 は
http://pc12.2ch.net/test/read.cgi/tech/1248012902/512
http://pc12.2ch.net/test/read.cgi/tech/1248012902/515
から出題されています。

現在、>>181 >>199 >>200 >>216 の(Prolog向き?)問題が未解答です。
よろしく、お願いします。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/330
# [1] 授業単元：プログラム
# [2]問題文
# 次の要領でテストの点数を入力し、それぞれの点数代の人数が何人いるか求めるプログラム
# 1.テストの点数を入力するガイダンスを用いて次のように出力　：点数の入力 終了条件：eあるいはE
# 2．fgets()を用いて、テストの点数を文字列として入力
# 3．2で入力した文字列が'e'または'E'ならば処理2〜5の処理を終了して6の処理を行う
# 4．文字列で入力した点数をint型変数に変換(atoiを使用する)
# 5．4で変換したint型の点数が0点以上100点以下なら、それぞれの点数代の人数を数える。
# 6．5の結果の表示

>>218
% Prolog

テストの点数を入力し、それぞれの点数代の人数が何人いるか求める :-
　　write('：点数の入力 終了条件：eあるいはE '),get_line(Line),
　　テストの点数を入力し、それぞれの点数代の人数が何人いるか求める(Line,[0,0,0,0,0,0,0,0,0,0],_10点ごと出現頻度ならび),
　　for(1,N,10),
　　list_nth(N,_10点ごと出現頻度ならび,M),
　　write_formatted('%t~%t　%t人\n',[(N-1) * 10,N * 10 - 1,M]),
　　N = 10.

テストの点数を入力し、それぞれの点数代の人数が何人いるか求める(e,L,L) :- !.
テストの点数を入力し、それぞれの点数代の人数が何人いるか求める('E',L,L) :- !.
テストの点数を入力し、それぞれの点数代の人数が何人いるか求める(Line,L1,L) :-
　　atom_to_term(Line,N,_),N >= 0,N =< 100,
　　M is (N // 10) + 1,
　　出現頻度ならびをカウントアップ(N,L1,L2),
　　write('：点数の入力 終了条件：eあるいはE '),get_line(Line2),
　　テストの点数を入力し、それぞれの点数代の人数が何人いるか求める(Line2,L2,L).

出現頻度ならびをカウントアップ(C,[],[1,C]) :- !.
出現頻度ならびをカウントアップ(C,[[N,C]|R1],[[N2,C]|R1]) :-　N2 is N + 1,!.
出現頻度ならびをカウントアップ(C,[[N,C1]|R1],[[N,C1]|R2]) :-　出現頻度ならびをカウントアップ(C,R1,R2).

http://pc12.2ch.net/test/read.cgi/tech/1258158172/328
# [1]プログラミング言語論
# [2]プログラムの製造とライフサイクルについて言語アプリ開発の実際を踏まえて
# 論ぜよ 自作コードを含めること。

>>53
NB. J言語

0j2":,.(,[:+/_3{.])^:(18)0.01 0.1 1

0.01
0.10
1.00
1.11
2.21
4.32
7.64
14.17
26.13
47.94
88.24
162.31
298.49
549.04
1009.84
1857.37
3416.25
6283.46
11557.08
21256.79
39097.33

http://pc12.2ch.net/test/read.cgi/tech/1258158172/337
# [1] 授業単元：プログラム
# [2] 問題文：
# 二つの値xとyの大きい方の値を返す関数形式マクロは以下のように
# 定義できる
# #define max(x,y) ((x) > (y) ? (x) : (y))
# このマクロを利用して、四つの値a,b,c,dの値の最大値を求める
# max(max(a,b), max(c,d))
# および
# max(max(max(a,b), c), d)
# がどのように展開されるかを示すし、考察を加えよ。
#

http://pc12.2ch.net/test/read.cgi/tech/1258158172/338
# [1] 授業単元：プロミング基礎
# [2] 問題文(含コード&リンク)：5つの整数データ入力に対する合計計算アルゴリズム
# １．変数 s に 0 を設定する。
# ２．変数 k に 0 を設定する。
# ３．もし k < 5 でなければ、7.へ行く。
# ４．整数の入力を変数 a に格納する。
# ５．変数 s に 変数 a を加えて、変数 s に 代入する。
# ６．変数 k の内容を 1 だけ増やし、3.にもどる。
# ７．変数 s を出力表示する。
#

http://pc12.2ch.net/test/read.cgi/tech/1258158172/339
# [1] 授業単元： プログラミング
# [2] 問題文(含コード&リンク)：5人の学生の3教科(国･数･英)の点数を
# 読み込んで、2次元配列を用いて以下の条件を満たすプログラムを作成せよ。
# (1)科目別の最高点を求める。
# (2)各学年の3教科の平均を求める。
# これらを表にして表示する。
#

>>224
% Prolog
http://nojiriko.asia/prolog/c132_339.html

>>223
% Prolog
'5つの整数データ入力に対する合計計算' :-
　　'5つの整数データ入力に対する合計計算'(0,0,X),
write_formatted('%t',[X]).

'5つの整数データ入力に対する合計計算'(_k,_s,_s) :- \+(_k < 5),!.
'5つの整数データ入力に対する合計計算'(_k,_s,X) :-
　　get_integer(_a),
　　_s2 is _s + _a,
　　_k2 is _k + 1,
　　'5つの整数データ入力に対する合計計算'(_k2,_s2,X).

>>224
% Prolog
'5人の学生の3教科(国･数･英)の点数を読み込んで、2次元配列を用いて、科目別最高点
、3教科の平均を表示' :-
　　findall(L,(for(1,N,5),get_line(Line),split(Line,[','],L)),_学生の得点ならび
),
　　科目別最高点(_学年の得点ならび,[_国最高点,_数最高点,_英最高点]),
　　write('科目別最高点,国,数,英\n'),
　　write_formatted(',%t,%t,%t\n',[_国最高点,_数最高点,_英最高点]),
　　どんな学年があるか(_学生の得点ならび,_学年ならび),
　　write('学年別、科目別平均点\n'),
　　member(_学年,_学年ならび),
　　findavg([_国,_数,_英],member([_学年,_国,_数_英],_学年の得点ならび),[_国平均
,_数平均,_英平均]),
　　member([_学年,_国平均,_数平均,_英平均],_各学年の3教科の平均),
　　write_formatted('%t,%t,%t,%t\n',[_学年,_国平均,_数平均,_英平均]),
　　fail.
'5人の学生の3教科(国･数･英)の点数を読み込んで、2次元配列を用いて、科目別最高点
、3教科の平均を表示'.

科目別最高点(_学年の得点ならび,_科目別最高点) :-
　　行列の転置(_学年の得点ならび,[_|L1]),
　　findall(Max,(member(L2,L1),max(L2,Max)),_科目別最高点).

どんな学年があるか(_学生の得点ならび,_学年ならび) :-
　　findall(_学年,member(_学年,_学年の得点ならび),L),
　　sort(L,_学年ならび).

>>202
% Prolog

'2番目の属性に現れる全ての相異なる単語の出現頻度'(_ファイル) :-
　　get_split_lines(_ファイル,[','],L),
　　出現頻度を求める(L,[],_出現頻度ならび),
　　member([_出現頻度,_単語],_出現頻度ならび),
　　write_formatted('%t,%t\n',[_単語,_出現頻度]),
　　fail.
'2番目の属性に現れる全ての相異なる単語の出現頻度'(_).

出現頻度を求める([],X,X).
出現頻度を求める([[_,W,_,_]|R],Y,X) :-
　　to_lower(W,W1),
　　\+(member(W1,[a,the,by,for,in,on,of,to,with])),
　　出現頻度の更新(W1,Y,Y2),
　　出現頻度を求める(R,Y2,X).
出現頻度を求める([[_,W,_,_]|R],Y,X) :-
　　to_lower(W,W1),
　　member(W1,[a,the,by,for,in,on,of,to,with]),
　　出現頻度を求める(R,Y,X).

出現頻度の更新(W,[],[[1,W]]).
出現頻度の更新(W,[[S,W]|R],[[S2,W]|R]) :- S2 is S + 1,!.
出現頻度の更新(W,[L|R1],[L|R2]) :- 出現頻度の更新(W,R1,R2).

http://pc12.2ch.net/test/read.cgi/tech/1258320456/43
# 正多角形を表現するクラスPolygonを定義し，いくつかのインスタンスを生成して表示せよ．メソッドも実行して結果を示すこと．
#
# ・辺の数と1辺の長さをアトリビュートとして持つ (コンストラクタは引数として辺の数と1辺の長さを取る)
# ・printすると次のように表示される
# [Polygon] 辺の数: 5, 辺の長さ: 100
# ・周囲の長さを返すメソッド(perimeter)を持つ (引数なし)
#

>>229
% ESP

class Polygon has
　　:create(Class,Obj,_辺の数,_辺の長さ) :-
　　　　:new(Class,Obj),
　　　　Obj!辺の数 := _辺の数,
　　　　Obj!辺の長さ := _辺の長さ;

instance
　　attribute 辺の数,辺の長さ;
　　:perrimeter(OBJ,_周囲の長さ) :-
　　　　_周囲の長さ := OBJ!辺の長さ * OBJ!辺の数;
end.

>>224 仕様追加
#
# データはキーボードから点数を入力で。
# 表は、
# 番号｜ 　国語　　数学　　英語　　｜最高　｜最低　｜平均
# 　1 ｜ 　　 　　 ｜　　　｜　　　｜
# 　2 ｜ 　 　 　 ｜　　　｜　　　｜
# （中　略）
# 　5 ｜ 　 　 　 ｜　　　｜　　　｜
# 　――――――――――――――――――――――――――――――
# 最高 ｜
# 最低 ｜
# 平均 ｜
# 表はこんな感じで。
# 最低点の表示もお願いします。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/354
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)：
# （１）http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10173.txt
# 実行結果が次のようになるように、九九の表を、for文の二重ループを用いて作成しなさい。
#
# ***table of kuku ***
#
# | 1 2 3 4 5 6 7 8 9
# -----------------------------
# 1| 1 2 3 4 5 6 7 8 9
# 2| 2 4 6 8 10 12 14 16 18
# 3| 3 6 9 12 15 18 21 24 27
# 4| 4 8 12 16 20 24 28 32 36
# 5|
# 省略
# |
# |
# 9| 9 18 27 36 45 54 63 72 81

http://pc12.2ch.net/test/read.cgi/tech/1258158172/354
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)：
# （１）http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10173.txt
# 次のように各０番目の列要素にテストの点数を初期設定にしてある大きさ
# １０×２の配列がある。この配列の１番目の列要素に点数の高い順から順位を格納するプログラムを作成しなさい。
#
# 　 [0] [1]
# [0] 67
# [1] 43
# [2] 56
# [3] 97
# [4] 30
# [5] 88
# [6] 76
# [7] 55
# [8] 66
# [9] 78

>>233
リンクを間違えました。
http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10175.txt

http://pc12.2ch.net/test/read.cgi/tech/1258158172/354
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)：
# （１）http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10176.txt
# 明治元年以降の西暦年を４桁の数で入力すると、和暦で都市を表示するプログラムを作成せよ。
# ただし、２つの元号をもつ年は両方の年を表示すること。
#
# （例、1989年→昭和64年、平成元年）

>>234 >233 は http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10174.txt
でした。

>>235
% Prolog

年号期間(明治,1868,1912).
年号期間(大正,1912,1926).
年号期間(昭和,1926,1989).
年号期間(平成,1989,2009).

西暦和暦応答(_西暦) :-
　　findall(_和暦,明治以降の西暦和暦変換(_西暦,_和暦),L),
　　concat_atom(L,',',S),
　　write_formatted('%t->%t\n',[S]).

明治以降の西暦和暦変換(_西暦,_和暦) :-
　　年号期間(_年号,A,B),
　　_西暦>=A,
　　_西暦=<B,
　　N is _西暦 - A + 1,
　　和暦構成(_年号,N,_和暦).

和暦構成(_年号,1,_和暦) :- concat_atom([_年号,元年],_和暦).
和暦構成(_年号,N,_和暦) :- concat_atom([_年号,N,年],_和暦).

>>236 一ヶ所間違えた。訂正。
西暦和暦応答(_西暦) :-
　　findall(_和暦,明治以降の西暦和暦変換(_西暦,_和暦),L),
　　concat_atom(L,',',S),
　　write_formatted('%t->%t\n',[_西暦,S]).

>>233
% Prolog

配列([[67,_],[43,_],[56,_],[97,_],[30,_],[88,_],[76,_],[55,_],[66,_],[78,_]]).

配列の１番目の列要素に点数の高い順から順位を格納する(L) :-
　　配列(L),
　　順位付け(L,[],_順位ならび),
　　第二要素に順位をセット(L,_順位ならび).

順位付け([],X,X).
順位付け([[A,_]|R1],Y1,X) :- 挿入(A,Y1,Y2),順位付け(R1,Y2,X).

挿入(A,[],[A]).
挿入(A,[B|R],[A,B|R]) :- A > B,!.
挿入(A,[B|R1],[B|R2]) :- A =< B,挿入(A,R1,R2).

第二要素に順位をセット([[A|V]|R],_順位ならび) :-
　　list_nth(V,_順位ならび,A),
　　第二要素に順位をセット(R,_順位ならび).

>>17
maxima

問題1

f(x):= ([r:""],for i thru x do r:concat(r,ascii(96+i)),r)


問題2

f(x):=sum(if(mod(i,3)=0 or mod(i,5)=0)then i else 0,i,1,x);

>>232
% Prolog

九九表示 :-
　　write(' |'),
　　for(1,N,9),write_formatted('%2d ',[N]),N=9,nl,
　　for(1,M,30),write('-'),M=30,nl,
　　九九表示(1,1).

九九表示(9,10) :- nl,!.
九九表示(M,10) :- nl,M2 is M + 1,九九表示(M2,1).
九九表示(M,1) :-
　　write_formatted('%t|%2d ',[M,M]),
　　九九表示(M,2).
九九表示(M,N) :-
　　write_formatted('%2d ',[M*N]),
　　N2 is N + 1,
　　九九表示(M,N2).

http://pc12.2ch.net/test/read.cgi/tech/1258158172/357
# [1] 授業単元： データ構造とアルゴリズム
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10177.txt
# １、data.datからgetc()を用いてアルファベットを１文字ずつ読み込み、スタックにpush-downする。
# ２、スタックの内容を表示する関数print_stack_list(s)がprint_stack_list.oにある。

>>241
% Prolog

'data.datからgetc()を用いてアルファベットを１文字ずつ読み込み、スタックにpush-d
ownする'(Stack1,Stack2) :-
　　see('data.dat'),
　　get_char(C),
　　'スタックに全文字をpush-downする'(C,Stack1,Stack2),
seen.

'スタックに全文字をpush-downする'(end_of_file,Stack,Stack) :-
'スタックに全文字をpush-downする'(C,Stack,Stack2) :-
　　push(C,Stack,Stack1),
　　get_char(C2),
　　'スタックに全文字をpush-downする'(C2,Stack1,Stack2).

push(C,Stack,[C|Stack]).

>>203
maxima
短い文字列の方に合わせてしまうが、そういう仕様ということで。

f(a,b):=simplode(join(charlist(a),charlist(b)),"");

(%i4)f("123","asdfgh");
(%o4) 1a2s3d
(%i5)

http://pc12.2ch.net/test/read.cgi/tech/1258158172/358
# [1] 授業単元：Cプログラミング
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.j
p/cgi-bin/joyful/img/10178.txt
# 問題：実行結果が以下の通りになるようにプログラムを追加しなさい。
# 現在のデータ：0/100
# （１）プッシュ　（２）ポップ　（０）終了：1
# データ：25
# 0 25
# 現在のデータ：1/100
# （１）プッシュ　（２）ポップ　（０）終了：1
# データ：36
# 0 25
# 1 36
# 現在のデータ：2/100
# （１）プッシュ　（２）ポップ　（０）終了：1
# データ：45
# 0 25
# 1 36
# 2 45
# 現在のデータ：3/100
# （１）プッシュ　（２）ポップ　（０）終了：2
# ポップしたデータは45です。
# 0 25
# 1 36
# 現在のデータ：2/100

>>244
% Prolog
stack_size(100),

stack_operation(Stack1,Stack2) :- get_action(N),stack_operation(N,Stack1,Stack2).

stack_operation(0,Stack,Stack) :- !.
stack_operation(1,Stack1,Stack) :- write('データ :'),get_integer(N),push(N,Stack,Stack2),print_stack_list(Stack2),get_action(N2),stack_operation(N2,Stack2,Stack).
stack_operation(2,Stack1,Stack) :- pop(A,Stack1,Stack2),write_formatted('ポップしたデータは%tです。 \n',[A]),print_stack_list(Stack2),get_action(N2),stack_operation(N2,Stack2,Stack).

get_action(N) :- write('（１）プッシュ　（２）ポップ　（０）終了：'),get_integer(N).

push(A,Stack,[A|Stack]) :- stack_size(Max),length([A|Stack],Len),Len =< Max,!.
push(A,Stack,Stack) :- stack_size(Max),length(Stack,Max),write('スタックが最大サイズを越えました。プッシュできません!!\n'),!.

pop(A,[A|Stack],Stack).
pop(A,[],[]) :- write('スタックは空です!!\n').

print_stack_list(Stack) :- stack_size(Max),print_stack_list(0,Max,Stack),write_formatted('現在のデータ : %t/%t\n',[N,Max]),

print_stack_list(N,Max,[]) :- write('stack empty!\n'),!.
print_stack_list(N,Max,_) :- N > Max,write('スタックの最大サイズに達しました\n') :- !.
print_stack_list(N,Max,[A|R]) :- write_formatted('%t %t\n',[N,A]),N2 is N + 1,print_stack_list(N2,Max,R).

>>245 改行してはいけないところに改行が入ってしましました。
stack_opration/3に集中していますから、直して読んでください。

>>245 >>246 読み難いですね。以下を参照してください。
http://nojiriko.asia/prolog/c132_358.html

http://pc12.2ch.net/test/read.cgi/tech/1258158172/365
# [1]授業単元：応用C言語演習
# [2]問題文(含コード&リンク)
# 標準入力から１文字以上の英数字と'_'で構成される単語を読み込み、
# それぞれの単語が何回、何行目の何個目の単語に出現したかを単語アルファベット順
# にリストする索引作成プログラム
# アルファベット順出力の後出現頻度（出現が多い単語順、同数についてはアルファベ
# ット順）順についても同じ書式で出力
# 改行記号とタブ／アルファベット／数字/ '_' /空白しか標準入力されないとして良い。
# 入力行数、単語長、種数、単語辺りの出現回数に制限は無い。
# 単語の前後の区切りは単語を構成しない文字とする。（行末記号を含む）
# 書式： 単語 (回数) 位置（行番号が若い順）改行
# 位置: 'L'行番号（１から開始)-行内単語番号（１から開始)
# alpha (3回) L32-5 L66-4 L124-1
# beta (２回) L192-1 L276-3
#

>>248
% Prolog 索引の作成のみ。表示は次レスで。
文から索引の作成(_ファイル,_索引ならび) :-
　　get_lines(_ファイル,Lines),
　　行単位に索引を作成(1,Lines,[],_索引ならび).

行単位に索引を作成(_行番号,[],X,X).
行単位に索引を作成(_行番号,[Line|R1],Y,X) :-
　　split(Line,[' ',',','\r','t'],_単語ならび),
　　行単位に索引に追加(1,_行番号,_単語ならび,Y,Y2),
　　_行番号2 is _行番号 + 1,
　　行単位に索引を作成(_行番号2,R1,Y2,X).

行単位に索引に追加(_行での相対位置,_行番号,[],X,X).
行単位に索引に追加(_行での相対位置,_行番号,[_単語|R1],Y,X) :-
　　索引に追加(_単語,_行番号,_行での相対位置,Y,Y2),
　　_行での相対位置2 is _行での相対位置 + 1,
　　行単位に索引に追加(_行での相対位置2,_行番号,R1,Y2,X).

索引に追加(_単語,_行番号,_行での相対位置,[[_単語,_位置情報ならび,_頻度]|R1],[[_単語,_更新された位置情報,_頻度2]|R1]) :- !.
索引に追加(_単語,_行番号,_行での相対位置,[[_単語1,_位置情報ならび1,_頻度1]|R1],[[_単語,[_行番号,_行での相対位置],1],[単語1,_位置情報ならび1,_頻度1]|R1]) :-
　　_単語 @< _単語2,!.
索引に追加(_単語,_行番号,_行での相対位置,[[_単語1,_位置情報ならび1,_頻度1]|R1],[[単語1,_位置情報ならび1,_頻度1]|R2]) :-
　　_単語 @> _単語2,
　　索引に追加(_単語,_行番号,_行での相対位置,R1,R2).

>>249
% Prolog 第一節目が未完成だった。
索引に追加(_単語,_行番号,_行での相対位置,[[_単語,_位置情報ならび,_頻度]|R1],[[_単語,_更新された位置情報,_頻度2]|R1]) :-
　　_頻度2 is _頻度 + 1,
　　append(_位置情報ならび,[_行番号,_行での相対位置],_更新された位置情報),!.
索引に追加(_単語,_行番号,_行での相対位置,[[_単語1,_位置情報ならび1,_頻度1]|R1],[[_単語,[_行番号,_行での相対位置],1],[単語1,_位置情報ならび1,_頻度1]|R1]) :-
　　_単語 @< _単語2,!.
索引に追加(_単語,_行番号,_行での相対位置,[[_単語1,_位置情報ならび1,_頻度1]|R1],[[単語1,_位置情報ならび1,_頻度1]|R2]) :-
　　_単語 @> _単語2,
　　索引に追加(_単語,_行番号,_行での相対位置,R1,R2).

>>248
% Prolog

索引の全表示([]).
索引の全表示([[_単語,_位置情報ならび,頻度]|R]) :-
　　findall(S,(member([A,B],_位置情報ならび),concat_atom(['L',A,'-',B],S)),L),
　　concat_atom(L,' ',S2),
　　write_formatted('%t (%t) %t\n',[_単語,頻度,S2]),
　　索引の全表示(R).

出現頻度順索引全表示(_索引ならび) :-
　　findall([_頻度|L],(member(L,_索引ならび),last(L,_頻度)),L1),
　　sort(L1,L2),
　　findall(L,member([_|L],L2),L3),
　　reverse(L3,L4),
　　索引の全表示(L3).

>>248
% Prolog

索引の保護(_文名,_保護ファイル,_索引ならび) :-
　　assertz(索引(_文名,_索引ならび)),
　　tell(_保護ファイル),
　　listing(索引),
　　told.

索引の定義(_文名,_保護ファイル,_索引ならび) :-
　　reconsult(_保護ファイル),
　　索引(_文名,_索引ならび).

http://pc12.2ch.net/test/read.cgi/tech/1258320456/45
# Polygonをスーパークラスとして，正三角形(Triangle)，正四角形(Square)を表現するクラスをそれぞれ定義せよ．
#
# ・辺の長さのみを引数に与えてインスタンスを生成する
# ・自身の面積を計算して結果を返すメソッドarea()を持つ
# √3 = 1.73 としてよい
# メインルーチンでは，実際にインスタンスを生成し，各インスタンスについて，インスタンス自身，周囲の長さ，面積の3項目を表示するようにせよ．

>>253
% ESP

class 正多角形 has
　　:create(Class,Obj,_辺の長さ) :-
　　　　:new(Class,Obj),
　　　　Obj!辺の長さ := _辺の長さ;
instance
　　attibute 辺の長さ,角;
end.

class 三角形 has
nature 正多角形;
　　attribute 角 := 3;
instance
　　:area(Obj,_面積) :-
　　　　Obj!辺の長さ * 1.73;
end.

class 四角形 has
nature 正多角形;
　　attribute 角 := 4;
instance
　　:area(Obj,_面積) :-
　　　　Obj!辺の長さ * Obj!辺の長さ;
end.

http://pc12.2ch.net/test/read.cgi/tech/1170662552/284
# 過去の株価を利用したシミュレーションプログラム。
# 具体的には、データとして興味のある某銘柄の日柄（日別に始値、高値、安値、終値、出来高）
# を10年分オープンオフィスの表計算calcにyahooファイナンスから入手しました。
# 例えば、このデータを使って特定の日にその株を1000株買い、以降10円上がれば売り
、売り値から
# 10円下がればまた買い、その買値より10円下がれば買い増し（仮の現金残高がなくな
るまで）し、
# それぞれは買値より10円上がると売る。
# 持ち株がなくなると、高値から１割下がったところからまた始める。
# というようなことを繰り返すと、いくらの利益でいくらの買値ので
# どれぐらい持ち株になった状態かを結果としてだすものです。
#

http://pc12.2ch.net/test/read.cgi/tech/1258158172/368
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)：
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10180.txt
#
# 〜課題１〜
# ３個のint型整数の最小値を返す関数
# int min3(int x,int y,int z)
# を作成せよ。（ただし、標準関数minは使用しないこと。）
#
# （実行例）
# ３個の整数を入力してください。
# 整数１：１５
# 整数２：３
# 整数３：２３
# 最も小さい値は３です。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/368
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)：
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10180.txt
#
# 〜課題２〜
# int型整数の４乗を返す関数
# int pow4(int x)
# を作成せよ。（ただし関数powは使用しない）
#
# （実行例）
# 整数を入力してください：５
# その４乗値は６２５です。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/368
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)：
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10180.txt
#
# 〜課題３〜
# 関数voold putstar(int n)を作成して、長方形を表示するプログラムを作成せよ。
#
# （実行例）
# 長方形を作りましょう。
# 横幅：５
# 高さ：３
# ＊＊＊＊＊
# ＊＊＊＊＊
# ＊＊＊＊＊
#

http://pc12.2ch.net/test/read.cgi/tech/1258158172/368
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)：
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10180.txt
#
# 〜課題４〜
# 文字型配列　str='ABCDEFG'が初期設定されている。このstrのデータを英大文字から、英小文字に変換しなさい。
#

http://pc12.2ch.net/test/read.cgi/tech/1258158172/368
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)：
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10180.txt
#
# 〜課題５〜
# 次の要領でテストの点数を入力し、それぞれの点数代の人数が何人いるか求めるプログラムを作成しなさい。
#
# １、テストの点数を入力するガイダンスを用いて次のように出力しなさい：点数を入力しなさい、終了条件：eあるいはE
# ２、fget()を用いて、テストの点数を文字列として入力しなさい
# ３、１で入力した文字列がeあるいはEであるとき、処理２〜５の処理を終了して６の処理を行いなさい
# ４、文字列で入力した点数をint型変数に変換しなさい（atoiを使用しなさい）
# ５、４で変換したint型の点数が０点以上１００点以下なら、次のそれぞれの点数代の人数を数えなさい。
# ６，５の結果を表示しなさい。

>>256
% Prolog

'３個の整数の最小値を返す' :-
　　write('３個の整数を入力してください。\n'),
　　'３個の整数を得る'(1,[A|R]),
　　最小値は(A,R,_最小値),
　　write_formatted('最も小さい値は%tです。\n',[_最小値]).

最小値は(A,[],A).
最小値は(A,[B|R],X) :- A =< B,最小値は(A,R,X).
最小値は(A,[B|R],X) :- A > B,最小値は(B,R,X).

'３個の整数を得る'(N,[]) :- N > 3,!.
'３個の整数を得る'(N,[_整数|R]) :-
　　write('整数%t：',[N]),
　　get_integer(_整数),
　　N2 is N + 1,
　　'３個の整数を得る'(R).

>>256
% Prolog 3個の整数を得るには以下のやり方もある。

'３個の整数を得る'(L) :-
　　findall(_整数,(for(1,N,3),write('整数%t：',[N]),get_integer(_整数)),L).

>>257
% Prolog 4乗を定義は以下が代表的なもの。

pow4(X,Y) :- Y is X * X * X * X.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

pow4(X,Y) :- Y is X ^ 4.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

pow4(X,Y) :- pow4(4,X,Y).

pow4(1,X,X) :- !.
pow4(N,X,Y) :- N1 is N - 1,pow4(N1,X,Z),Y is X * Z.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
pow4(X,Y) :- pow4(1,4,X,Y).

pow4(M,N,_,1) :- M > N,!.
pow4(M,N,X,Y) :- M1 is M + 1,pow4(M1,N,X,Z),Y is X * Z.

>>263 4乗の定義は　ですね。

pow4(M1,N,X,Z),Y is X * Z.
と再帰の外側に演算が来るのがちょっと気になりますね。

pow4(X,Y) :- pow4(1,4,X,X,Y).

pow4(M,N,_,Y,Y) :- M > N,!.
pow4(M,N,X,Y1,Y) :- Y2 is X * Y1,M2 is M + 1,pow4(M2,N,X,Y2,Y).

とすれば中に入ります。ただ、この手の先読み的手法がわかりやすいかどうか。

>>258
% Prolog これもいろんな定義が何度も出てきました。for/3を使うのは
% あまりProlog的な感じがしませんが、使うことはあります。

長方形を作りましょう :-
　　write('横幅 :'),get_integer(_横幅),
　　write('高さ :'),get_integer(_高さ),
　　for(1,M,_高さ),
　　for(1,N,_横幅),
　　write('*'),
　　N = _横幅,
　　nl,
　　M = _高さ.

>>259
% Prolog

str('ABCDEFG').
%%%%%%% 普通は以下の定義で済ます%%%%%%%%%%%%
英大文字から、英小文字に変換 :-
　　str(Str1),
　　to_lower(Str1,Str2),
　　write_formatted('%t',[Str2]).

&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
英大文字から、英小文字に変換 :-
　　str(Str1),
　　atom_codes(Str1,Codes1),
　　findall(C,(member(A,Codes),C is A - 32),Codes2),
　　atom_codes(Str2,Codes2),
　　write_formatted('%t',[Str2]).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
英大文字から、英小文字に変換 :-
　　str(Str1),
　　atom_codes(Str1,Codes1),
　　英大文字から、英小文字に変換(Codes1,Codes2),
　　atom_codes(Str2,Codes2),
　　write_formatted('%t',[Str2]).

英大文字から、英小文字に変換([],[]).
英大文字から、英小文字に変換([C1|R1],[C2|R2]) :- C2 is C1-32,英大文字から、英小文字に変換(R1,R2)

>>260
% Prolog
テストの点数を入力し、それぞれの点数代の人数が何人いるか求める :-
　　get_line(Line),
　　テストの点数を入力し、それぞれの点数代の人数が何人いるか求める(Line,[0,0,0,0,0,0,0,0,0,0,0],L),
　　それぞれの点数台の人数が何人いるか表示(L).

それぞれの点数台の人数が何人いるか表示(L) :-
　　append(L1,[M|L2],L),
　　length(L1,N),
　　write_formatted('%2d~%2d点台は%t人です。\n',[N*10,N*10+9,M]),
　　N = 9,
　　last(L,M11),
　　write_formatted('　　　100点は%t人です。\n',[M11]).

テストの点数を入力し、それぞれの点数代の人数が何人いるか求める(e,L,L).
テストの点数を入力し、それぞれの点数代の人数が何人いるか求める('E',L,L).
テストの点数を入力し、それぞれの点数代の人数が何人いるか求める(Line,L1,L) :-
　　atom_to_term(Line,N,_),
　　点数台集計に加算(N,L1,L2),
　　get_line(Line2),
　　テストの点数を入力し、それぞれの点数代の人数が何人いるか求める(Line2,L2,L).

点数台集計に加算(N,L1,L2) :-
　　N1 is N // 10,
　　length(L0,N1),
　　append(L0,[M|L3],L1),
　　M2 is M + 1,
　　append(L0,[M2|L3],L2).

http://pc12.2ch.net/test/read.cgi/tech/1258158172/384
# [1] 授業単元：ヒューマンインターフェイス
# [2] 問題文(含コード&リンク)：少なくとも以下の英文を日本語分に翻訳できるプログラムを作成せよ
# 　　　　　　　　　　 1.The boy beats a dog with a stick.
# 2.Every boy loves a dog .
# 3.The dog is loved by every boy.
# 4.The boy saw a girl with a telescope.
# 5.The boy saw a girl with a dog.
# 6.The boy cut a stick with a saw.

http://pc12.2ch.net/test/read.cgi/tech/1258158172/389
# [1] 授業単元：C言語実習
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10187.txt
# ■問題１
# 　任意の画素数をもつ画像をアフィン変換（移動，拡大縮小，回転，せん断）するプログラムを作成せよ．
# 　変換後の画像は画像ファイルとして保存すること．
#
# ■問題２
# 　問題１で作成したプログラムに，逆アフィン変換を行う機能を追加せよ。
# 　そして，アフィン変換，逆アフィン変換（最近傍法），逆アフィン変換（線形補間法）での結果に違いがあることを確認せよ．
#
# 　※逆アフィン変換とは，出力画像の座標値（X, Y）に対して逆変換を行うことで，入力画像の座標値（x, y）を求めるものである．
#
# （注意）
# 　変換後の座標値が，配列のサイズ（縦と横）を越えるかどうかを確認し，超える場合は適切な例外処理を行うこと．
#

http://pc12.2ch.net/test/read.cgi/tech/1258158172/392
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：
# ３つの自然数を辺にもつ直角三角形を1000個出力するプログラムを書きなさい。
# ただし、３つの辺 a, b, c は a <= b <= c とする。
# また、３辺の比率が同じものはカウントしないこととする。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/407
# [1] 授業単元： C言語
# [2] 問題文(含コード&リンク)：
# 課題１、文字列、と2つの整数(それぞれ n, m とする)を入力すると
# n文字目から m文字 *に変えるプログラムを書け。
#
# 実行例
# 　　文字を入力して下さい
# Toshidaigaku
# nを入力して下さい
# 4
# mを入力して下さい
# 2
# 出力は
# Tos**daigaku
#
# 課題２、文字列を入力すると、全ての文字を次の文字コードの文字に
# 変えて、結果を表示するプログラムを書け。
#
# 実行例
#
# 文字を入力して下さい
# Toshidaigaku
# 出力は
# Uptijebjhblv

http://pc12.2ch.net/test/read.cgi/tech/1258158172/408
# 課題３、文字列を入力すると、文字列中の
# a の個数を数えるプログラムを書け。
#
# 実行例
#
# 文字を入力して下さい
# Toshidaigaku
# aが2個含まれています
#
# [5] その他の制限：
# #include <stdio.h>
# int main()
# スタートでお願いします。

http://pc12.2ch.net/test/read.cgi/tech/1248012902/527
# 【　課題　】 http://ime.nu/www.dotup.org/uploda/www.dotup.org397919.txt.html

# 【　形態　】1
# 【　GUI　 】4
# 【　期限　】11/27まで
# 【　Ver　 】1.6.0_16
#
# できれば動作の解説もお願いします
# パターン照合の問題です。
# string型の引数を二つ与えてそれが同じものかどうかを判定します。
# 基本的なものは書けたのですが、機能拡張で
# "you are a student" と "You are Student"
# のように大文字小文字を区別せずに同じものとして判定させるのが課題です

http://pc12.2ch.net/test/read.cgi/tech/1258158172/425
# [1]やさしいC++　演習
# [2]
# (1) int値 n,一つのcharポインタpを引数に持ちcharポインタを戻り値型とする関数atosを次の仕様のもとに作成
# pがNULLでないならばそれが指す領域をdelete[]解放してNULLを返す。pがNULLの場合はpに１６文字分の領域を割り当て,指す領域にsprintf関数によりnの１０進文字列表現を書き込みそれを返す。
# (2) キーボードから正の整数が入力されるまで、入力促進文字列（プロンプト）を表示し
# 入力待ちを行い、入力された整数をint参照型引数nに入れて戻る関数inputを作成
# マニュピュレータやscanfを使用しないこと。
# (3)8個のintへの参照引数を持つsortという名称のvoid関数を作成
# 左からみてある引数が負ならそれを含めた残りの引数を整列対象としない条件のもとで
# 引数を小さい順に整列。整列対象の数を一行一列に空白区切りで出力する。
# この時atos関数を使うこと。処理記述にループ（ループ文を使うこと)があってはならない。
# (4) (1)~(3)の関数を用いてmain(void)関数を実行すると,それまでに入力された正の整数を
# sort関数を用いてソート／表示した後新しい整数をinput関数を用いて読み込む
# ことを８回繰り返した後、入力された８個の整数を整列したものをsort関数により表示する
# ようなものを作成する。for文とswitch文を使うこと。配列を使わないこと。
# (5) (1)〜(4)についてそれぞれ独立にテストしたコードを作成すること

>>270
% Prolog
'３つの自然数を辺にもつ直角三角形を1000個出力' :-
　　'３つの自然数を辺にもつ直角三角形'(1,1000,1,[],X),
　　member(L,X),
　　write_formatted('%t\n',[L]),
　　fail.
'３つの自然数を辺にもつ直角三角形を1000個出力'.

'３つの自然数を辺にもつ直角三角形'(M,Max,_,_,[]) :- M > Max,!.
'３つの自然数を辺にもつ直角三角形'(M,Max,C,Y,[[A,B,C]|R]) :-
　　約数が存在しない(C,Y),
　　C1 is truncate(C ^ 2),
　　自然数の2乗(3,N,A,A1),
　　自然数の2乗(3,N,B,B1),
　　A =< B,
　　C1 is A1 + B1,
　　M2 is M + 1,C2 is C + 1,
　　'３つの自然数を辺にもつ直角三角形'(M2,Max,C2,[C|Y],R).
'３つの自然数を辺にもつ直角三角形'(M,Max,C,Y,X) :- C2 is C + 1,'３つの自然数を辺にもつ直角三角形'(M,Max,C2,Y,X).

自然数の2乗(M,N,M,X) :- M =< N,X is truncate(M * M).
自然数の2乗(M1,N,M,X) :- M =< N,M2 is M1 + 1,自然数の2乗(M2,N,M,X).

約数が存在しない(A,L) :- \+((member(B,L),0 is A mod B)),!.

>>268
% Prolog (未完成)　最も単純にやるなら。こんな感じで。
日英辞書(少年,boy).
日英辞書(叩く,beats).
日英辞書(棒,stick).
日英辞書(すべての,Every).
日英辞書(見た,saw).
日英辞書(犬,dog).
日英辞書(愛した,loved).
日英辞書(削る,cut).
日英辞書(のこぎり,saw).
:- module(日本語,[名詞/2,動詞/2,助動詞/2]).
名詞([少年|R],R).
名詞([犬|R],R).
名詞([棒|R],R).
名詞([少女|R],R).
動詞([見た|R],R).
動詞([愛した|R],R).
助動詞([です|R],R).
動詞([叩く|R],R).
:- module(英語,[文/2,主語/2,述語/2,目的語/2,名詞句/2,動詞句/2,前置詞/2,名詞/2,冠詞/2]).
文(L,R) :- 主語(L,R1),述語(R1,R2),目的語(R2,R).
主語(L,R) :- 名詞句(L,R).
・・・
% 完成したら、 http://nojiriko.asia/prolog/c132_384.html に書いておきます。

>>271
% Prolog

'文字列と2つの整数(それぞれ n, m とする)を入力するとn文字目からm文字*に変える'(_文字列,N,M,_変換された文字列) :-
　　sub_atom(_文字列,N - 1,M,R,_),
　　length(L,M),
　　all(L,*),
　　concat_atom(L,S),
　　sub_atom(_文字列,0,N,_,S1),
　　sub_atom(_文字列,N + M,R,_,S2),
　　concat_atom([S1,S,S2],_変換された文字列).

>>272
% Prolog

program :-
　　write('文字を入力して下さい\n'),
　　get_line(_文字列),
　　'文字列を入力すると、文字列中の a の個数を数える'(_文字列,N),
　　write_formatted('aが%t個含まれています\n',[N]).

'文字列を入力すると、文字列中の a の個数を数える'(_文字列,N) :-
　　findall(_,sub_atom(_文字列,_,1,_,a),L),
　　length(L,N).

>>273
% Prolog

string型の引数を二つ与えて大文字小文字を区別せずそれが同じものかどうかを判定(_
文字列1,_文字列2,同じもの) :-
　　to_lower(_文字列1,_小文字化された文字列),
　　to_lower(_文字列2,_小文字化された文字列),!.
string型の引数を二つ与えて大文字小文字を区別せずそれが同じものかどうかを判定(_,
_,同じものではない).

http://pc11.2ch.net/test/read.cgi/db/1252492296/290
# ・テーブルデータ
# tblA
# pkey|value
# ----+-----
# 1　　|a
# 2　　|b
#
# tblB
# pkey|value
# ----+-----
# 1　　|c
#
# ・欲しい結果
# tblA
# pkey|value
# ----+-----
# 1　　|c
# 2　　|b
#
# ・説明 両テーブルとも、pkeyが主キーです。
# pkeyを条件に、tblAのvalueを、tblBのvalueで上書きしたいのですが、
# どの様に書くのが一般的なのでしょうか。

>>280
% Prolog
tblA(1,a).
tblA(2,B).

tblB(1,c).

update(_対象述語/Arity1,_キー位置1,_被置換項位置,_置換指定述語/Arity2,_キー位置2,_置換項位置) :-
　　length(L1,Arity1),
　　length(L2,Arity2),
　　P1 =.. [_対象述語|L1],
　　P2 =.. [_置換指定述語|L2],
　　list_nth(_キー位置1,L1,A),
　　list_nth(_キー位置2,L2,A),
　　list_nth(_置換項位置,L2,B),
　　call(P2),
　　call(P1),
　　retract(P1),
　　ならびの位置指定置換(_被置換項位置,B,L1,L3),
　　P3 =.. [_対象述語|L3],
　　asserta(P3).

>>255
% Prolog
http://nojiriko.asia/prolog/t2_255.html

http://pc12.2ch.net/test/read.cgi/tech/1258158172/430
# [1]C言語演習
# [2] コマンドラインで与えられた整数を読み取りその総和を返す関数を作りなさい。
# 但し、一つでも数字でない文字列が与えられた場合はその文字列を表示し、計算できない
# ことをメッセージ出力する。整数は64ビット符号付き整数の範囲とし与えられた数が
# その範囲に収まらない場合や総和の計算の途中でそうなる場合も、オーバーフローする
# 旨メッセージ出力すること。

http://pc12.2ch.net/test/read.cgi/tech/1248012902/539
# 【　課題　】三目並べゲームを作れ（以下は仕様）
# 　　　　　　・二人の対戦者が交互にO,Xの場所をマウスでクリックする
# 　　　　　　・マウスがクリックされたとき、対戦者のテーマ音を一回再生する
# 　　　　　　・既にO,Xがある場所が指定されたら、無視する
# 　　　　　　・勝敗が決定すると勝者のマーク（XorO)を赤で描画し、テーマ音を3回鳴らす
# 　　　　　　・勝敗が決すると入力を無視する
# 【　形態　】 Applet
# 【　GUI　 】 制限なし
# 【　期限　】11月 30日
# 【　Ver　 】1.6.0_10
# 【　補足　】自分でほぼ作ったんですがXが勝った場合にテーマ音が3回なりません
# http://ime.nu/www.dotup.org/uploda/www.dotup.org401130.java.html
#
# あと再描画させると以前に描画させたOやXが消えてしまうので
# paintメソッドの中でsuper.paint(g)を使ってないんですが、
# それではなぜか処理が遅くなったので、updateメソッドを使って
# その中でpaint（g）を直接呼び出してます

http://pc12.2ch.net/test/read.cgi/tech/1258158172/432
# [1] 授業単元：暇なヤシ集まれ
# [2] 問題文(含コード&リンク)：
# 　最大１０桁の数字列ｓと 10000 以下の正整数ｄが
# 　与えられたとき、ｓの各数字を並べ替えて出来る全
# 　ての数の中で、ｄで割り切れる数の総数を求める。
#
# 　計算例） s, d => 解
# 　・ 000, 1 => 1
# 　・ 1234567890, 1 => 3628800
# 　・ 123434, 2 => 90
#

>>255
% Prolog シミュレーションのエンジン部分。詳細は http://nojiriko.asia/prolog/t2_255.html

シミュレーション([[_,_,_,_,_前終,_],[_日付,_始,_高,_安,_終,_]|R],_日付,N,_売買値1,_売買値,_現金残高1,_現金残高,_持株数1,_持株数) :-
売買の契機(_前終,_始,_高,_安,_終,_契機ならび),
一日のシミュレーション(1,N,_契機ならび,_売買値1,_売買値,_現金残高1,_現金残高,_持株数1,_持株数).
シミュレーション([[_,_,_,_,_前終,_],[_日付,_始,_高,_安,_終,_]|R],_日付,N,_売買値1,_売買値,_現金残高1,_現金残高,_持株数1,_持株数) :-
売買の契機(_前終,_始,_高,_安,_終,_契機ならび),
一日のシミュレーションの二(_契機ならび,_売買値1,_売買値2,_現金残高1,_現金残高2,_持株数1,_持株数2),
シミュレーション([[_日付,_始,_高,_安,_終,_]|R],_日付,N,_売買値2,_売買値,_現金残高2,_現金残高,_持株数2,_持株数).

一日のシミュレーション(M,M,[_値|R],_売買値1,_売買値,_現金残高1,_現金残高,_持株数1,_持株数) :-
オペ(_売買値1,_売買値,_値,_現金残高1,_現金残高,_持株数1,_持株数).
一日のシミュレーション(M,N,[_値|R],_売買値1,_売買値,_現金残高1,_現金残高,_持株数1,_持株数) :-
オペ(_売買値1,_売買値2,_値,_現金残高1,_現金残高2,_持株数1,_持株数2),
M2 is M + 1,
一日のシミュレーション(M2,N,R,_売買値2,_売買値,_現金残高2,_現金残高,_持株数2,_持株数).

一日のシミュレーションの二([],_売買値,_売買値,_現金残高,_現金残高,_持株数,_持株数) :- !.
一日のシミュレーションの二([_値|R],_売買値1,_売買値,_現金残高1,_現金残高,_持株数1,_持株数) :-
オペ(_売買値1,_売買値2,_値,_現金残高1,_現金残高2,_持株数1,_持株数2),
一日のシミュレーションの二(R,_売買値2,_売買値,_現金残高2,_現金残高,_持株数2,_持株数).

>>286 ぎゃーっ。
これを読んでくれる人はいないだろうけれど、ひとこと。
なぜ、一日のシミュレーション/9 とそれとそっくりの
一日のシミュレーションの二/7 があるのか、
その違いは何か、それぞれどんな働きをしているのか。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/438
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)：
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10181.txt
#
# 〜課題１〜
# 変数a,b,cへ値を読み込み、方程式ax2（axの二乗）+bx+c=0の会を出力するプログラムを作成せよ。ただし、a=/0(aノット0)の場合の判別式はD=b2-4acで与えられるものとし、
# 解の公式は-b+-4ac/2aで与えられるものとする。虚数解となる場合はたとえばx=3+5i,x=3-5iのように実数部と虚数部がわかるように出力せよ。すべての場合を見落とさず考えよ。
# ルートの関数はsqrt関数を使う。たとえば√2.5を求める場合、
# double a;
# a=sqrt(2.5); /＊√2.5をaに代入＊/
# のように書く。ただし、sqrtの（）内に与えられる数（変数も指定できる）は正の実数(double型）でなければならない。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/438
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)：
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10181.txt
#
# 〜課題２〜
# 変数ｎを入力すると、以下の図のような表示を行うプログラムをそれぞれ作成せよ。ただし、図はｎ＝５の場合である。
# １つのプログラムとして作成せよ。
#
# *
# 　　　　***
# *****
# *******
# *********

>>289
すみません。化けました。要するに星の「ピラミッド」です。

>>203 (再掲)
% Prolog
% sub_atom/5はISO標準の非決定性述語。
% ここでは、先頭から一文字ずつ取りだしているが、これは規格で保証されて
% いる訳ではない。逆順に取れてしまっても文句の言いようがない。
% 現在の処理系ではこれで動くというだけだ。より安定的なコードは%%%のあとに。

文字を順に１文字ずつ交互に取り出す(Atom1,Atom2,Char) :-
　　sub_atom(Atom1,_,1,R,Char1),
　　sub_atom(Atom2,_,1,R,Char2),
　　(Char = Char1; Char = Char2).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

文字を順に１文字ずつ交互に取り出す(Atom1,Atom2,Char) :-
　　atom_chars(Atom1,Chars1),
　　atom_chars(Atom2,Chars2),
　　文字ならびから文字を順に１文字ずつ交互に取り出す(Chars1,Chars2,Char).

文字ならびから文字を順に１文字ずつ交互に取り出す([Char|R],Chars2,Char).
文字ならびから文字を順に１文字ずつ交互に取り出す(Chars1,[Char|R],Char).
文字ならびから文字を順に１文字ずつ交互に取り出す([_|R1],[_|R2],Char) :-
　　文字ならびから文字を順に１文字ずつ交互に取り出す(R1,R2,Char).

>>291
% 以下のように書く人が多い。速くてスマートだが、二本のどちらの
% リストの処理中か分からず、述語を発展させのが困難で私は嫌い。

文字ならびから文字を順に１文字ずつ交互に取り出す([Char|R],Chars2,Char).
文字ならびから文字を順に１文字ずつ交互に取り出す([_|L1],L2,Char) :-
　　文字ならびから文字を順に１文字ずつ交互に取り出す(L2,L1,Char).

>>288
% Prolog
:- op(250,xf,i).

二次方程式の解(0,B,C,X) :- X is (-1) * C / B.
二次方程式の解(A,B,C,X) :-
　　0.0 is B^2 - 4 * A * C,
　　X is ((-1) * B) / (2 * A).
二次方程式の解(A,B,C,X) :-
　　U is B^2 - 4 * A * C,
　　U > 0.0,
　　X is ((-1) * B) + sqrt(U)) / (2 * A).
二次方程式の解(A,B,C,X) :-
　　U is B^2 - 4 * A * C,
　　U > 0.0,
　　X is ((-1) * B) - sqrt(U)) / (2 * A).
二次方程式の解(A,B,C,(D+Ei)) :-
　　U is B^2 - 4 * A * C,
　　U < 0.0,
　　D is ((-1) * B) / (2 * A),
　　E is U / (2 * A).
二次方程式の解(A,B,C,(D-Ei)) :-
　　U is B^2 - 4 * A * C,
　　U < 0.0,
　　D is ((-1) * B) / (2 * A),
　　E is U / (2 * A).

>>289
% Prolog

ピラミッド(N) :-
　　length(L1,N),all(L1,' '),
　　ピラミッド(L1,[]).

ピラミッド([],HL).
ピラミッド([_|L1],HL) :-
　　append(L1,HL,L1,L2),
　　concat_atom(L2,S),
　　write_formatted('%t\n',[S]),
　　ピラミッド(L1,['*'|HL]).

>>294 間違えた。
% Prolog

ピラミッド(N) :-
　　length(L1,N),
　　all(L1,' '),
　　ピラミッド(L1,[*]).

ピラミッド([],HL).
ピラミッド([A|L1],HL) :-
　　append([A|L1],HL,[A|L1],L2),
　　concat_atom(L2,S),
　　write_formatted('%t\n',[S]),
　　ピラミッド(L1,['**'|HL]).

>>295 やっぱり違う。意外とややこしい。
% Prolog

ピラミッド(N) :-
　　length(L1,N),
　　all(L1,' '),
　　ピラミッド(L1,[*]).

ピラミッド([],HL) :- concat_atom(HL,S),write_formatted('%t\n',[S]).
ピラミッド([_|L1],HL) :-
　　append(L1,HL,L1,L2),
　　concat_atom(L2,S),
　　write_formatted('%t\n',[S]),
　　ピラミッド(L1,['**'|HL]).

>>296
数値演算処理がlength/2に隠蔽されていていいコードですね。でもさすがに、
length/2 + all/2 とか
concat_atom/2 + write_formatted/2 はひとつのユーティリティ述語に纏めた
方がいいと思いますよ。そろそろ。

>>297
all/2 や concat_atom/2 は既にそれに当たるんだけど。できる限り、
汎用述語を増やさないというか、あっても使わないのがPrologのスタイルだけど、
たしかにここまで頻繁に現れるとなると「そろそろ」かも知れない。

>>283
% Prolog

入力パラメータ加算(S) :-
　　user_parameters(L),
　　入力パラメータ解析(L,0,S,正常終了).

入力パラメータ解析(_,_,_,_診断) :- \+(_診断=正常終了),!.
入力パラメータ解析([],S,S,正常終了) :- !.
入力パラメータ解析([A|R1],S1,S,正常終了) :-
　　exception_handler(atom_to_term(A,N,_),error(E,I),error_message(E,I),fail),
　　加算処理(N,S1,S2,_診断2),
　　入力パラメータ解析(R1,S2,S,_診断2).
入力パラメータ解析([A|R1],S1,S,異常終了) :-
　　write_formatted('入力パラメータの解析中にエラーが発生しました。:"%t" 処理を停止します。\n',[N]),!.

加算処理(N,S1,S2,正常終了) :- integer(N),
　　exception_handler(S2 is S1 + N,error(E,I),error_message(E,I),fail),!.
加算処理(N,S1,S1,演算エラー) :- integer(N),!.
加算処理(N,S1,S1,非整数エラー) :- \+(integer(N)),
　　write_formatted('パラメータに整数以外の要素がありました : %t\n',[N]),!.

error_message(E,I) :- write_formatted('%t,%t エラー\n',[E,I]).

>>289
main = readLn >>= \n -> putStr $ unlines [replicate (n-i) ' ' ++ replicate (2*i-1) '*' | i <- [1..n]]

>>288
import Data.Complex

solve2 :: RealFloat a => Complex a -> Complex a -> Complex a -> [Complex a]
solve2 0 b c = [c / b]
solve2 a b c = let d = b*b - 4*a*c
in [(-b + sqrt d) / (2*a), (-b - sqrt d) / (2*a)]

main = print $ solve2 1 1 1

>>283
import System.Environment (getArgs)
main = getArgs >>= print . sum . map read

>>285
% Prolog

'最大１０桁の数字列ｓと 10000 以下の正整数ｄが与えられたとき、ｓの各数字を並べ替えて出来る全ての数の中で、ｄで割り切れる数の総数を求める'(_数字ならび,D,X) :-

　　length(_数字ならび,Len),
　　Len =< 10,
　　D < 10000,
　　findall(Y,(数字ならびから順列整数(_数字ならび,Len,Y),0 is Y mod D),L),
　　sort(L,L2),
　　length(L2,X).

数字ならびから順列整数(Y,0,0).
数字ならびから順列整数(Y,N,X) :-
　　del(Z = Y - A),
　　M is N - 1,
　　数字ならびから順列整数(Z,M,X2),
　　X is truncate(10^M*A+X2).

http://pc12.2ch.net/test/read.cgi/tech/1258158172/451
# [1]やさしいC言語
# [2]　４つの数を大きさの小さい順に並べ替える関数 Sort4(int *a,int *b.int *c,int *d)
# （呼び出し後a<=b<=c<=dとなる）を作り、この関数を利用してキーボードから４つ
# の整数を読み取り、大きい順に出力するプログラムを作りなさい。
# Sort4関数の中ではループ文（while/do while/for)を用いないこと
#

http://pc12.2ch.net/test/read.cgi/tech/1258158172/458
# [1] 基礎プログラミング実習
#
# [2]99文字までの文字列を入力し，アルファベットの小文字は大文字に，アルファベットの大文字は小文字に，
# またアルファベット以外の文字はアスタリスク’*’に変換した文字列を出力するプログラムを作成せよ．
# 99文字以下の文字列を入力してください．abcABC123sDFgh#"x32YY=
#
# 変換された文字列はABCabc***SdfGH**X**yy*です．
#
# 追伸：
# ちなみにどうやらアスキーコードを使うらしいです。
# 大文字のコードに３２を足せば小文字のコードになるとか言ってました。
# これを使わなければいけないようです。
# あとライブラリ関数は使用不可です。
# 文字列とかやったの初めてです。
#

>>285
NB. J言語

f=:dyad def'+/0=y|~.".(i.!#x)A.x'

'000' f 1
1
'123434' f 2
90
'123456789' f 1
362880
'1234567890' f 1
|out of memory: f
| +/0=y|~.".(i.!#x) A.x

10桁はout of memoryになってしまいます。(使用したパソコンのメモリは512MB)
もっとメモリがあれは実行できるのかどうかは、わかりません。

>>305
% Prolog
'アルファベットの小文字は大文字にアルファベットの大文字は小文字にまたアルファベット以外の文字はアスタリスク*に変換して表示' :-
　　write('99文字以下の文字列を入力してください. '),
　　get_line(Line),
　　atom_codes(Line,Codes),
　　length(Codes,_長さ),_長さ =< 99,
　　文字コードによる直接変換(Codes,Codes2),
　　atom_codes(_変換された文字列,Codes2),
　　write_formatted('変換された文字列は%tです\n',[_変換された文字列]).

文字コードによる直接変換([],[]).
文字コードによる直接変換([Code|R1],[Code2|R2]) :-
　　Code >= 65,Code =< 90,
　　Code2 is Code + 32,
　　文字コードによる直接変換(R1,R2).
文字コードによる直接変換([Code|R1],[Code2|R2]) :-
　　Code >= 97,Code =< 122,
　　Code2 is Code - 32,
　　文字コードによる直接変換(R1,R2).
文字コードによる直接変換([Code|R1],[42|R2]) :-
　　\+((Code >= 65,Code =< 90)),
　　\+((Code >= 97,Code =< 122)),
　　文字コードによる直接変換(R1,R2).

>>304
% Prolog

sort4(A,B,C,D,X1,X2,X3,X4) :-
　　順列([A,B,C,D],4,[X1,X2,X3,X4]),
　　X1 >= X2,
　　X2 >= X3,
　　X3 >= X4,!.

>>289
NB. J言語

f=:monad def'''-*''(1!:2&2)@#~(,.<:@+:@(y&-))|.i.y'


f 5
----*
---***
--*****
-*******
*********

http://pc12.2ch.net/test/read.cgi/tech/1258158172/456
# [1] 授業単元： C++
# [2] 問題文(含コード&リンク)：
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10195.txt
#
# 今回はナップサック問題について考えプログラムを作成する。N個の荷物があって、個々の荷物の重さをWi、値段をPiとする。但しiは1からNの整数を意味する。
# 袋には最大Wの重さまで入れられるとすると、最大でいくら分を入れることができるか？という問題。
# データファイルは、始めの一行に荷物の個数Nが書かれており、次に重さが整数でN行分書かれている。その次の行からN行分、それぞれの荷物の価値が書かれているとする。

# 下のデータファイルの場合は、３個の荷物があり、重みは１０、２０、１３、で
# それぞれの値段は２３、２３、１０という状況を表す。
# -------------------
# 3
# 10
# 20
# 13
# 23
# 23
# 10
# -------------------
# 荷物の重みと値段はともに、１から１００までの乱数で与えることとする。
# void_write_data_file(char*file,intN)という関数を呼ぶとN個分のデータを乱数で生成し、文字列変数fileに入っている
# ファイル名のファイルを開き、そこにデータを記録する。void_read_data_file(char*file)という関数を呼ぶと、文字列変数fileによって名前が指定されたファイルを開き、大域変数の荷物の重み配列W[]と値段配列[]にデータを入力する。

>>258
NB. J言語

f=:,$'*'"_

3 f 5
*****
*****
*****

>>310
% Prolog

ナップサック問題(_ファイル名,N,_許容最大重量,_詰めることのできる最高合計金額) :-
　　データファイルの読み出し(_ファイル名,N,_価格ならび,_重さならび),
　　findall(M,for(1,M,N),_1からNまで),
　　findmax(_合計価格,詰め物の作成(N,_1からNまで,_許容最大重量,_重さならび,_価格ならび,_合計価格),_詰めることのできる最高合計金額).

データファイルの読み出し(_ファイル名,N,_重さならび,_価格ならび) :-
　　see(_ファイル名),get_integer(N),get_integers(L1),seen,
　　length(L2,N),length(L3,N),
　　append(_重さならび,_価格ならび,L1),!.

詰め物の作成(N,_1からNまで,_許容最大重量,_重さならび,_価格ならび,_合計価格) :-
　　for(1,M,N),
　　組合せ(_1からNまで,M,L),
　　findsum(Wi,(member(A,L),list_nth(A,_重さならび,Wi)),_合計重量),
　　_合計重量 =< _許容最大重量,
　　findsum(Pi,(member(A,L),list_nth(A,_価格ならび,Pi)),_合計金額).

get_integers(L) :-
　　findall(I,(get_line(Line),(Line=end_of_file,!,fail;atom_to_term(Line,I,_))),L),!.

>>182
使用言語:maxima

printf(true,"~{~{~4d~}~%~}",makelist(makelist(i*j,j,1,10),i,1,10));

http://pc12.2ch.net/test/read.cgi/tech/1258158172/475
# 【質問テンプレ】
# [1] 授業単元：Cプログラミング
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10196.txt
# 入力された1000以下の整数を素因数分解して、結果を出力するプログラムを作成しなさい。
# 素因数分解とは、自然数を素数ばかりの積の形に書き表すことをいう。
#
# 例:60=2*2*3*5 このとき2、3、5は60の素因数であるという。
#
# 自然数Nが素因数分解できるとき、N≧G^2となる素因数Gが存在することが数学的に証明されているので次のようなアルゴリズムを考えた。
# (1)キーボードから入力された数nが1以下なら、再入力させる。
# (2)kに2を代入する。
# (3)kの二乗をmとする。
# (4)nとmを比較し、nがm以上なら(記述ミスかもしれないnがm未満なら？)nを素因数として出力して終了する。
# (5)nがmより小さければnをkで割り、商qと余りrを求める。
# (6)余りrが0でなければ(nがkで割り切れなければ)、kの値を1増やして(3)に戻る。
# (7)余りrが0なら(nがkで割り切れれば)、kを素因数として出力する。
# (8)商qが1なら処理を終了する、そうでなければqを新たなnとして(5)に戻る。

http://pc12.2ch.net/test/read.cgi/tech/1258320456/47
# 【　課題　】四人四首問題。「かるた部」の練習の一環として、
# 百人一首の中から第一文字が「や」の四枚を選んで、徹底的に練習することに
# しました。四枚とは、
# やすらはでねなましものをさよふけてかたぶくまでのつきをみしかな
# やへむぐらしげれるやどのさびしきにひとをもみをみうらみざらまし
# やまざとはふゆぞさびしさまさりけるひとめもくさもかれぬとおもへば
# やまがはにかぜのかけたるしがらみはながれもあへぬもみぢなりけり
# ルールは、
# 1) 二人ゲームである。
# 2) 四枚のなかから無作為に二枚を選び自分と相手の札とする。
# 3) 読み手は四枚全部読み上げる。いたがって空札(取る札がない)が二枚含まれる。
# 4) 一枚取った時点で勝負はつくが、残りの一枚も競うこととする。
#
# [問題] 乱数を使ってそれぞれの持ち札を決め、それを表示します。
# つぎに、読み札の順番を決めます。これはこの段階では表示しません。
# 一首、読み、それを表示し、
# 1) 空札 : 何文字目まで読まれてそれがわかったか
# 2) 相手札 : 同上
# 3) 自分札 : 同上
# を表示しなさい。これを繰り返し、取り札がなくなったらゲームオーバー。
# 4) 二つのモードで作りなさい
# 　1) 読まれた札を二人とも記憶している。
# 　2) 読まれた札は忘れてしまう。
# 実際には取り札には下の句が書かれていますが、ここでは一首全体をお互い理解しているものとします。

>>182
使用言語：　R

write(sprintf("%4d",1:10%o%1:10),"",10)

1 2 3 4 5 6 7 8 9 10
2 4 6 8 10 12 14 16 18 20
3 6 9 12 15 18 21 24 27 30
4 8 12 16 20 24 28 32 36 40
5 10 15 20 25 30 35 40 45 50
6 12 18 24 30 36 42 48 54 60
7 14 21 28 35 42 49 56 63 70
8 16 24 32 40 48 56 64 72 80
9 18 27 36 45 54 63 72 81 90
10 20 30 40 50 60 70 80 90 100

>>314
NB. J言語

f=:monad def';(,'' * ''&;)/<@":"0 q:y'


f 11111
41 * 271

f 11111111
11 * 73 * 101 * 137

http://pc12.2ch.net/test/read.cgi/tech/1258158172/486
# [1] 授業単元：C言語演習
# [2] 問題文： 1〜100までの数字を繰り返し入力し、最後に0を入力するとこれまでに
# 入力された値の合計値を表示するプログラムを作成しなさい。ただし
# 1〜100以外の数字が入力されたときは”エラー”と表示させる。
#

>>17　問題2
使用言語：　R

f <- function (n) {
a <- 1:n
sum(a[a%%3==0|a%%5==0])
}

> f(10)
[1] 33
> f(2000)
[1] 933668

>>17　問題1
使用言語：　R

f <- function (n) {substr("abcdefghijklmnopqrstuvwxyz",1,n)}

> f(6)
[1] "abcdef"
> f(30)
[1] "abcdefghijklmnopqrstuvwxyz"

http://pc12.2ch.net/test/read.cgi/tech/1258158172/497
# [1] 授業単元：C
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10200.txt
#
# 初期設定された文字列の順序を逆に並べ替えるプログラムを作成せよ。
# ただし、並べ替える部分は関数とし、文字列の長さは最大255文字とする

http://pc12.2ch.net/test/read.cgi/tech/1248012902/549
# 課題は長くて載せられないため
# <A HREF="http://nojiriko.asia/prolog/j68_549_kadai.html">ここにコピーさせてい
ました</A>

>>322
すみません。肝心の原文の在り処を削ってしまいました。
http://oshiete1.goo.ne.jp/qa5482918.html

>>318
% Prolog 汎用述語の定義は http://nojiriko.asia/prolog/c132_486.html を参照してください。

'1〜100までの数字を繰り返し入力し、最後に0を入力するとこれまでに入力された値の
合計値を表示する'(_合計値) :-
　　findsum(X,(repeat,get_integer(X),(X=0,!,fail;範囲範囲チェック(X)),_合計値),
　　write_formatted('合計は%t\n',[_合計値]).

整数範囲チェック(X):- X > 0,X =< 100.
整数範囲チェック(X):- \+((X >0,X =<100)),write('整数範囲エラー\n'),fail.

>>321
% Prolog 初期設定されたというところが微妙。Prologだと・・・かな

初期設定された文字列の順序を逆に並べ替える :-
　　retract('(初期)設定文字列'(_文字列)),
　　文字列の反転(_文字列,_反転された文字列),
　　asserta('(初期)設定文字列'(_反転された文字列)).

文字列の反転(_文字列,_反転された文字列) :-
　　atom_chars(_文字列,Chars),
　　reverse(Chars,RChars),
　　atom_chars(_反転された文字列,RChars).

>>321
使用言語：　十進BASIC

SUB reverse(a$)
LET b=LEN(a$)
LET c=INT(b/2)
FOR i = 1 TO c
LET t$=a$(i:i)
LET a$(i:i)=a$(b-i+1:b-i+1)
LET a$(b-i+1:b-i+1)=t$
LET c=5
NEXT I
END SUB
LET s$="12345"
CALL reverse(s$)
PRINT s$
END

実行結果
54321

>>318
使用言語：　十進BASIC

LET v=1
DO WHILE v<>0
INPUT v
IF 0<=v AND v<=100 THEN
LET s=s+v
ELSE
PRINT "エラー"
END IF
LOOP
PRINT s
END

実行結果
? 1
? 2
? 200
エラー
? 3
? 0
6

>>318
エラーチェックする範囲をまちがえた。
使用言語：　十進BASIC

LET s=0
LET v=1
DO WHILE v<>0
INPUT v
IF 1<=v AND v<=100 THEN
LET s=s+v
ELSE
PRINT "エラー"
END IF
LOOP
PRINT s
END

実行結果
? 1
? 2
? 200
エラー
? 3
? 0
6

>>17 　問題2
使用言語：　Arc

(def f (n)
(sum
[if (or (is (mod _ 3) 0) (is (mod _ 5) 0)) _ 0 ]
(range 1 n)))

arc> (f 20)
98
arc> (f 100000)
2333416668
arc>

http://pc12.2ch.net/test/read.cgi/tech/1258158172/550
# [1] 授業単元：　プログラミング�U
# [2] 問題文(含コード&リンク)：
#
# 2進数と10進数の相互変換のプログラムを作る。
# 自作関数として変換(計算)部分と入力部分とを分ける。
# 正負の数、少数も変換できるようにする。
# 入力はScanfを使用する。
#

>>45
使用言語：　Arc

(def fact (n) (if (is n 0) 1 (apply * (range 1 n))))

arc> (for i 0 10 (prn (fact i)))
1
1
2
6
24
120
720
5040
40320
362880
3628800
nil

http://pc12.2ch.net/test/read.cgi/tech/1258158172/557
# [1] 授業単元： プログラミング
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10207.txt
# [問題]
# 行数と列数を引数として、その行数と列数だけアスタリスクを表示させる関数showwas
ter()を作成する。
# 入力は正の整数だけを考えれば平気です。
#
# [解らない部分]
# 下のプログラム中の???の部分が解りません…
# 予備ですが現在、関数の呼び出しやプロトタイプ宣言などを習っています
# よろしくお願い致します

http://pc12.2ch.net/test/read.cgi/tech/1258158172/560
# [1] 授業単元：C言語
# [2] 問題文(含コード&リンク)：
# int型整数の４乗を返す関数
# int pow4(int x)
# を作成せよ。（ただし関数powは使用しない）
#
# （実行例）
# 整数を入力してください：５
# その４乗値は６２５です。
#

>>333
% Prolog 既出 http://nojiriko.asia/prolog/c132_368_2.html

pow4 :-
　　get_inetger(N),
　　pow4(N,X),
　　write_formatted('その4乗値は%tです。\n',[X]).

pow4(N,X) :-
　　X is N * N * N * N.

>>332
% Prolog

showwaster(M,N) :-
　　waster(M,N,L),
　　showwaster(L).

showwaster([]).
showwaster([L|R]) :-
　　writeAn(L),
　　showwaster(R).

waster(N1,N,M,[]) :- N1 > N,!.
waster(N1,N,M,[A|R]) :-
　　length(L,M),
　　all(L,*),
　　N2 is N1 + 1,
　　waster(N2,N,M,R).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
writeAn(_ならび) :-
　　concat_atom(_ならび,Atom),
　　write_formatted('%t\n',[Atom]).

>>335 違っていたので書き直し
% Prolog

showwaster(M,N) :-
　　waster(1,N,M,L), /* ここを訂正 */
　　showwaster(L).

showwaster([]).
showwaster([L|R]) :-
　　writeAn(L),
　　showwaster(R).

waster(N1,N,M,[]) :- N1 > N,!.
waster(N1,N,M,[A|R]) :-
　　length(L,M),
　　all(L,*),
　　N2 is N1 + 1,
　　waster(N2,N,M,R).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
writeAn(_ならび) :-
　　concat_atom(_ならび,Atom),
　　write_formatted('%t\n',[Atom]).

>>257 >>331
使用言語：　maxima

pow4(n):=n*n*n*n;


(%i15) pow4(6);
(%o15) 1296

>>258 >>332
使用言語：　maxima

showwaster(a,b):=(c:smake(b,"*"),for i thru a do print(c));

(%i1) showwaster(3,15);
***************
***************
***************

http://pc12.2ch.net/test/read.cgi/tech/1258158172/565
#　[1] 授業単元：プログラミング演習
#　[2] 問題文(含コード&リンク)：
#　http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10209.txt
# 以下の実行結果を元に、元金[円]と年利[%]と預金年度をキーボードから入力させ、
# １０年間預金したときの毎年度の利息と元利合計を表示するプログラムを作成、コンパイル、実行しなさい。
# なお、利息は複利で計算し、毎年度の利息の円単位未満は切り捨てること。
# 元金[円]を入力してください　: 3613 enter↓
# 年利[%]を入力してください　 : 9.6　enter↓
# 預金年度を入力してください　: 2009 enter↓
# +-----------+------------+-----------+er↓
# | 年度　 　 |　　利息　　|　 元利合計|
# +-----------+------------+-----------+
# |　　　2009 |　　　　　　|　　　3613 |
# |　　　2010 |　　　　346 |　　　3959 |
#　　　　　　　　<中略>
# |　　　2018 |　　　　721 |　　　8238 |
# |　　　2019 |　　　　790 |　　　9028 |
# +-----------+------------+-----------+

>>257 >>331
使用言語：　Arc

(def pow4 (n) (* n n n n))

arc> (pow4 7)
2401

>>258 >>332
使用言語：　Arc

(def showwaster (a b) (for i 1 a (for j 1 b (pr "*")) (prn) ))

arc> (showwaster 5 8)
********
********
********
********
********
nil

>>305
-- Haskell
import Data.Char

main = getLine >>= putStrLn . map convert

convert c | isUpper c = toLower c
| isLower c = toUpper c
| otherwise = '*'

>>314
-- Haskell
main = print $ factorize 60

factorize :: Integral a => a -> [a]
factorize = go 2
where
go k n | n < k*k = [n]
| r == 0 = k : go k q
| otherwise = go (k+1) n
where (q,r) = n `divMod` k

>>257 >>331
使用言語：　十進BASIC

DEF pow4(n)=n*n*n*n
PRINT pow4(8)
END

実行結果
4096

>>318
-- Haskell

import Control.Monad.State

main = execStateT t318 0 >>= print

t318 :: StateT Int IO ()
t318 = do
n <- liftIO readLn
if n == 0
then return ()
else if 1 <= n && n <= 100
then modify (+n) >> t318
else error "error"

>>258 >>332
使用言語：　十進BASIC

SUB showwaster(a,b)
PRINT REPEAT$(REPEAT$("*",b)&CHR$(10),a)
END SUB
CALL showwaster(5,3)
END

実行結果
***
***
***
***
***

>>322
-- Haskell

import System.Environment (getArgs)

newtype Point2D a = Point2D (a,a)
newtype Triangle a = Triangle (Point2D a,Point2D a)

main = do
argv <- getArgs
case argv of
[ax,ay,bx,by] -> let a = mkPoint2D (read ax) (read ay)
b = mkPoint2D (read bx) (read by)
in print $ getArea $ mkTriangle a b
_ -> putStrLn "usage: a.out ax ay bx by"

mkPoint2D = curry Point2D
mkTriangle = curry Triangle

getArea :: Fractional a => Triangle a -> a
getArea (Triangle (Point2D (ax,ay), Point2D (bx,by)))
= abs (ax*by - ay*bx) / 2

>>339
% Prolog
'１０年間預金したときの毎年度の利息と元利合計を表示' :-
　　催促付き整数入力('元金[円]を入力してください　: ',_元金1),
　　催促付き整数入力('年利[%]を入力してください : ',_年利),
　　催促付き整数入力('預金年度を入力してください : ',_預金年度1),
　　write('+-----------+------------+-----------+\n'),
　　write('| 年度　 　 |　　利息　　|　 元利合計|\n').
　　write('+-----------+------------+-----------+\n'),
　　元利合計計算(_預金年度1,_預金年度,_年利,0,_元金1,_元利合計),
　　年度ごとに表示(_預金年度1,_預金年度,_利息,_元利合計),
　　_預金年度 is _預金年度1 + 10,
　　write('+-----------+------------+-----------+\n'),!.

元利合計計算(_預金年度,_預金年度,_年利,_利息,_元金,_元金).
元利合計計算(_預金年度1,_預金年度,_年利,_,_元金1,_元金) :-
　　_利息2 is truncate(_元金1 * _年利 / 100),
　　_元金2 is _元金1 + _利息2,
　　_預金年度2 is _預金年度 + 1,
　　元利合計計算(_預金年度2,_預金年度,_年利,_利息2,_元金2,_元利合計).

年度ごとに表示(_預金年度,_預金年度,_利息,_元利合計) :-
　　write_formatted('|　　　%t |　 |　%8d |\n',[_預金年度,_元利合計]),!.
年度ごとに表示(_,_預金年度,_利息,_元利合計) :-
　　write_formatted('|　　　%t |　%8d |　%8d |\n',[_預金年度,_元利合計]),!.

>>305
使用言語：　十進BASIC
FUNCTION f$(s$)
FOR i=1 TO LEN(s$)
LET c=ORD(s$(i:i))
IF 65<=c AND c<=90 THEN
LET d=c+32
ELSEIF 97<=c AND c<=122 THEN
LET d=c-32
ELSE
LET d=42
END IF
LET s$(i:i)=CHR$(d)
NEXT I
LET f$=s$
END FUNCTION

PRINT f$("abcABC123sDFgh#""x32YY=")
END

実行結果
ABCabc***SdfGH**X**yy*

>>339
ime.nu くらい抜いてくれ
-- Haskell
import Control.Arrow ((&&&), (>>>))
import Control.Applicative ((<*>))
import qualified System.IO.UTF8 as U
import System.IO (hFlush, stdout)
import Text.Printf (printf)

flush = hFlush stdout

main = do
U.putStr "元金[円]を入力してくさい: " >> flush
a <- readLn
U.putStr "年利[%]を入力してください: " >> flush
b <- readLn
U.putStr "預金年度を入力してください: " >> flush
c <- readLn

putStrLn "+-----------+------------+-----------+"
U.putStrLn "| 年度 | 利息 | 元利合計 |"
putStrLn "+-----------+------------+-----------+"
mapM_ (\(x,(y,z)) -> putStrLn $ prettify x y z) $ zip [c,c+1..] $ take 11 $ t339 a b
putStrLn "+-----------+------------+-----------+"
where
prettify :: Int -> Int -> Int -> String
prettify = printf "|%11d|%12d|%11d|"

t339 init i = iterate (snd >>> interest i &&& ((+) <*> interest i)) (0,init)

interest :: (RealFrac a, Integral b) => a -> b -> b
interest d n = floor $ fromIntegral n * d/100

>>339
使用言語：　十進BASIC

INPUT PROMPT "元金[円]を入力してください　:":元金
INPUT PROMPT "年利[%]を入力してください　 :":年利
INPUT PROMPT "預金年度を入力してください　:":預金年度
LET 利息=0
PRINT "+------------+------------+------------+"
PRINT "|　　年度　　|　　利息　　|　元利合計　|"
PRINT "+------------+------------+------------+"
PRINT USING "|############| |############|": 預金年度,元金
FOR i=1 TO 10
LET 利息=INT(元金*年利/100)
LET 元金=元金+利息
PRINT USING "|############|############|############|": 預金年度+i,利息,元金
NEXT I
PRINT "+------------+------------+------------+"
END

ASPで九九を表示するプログラム
For nextやtableタグを使用して

どなたか助けて

Response.write "<table border=1>"
Response.write "<tr>"
Response.write "<td>"
For i=1 to 9
For j=1 to 9
A=j*i
Response.write A
Response.write "</td>"
Response.write "<td>"
Next
Response.write "</tr>"
Next
Response.write "</table>"

テーブルに上手くおさめることができません。
９マス９マスで同時に納めていく方法がしたいです。

できたー。aspというよりhtmlが不勉強でしたorz

>>354
どうなったの？

>>355
Response.write "<table border=1>"
For i=1 to 9
Response.write "<tr>"
For j=1 to 9
Response.write "<td>"
A=j*i
Response.write A
Response.write "</td>"
Next
Response.write "</tr>"
Next
Response.write "</table>"

多分これでいいかと思うのだけど
間違ってたり簡略できたら指摘してほしいな

Forの間に<td>がひとつくる。正解ですね。

>>352 >>353
大括弧[]を<table></table>,中括弧{}を<tr></tr>,
小括弧()を<td></td>とすれは下のように囲えばいいみたいです。
あと、</td>と</tr>は省略可能だそうです。
[
{(1)(2)(3)(4)(5)(6)(7)(8)(9)}
{(2)(4)(6)(8)(10)(12)(14)(16)(18)}
{(3)(6)(9)(12)(15)(18)(21)(24)(27)}
{(4)(8)(12)(16)(20)(24)(28)(32)(36)}
{(5)(10)(15)(20)(25)(30)(35)(40)(45)}
{(6)(12)(18)(24)(30)(36)(42)(48)(54)}
{(7)(14)(21)(28)(35)(42)(49)(56)(63)}
{(8)(16)(24)(32)(40)(48)(56)(64)(72)}
{(9)(18)(27)(36)(45)(54)(63)(72)(81)}
]

>>358
今日では閉じタグの省略は、あまり歓迎されていないので注意。

>>17 問題2
使用言語：　十進BASIC

FUNCTION f(n)
LET s=0
FOR i=1 TO n
IF MOD(i , 3 ) = 0 OR MOD(i , 5 ) = 0 THEN
LET s=s+i
END IF
NEXT I
LET f=s
END FUNCTION

PRINT f(500)
END

実行結果
58418

>>17 問題5
使用言語：　十進BASIC

DIM d(5)
FOR i=1 TO 5
INPUT PROMPT "数を入力して下さい：":d(i)
NEXT I
PRINT "そのまま表示"
FOR i=1 TO 5
PRINT d(i);
NEXT I
PRINT
PRINT "逆順に表示"
FOR i=5 TO 1 STEP -1
PRINT d(i);
NEXT I
PRINT
END

実行結果
数を入力して下さい：10
数を入力して下さい：11
数を入力して下さい：12
数を入力して下さい：13
数を入力して下さい：14
そのまま表示
10 11 12 13 14
逆順に表示
14 13 12 11 10

>>315
% Prolog 長くなるので中核部分のみ

現在の決まり字(_まだ読まれていない札ならび,_自分の手元札ならび,_相手の手元札ならび,_決まり字ならび) :-
append(_自分の手札ならび,_相手の手札ならび,_手札として存在する札ならび),
決まり字判断(_手札として存在する札ならび,_まだ読まれていない札ならび,_決まり字ならび).

決まり字判断([],_,[]) :- !.
決まり字判断([_手札|R1],_まだ読まれていない札ならび,[[_手札,Len,_決まり字]|R2])
:-
　　先頭から共通部分の次の文字までで最長のもの(_手札,_まだ読まれていない札ならび,Len,_決まり字),
　　決まり字判断(R1,_まだ読まれていない札ならび,R2).

先頭から共通部分の次の文字までで最長のもの(_手札,_まだ読まれていない札ならび,Len,_決まり字) :-
　　findmax([Len,_決まり字],
　　　　(　 member(_札,_まだ読まれていない札ならび),
　　　　　　\+(_札=_手札),
　　　　　　先頭から共通部分の次の文字まで(1,_手札,_札,_決まり字,Len)),[Len,_決まり字]),!.
先頭から共通部分の次の文字までで最長のもの([_決まり字|_],_,[1,_決まり字]).

先頭から共通部分の次の文字まで(N,[A|R1],[A|R2],[A|R3],Len) :-
　　N2 is N + 1,
　　先頭から共通部分の次の文字まで(R1,R2,R3,Len),!.
先頭から共通部分の次の文字まで(Len,[A|R1],_,[A],Len).

>>362 書き直し
% Prolog 長くなるので中核部分のみ

現在の決まり字(_まだ読まれていない札ならび,_自分の手元札ならび,_相手の手元札ならび,_決まり字ならび) :-
　　append(_自分の手札ならび,_相手の手札ならび,_手札として存在する札ならび),
　　決まり字判断(_手札として存在する札ならび,_まだ読まれていない札ならび,_決まり字ならび).

決まり字判断([],_,[]) :- !.
決まり字判断([_手札|R1],_まだ読まれていない札ならび,[[_手札,_位置,_決まり字]|R2]) :-
　　先頭から共通部分の次の文字までで最長のもの(_手札,_まだ読まれていない札ならび,_位置,_決まり字),
　　決まり字判断(R1,_まだ読まれていない札ならび,R2).

先頭から共通部分の次の文字までで最長のもの(_手札,_まだ読まれていない札ならび,_位置,_決まり字) :-
　　findmax([_位置,_決まり字],
　　　　(　 member(_札,_まだ読まれていない札ならび),
　　　　　　\+(_札=_手札),
　　　　　　先頭から共通部分の次の文字まで(1,_手札,_札,_決まり字,_位置)),[_位置,_決まり字]),!.
先頭から共通部分の次の文字までで最長のもの([_決まり字|_],_,[1,_決まり字]).

先頭から共通部分の次の文字まで(N,[A|R1],[A|R2],[A|R3],Len) :-
　　N2 is N + 1,
　　先頭から共通部分の次の文字まで(R1,R2,R3,Len),!.
先頭から共通部分の次の文字まで(_位置,[A|R1],_,[A],_位置).

>>45
使用言語：　十進BASIC

FUNCTION fact(n)
IF n=0 THEN
LET fact=0
ELSE
LET a=1
FOR i=1 TO n
LET a=a*i
NEXT I
LET fact=a
END IF
END FUNCTION
PRINT fact(15)
END

実行結果
1307674368000

現在の決まり字の判断は次の読み札が読まれるまでの「間」だが、
一々すべて判断し直すとは考えにくい。
一枚読み終わった時点で一枚前の段階に微修正を加えてという方が、
自然だろうから書き直しが必要なようだ。
できたら http://nojiriko.asia/prolog/py2_47.html に書きます。ちょっと待って。

>>207
使用言語：　十進BASIC

FUNCTION f$(a$,b$,n)
LET a$(n+1:n)=b$
LET f$=a$
END FUNCTION

PRINT f$("12345","AB",3)
END

実行結果
123AB45

>>365
アーカイブの方見せてもらったけど、この手のやつは、親が(ここでは読み手ということになるけど)、サーバーにないと面白くない。
このプログラムだと、そこから、一字ずつ取ってくる。あるいは、競技者も
サーバーのモードで次の文字を待ち受けている。
そういう風に作れませんか？

>>367
シミュレーションの域を越えるな。ほとんどゲーム。
面白いからやってみるけど。
その前にもうすこし、人間の思考に近づけなくちゃね。

>>367
ここでやると邪魔になるから、この話はこっちでやるね。
http://pc11.2ch.net/test/read.cgi/mysv/1102662133/

<A HREF="http://nojiriko.asia/prolog/index.html">このディレクトリの索引</A>
http://pc12.2ch.net/test/read.cgi/tech/1258158172/588
# [1] 授業単元：Cプログラミング演習
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10211.txt
#
# 課題(1)
# 4つの整数を入力し、その最大値、最小値、平均を求める関数を各自で定義し出力するプログラムを書け。
#
# 課題(2)
# 任意の数字と桁数を入力し、桁数に該当する整数を出力する関数を各自で定義し結果を出力するプログラムを書け。
# 例えば数字に123456789と入力し、桁数を5とした場合下5桁の5を出力する関数。
#
# 課題(3)
# 課題(1)の整数を配列形式で定義し、同様に最大値、最小値、平均値を出力するプログラムを書け。
# （余力があれば分散も考えてみよ）

http://pc12.2ch.net/test/read.cgi/tech/1258158172/589
# [1]C言語入門
# [2] 3つの整数x,y,zを入力し、これらを引数として、大きい順に入れ替えて返す関数をつくれ。ただしポインタ変数を用いること。
# main関数は整数の入力と結果の表示のみにする。
#

>>370 一行目は関係ありません。無視してください。

>>370 課題(1)
% Prolog

'4つの整数を入力し、その最大値、最小値、平均を求める' :-
　　'4つの整数を入力し、その最大値、最小値、平均を求める'(_最大値,_最小値,_平均値),
　　write_formatted('最大値=%t,最小値=%t,平均値=%t\n',[_最大値,_最小値,_平均値]).

'4つの整数を入力し、その最大値、最小値、平均を求める'(_最大値,_最小値,_平均値) :-
　　findall(N,(for(1,M,4),get_integer(N)),L),
　　max(L,_最大値),
　　min(L,_最小値),
　　avg(L,_平均値).

>>370 課題(1)
% Prolog それとも、入力は関数の引数として取るべきなのだろうか。
% Prologの場合、インタプリタだから、

'4つの整数を入力し、その最大値、最小値、平均を求める'(_整数1,_整数2,_整数3,_整数4,_最大値,_最小値,_平均値) :-
　　integer(_整数1),integer(_整数2),integer(_整数3),integer(_整数4),
　　max([_整数1,_整数2,_整数3,_整数4],_最大値),
　　min([_整数1,_整数2,_整数3,_整数4],_最小値),
　　avg([_整数1,_整数2,_整数3,_整数4],_平均値).

% とする方がいいのかもしれない。write_formatted/2で標準出力への印字はProlog本来のスタイルではない。

>>370 課題(2)
% Prolog

任意の数字と桁数を入力し、桁数に該当する整数を出力する関数を各自で定義し結果を出力(_数字文字列,_桁数,_整数) :-
　　atom(_数字文字列),
　　sub_atom(_数字文字列,0,Len,0,_数字文字列),
　　min([Len,_桁数],Min),
　　sub_atom(_数字文字列,Len-Min,Min,_,_副文字列),
　　atom_to_term(_副文字列,_整数,_),
　　integer(_整数).
　　

>>370 課題(3)
% Prolog

'4つの整数を入力し、その最大値、最小値、平均を求める'([_整数1,_整数2,_整数3,_整数4],_最大値,_最小値,_平均値) :-
　　integer(_整数1),integer(_整数2),integer(_整数3),integer(_整数4),
　　max([_整数1,_整数2,_整数3,_整数4],_最大値),
　　min([_整数1,_整数2,_整数3,_整数4],_最小値),
　　avg([_整数1,_整数2,_整数3,_整数4],_平均値).

>>370　課題(1)
使用言語：　十進BASIC

DEF max4(a,b,c,d)=MAX(MAX(a,b),MAX(c,d))
DEF min4(a,b,c,d)=MIN(MIN(a,b),MIN(c,d))
DEF avg4(a,b,c,d)=(a+b+c+d)/4
LET a=31
LET b=41
LET c=59
LET d=26
PRINT max4(a,b,c,d);min4(a,b,c,d);avg4(a,b,c,d)
END

実行結果
59 26 39.25

>>370　課題(2)
使用言語：　十進BASIC

DEF f(n,d)=MOD(INT(n/10^(d-1)),10)

PRINT f(123456789,4)
END

実行結果
6

>>371
% Prolog こういうプログラムはいかに簡単にソースを自動生成できるかに掛かっている。
% 自動生成が簡単なら、こういう定義は有力だと思う。

'3つの整数x,y,zを引数として、大きい順に入れ替えて返す'(X,Y,Z,X,Y,Z) :-
　　X >= Y,Y >= Z.
'3つの整数x,y,zを引数として、大きい順に入れ替えて返す'(X,Y,Z,X,Z,Y) :-
　　X >= Z,Z >= Y.
'3つの整数x,y,zを引数として、大きい順に入れ替えて返す'(X,Y,Z,Y,X,Z) :-
　　Y >= X,X >= Z.
'3つの整数x,y,zを引数として、大きい順に入れ替えて返す'(X,Y,Z,Y,Z,X) :-
　　Y >= Z,Z >= X.
'3つの整数x,y,zを引数として、大きい順に入れ替えて返す'(X,Y,Z,Z,X,Y) :-
　　Z >= X,X >= Y.
'3つの整数x,y,zを引数として、大きい順に入れ替えて返す'(X,Y,Z,Z,Y,X) :-
　　Z >= Y,Y >= X.

>>370　課題(1)
使用言語：　J

max=:>./
min=:<./
avg=:+/%#

max 3 5 1 2
5
min 3 5 1 2
1
avg 3 5 1 2
2.75

>>370　課題(2)
使用言語：　J

f=:dyad def '".(<:y){|.":x'

123456789 f 3
7

http://pc12.2ch.net/test/read.cgi/tech/1258158172/590
# [1]C言語実習
# [2]　覆面算　SEND+MORE=MONEYを解くプログラム（各字は数字を表す）
# 2進数から16進数の場合について、解がある時は一つずつ進数を明示した上で
# 表示。但しいずれの場合も最上位桁は０ではないものとする。
#

>>382 訂正が出ていました。http://pc12.2ch.net/test/read.cgi/tech/1258158172/592http://pc12.2ch.net/test/read.cgi/tech/1258158172/590

# [1]C言語実習
# [2]　覆面算　SEND+MORE=MONEYを解くプログラム（各字は数字を表す）
# 2進数から8進数の場合について、解がある時は一つずつ進数を明示した上で
# 表示。但しいずれの場合も最上位桁は０ではないものとする。
#

>>370　課題(2)
使用言語：　Arc

(def f(n d) (mod (trunc (/ n (expt 10 (- d 1)))) 10))

arc> (f 123456789 2)
8

http://pc12.2ch.net/test/read.cgi/tech/1258158172/608
# [1] 授業単元：C言語とアルゴリズム
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10219.txt
# [課題1-1]　線形探索
# 　キーボードから1から30までの整数を入力し、配列 a に対して入力値の線形探索を行い、見つかった
# 結果をすべて表示するプログラムを作成しなさい.ただし、配列 a は1から30までの乱数が100個入って
# いるとする.また、入力の前に配列 a の内容を10個ずつ区切って表示しなさい.(疑似乱数を使用すること）
#
# [実行結果]
# 配列 a の内容はつぎの通りです.
# 26 12 24 24 28 6 11 24 4 17 ←疑似乱数なので左の例とない。
# 15 19 11 16 29 28 20 22 5 19
# 1 8 5 25 5 13 4 4 30 7
# 16 26 19 9 20 16 15 30 9 24
#　　　　　　　<中略>
# 8 30 28 26 8 17 12 23 16 21
# 16 2 14 28 28 22 9 23 20 11
# 21 5 14 27 25 10 7 27 11 21
# 29 18 20 26 14 28 12 25 21 28
# 1〜30までの整数を入力して下さい.
# 17
# a[9]　は 17 と同じ値です.
# a[65] は 17 と同じ値です.

http://pc12.2ch.net/test/read.cgi/tech/1258158172/610
# 問題
# A さんと B さんがゲームで対戦した．対戦は N 回にわたって行った．各回の対戦において，
# より高い点数を獲得した人がその回の勝者となる．
# すなわち，第 i 回目の対戦で
# A さんの点数が B さんの点数より大きければ第 i 回目は A さんの勝ち，
# B さんの点数が A さんの点数より大きければ B さんの勝ち，
# 同点の場合はどちらの勝ちにもならない．
# N 回の対戦における A さんと B さんの点数が与えられたとき，
# A さんと B さんがそれぞれ何回勝ったかを出力するプログラムを作成せよ．

>>370　課題(2)
使用言語：　Io

f:=method(n,d,n asString reverse at(d-1) asCharacter asNumber)

Io> f(12345,2)
==> 4

http://pc12.2ch.net/test/read.cgi/tech/1258158172/604
# [1] 授業単元：
# 得点を比較するﾌﾟﾛｸﾞﾗﾑです
# ファイルから一行2整数づつ読み込み、先の方が大きいか、後の方が大きいか、
# カウントしていきます。ファイルを読み終わったらカウントした数字を出力します。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/611
# [1] 授業単元：C言語
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10222.txt
# ２桁の数を入力する（もし、２桁以外の整数を入力したら、再入力となる）を作成し、
# main関数では得られた２桁の値の１の位と１０の位の値を掛け算した値を表示するプログラム
# 動作を確認するための適切なmain関数も作成すること。

>>389
% Prolog

program :-
　　２桁の数を入力する(N),
　　M is ((N // 10) * ( N mod 10)),
　　write_formatted('２桁の値 %t の１の位と１０の位の値を掛け算した値は %t です
\n',[N,M]).

２桁の数を入力する(N) :-
　　write('２桁の数を入力してください : '),
　　get_integer(N),
　　N >= 0,N =< 99.
２桁の数を入力する(N) :-
　　write_formatted('２桁の数を得られませんでした\n再入力 : '),
　　２桁の数を入力する(N).

>>370　課題(2)
使用言語：　Xtal

ix:001>f:fun(n,d){a:n.to_s.split("").to_a; return a[a.size-d].to_i;}
ix:002>f(123456789,7).p;
3

>>389
使用言語：　J

f=:*/@("."0@":)

f 29
18
f 87
56

>>388 >>386もほとんど同種。 後出しでデータフォーマットは A : %d,B : %d らしい。
% Prolog
program :-
　　user_parameters([_ファイル名]),
　　get_split_lines(_ファイル名,[':',' ',','],L),
　　二数のどちらが大きいか(L,0,0,_カウンタA,_カウンタB),
　　write_formatted('A : %t,B : %t\n',[_カウンタA,_カウンタB]).

二数のどちらが大きいか([],_カウンタA,_カウンタB,_カウンタA,_カウンタB).
二数のどちらが大きいか([[_,_先の方,_,_後の方]|R1],A,B,_カウンタA,_カウンタB) :-
　　_先の方 > _後の方,
　　A2 is A + 1,
　　二数のどちらが大きいか(R1,A2,B,_カウンタA,_カウンタB).
二数のどちらが大きいか([[_,_先の方,_,_後の方]|R1],A,B,_カウンタA,_カウンタB) :-
　　_先の方 < _後の方,
　　二数のどちらが大きいか(R1,A,B2,_カウンタA,_カウンタB).
二数のどちらが大きいか([[_,_先の方,_,_後の方]|R1],A,B,_カウンタA,_カウンタB) :-
　　二数のどちらが大きいか(R1,A,B,_カウンタA,_カウンタB).

>>114
使用言語：　J

f=:dyad def '(([}.[:i.[:>:])//:~x i.y){x'


'GHIJKLMABCDERSTUVWFNOPQXYZ' f 'CQ'
CDERSTUVWFNOPQ
'GHIJKLMABCDERSTUVWFNOPQXYZ' f 'AZ'
ABCDERSTUVWFNOPQXYZ
'GHIJKLMABCDERSTUVWFNOPQXYZ' f 'ZQ'
QXYZ

>>389
;; Common Lisp
(defun mult()
(let ((num 0) n1 n10)
(do ()
((and (> num 9) (< num 100)))
(format t "2桁の数を入力してください~%> ")
(setf num (read)))
(setf n1 (mod num 10)
n10 (/ (- num n1) 10))
(format t "1の位と10の位の積 = ~A~%" (* n1 n10))))

>>385
% Prolog

'キーボードから1から30までの整数を入力し、配列 a に対して入力値の線形探索を行い、見つかった結果をすべて表示する' :-
　　'a は1から30までの乱数が100個入っている'(A),
　　'a の内容を10個ずつ区切って表示'(A),
　　repeat,
　　write('探索する整数を入力してください(1~30) : '),
　　get_integer(N),
　　N >=1, N =< 30,!,
　　append(L1,[N|L2],A),
　　length(L1,_位置),
　　write_formatted(' %t: %t\n',[N,_位置+1]),
　　fail.
'キーボードから1から30までの整数を入力し、配列 a に対して入力値の線形探索を行い、見つかった結果をすべて表示する'.

'a は1から30までの乱数が100個入っている'(A) :-
　　findall(M,(for(1,N,100),M is ((random mod 30) + 1),A).

'a の内容を10個ずつ区切って表示'(A) :-
　　'N個組'(10,A,L),
　　append(_,[L1|_],L),
　　write_formatted('%2d %2d %2d %2d %2d %2d %2d %2d %2d %2d\n',L1),
　　fail.
'a の内容を10個ずつ区切って表示'(_).

>>389
使用言語：　Xtal

input:fun(){n:0;
while(true){
print("2桁の数字を入力：");
n=stdin.get_s(2).to_i;
if(10<=n && n<=100)break;
}
return n;
}

n:input();
println(%f"1の位と10の位の積は %d * %d = %d"(n%10,n/10,n/10*(n%10)));

実行結果
2桁の数字を入力：6
2桁の数字を入力：84
1の位と10の位の積は 4 * 8 = 32

http://pc12.2ch.net/test/read.cgi/tech/1258320456/52
# 【　課題　】和歌について考察する問題。
# 歌 ...　こぬ人を待つほの浦の夕凪はやくやもしほの身もこがれつつ (定家)
# これはかなり複雑なうたです。
# 人をまつとは「待つ」であり、「松」です。まつ帆だからです。松の姿に似た帆です。
# もちろん松は浦の背景でもあります。浦は夕凪ですから心は風を「待って」もいます。
# 風はありませんから、待ってもこぬ人なのです。風があの人なのかそれとも帆船なのか
# 微妙です。浦は「浦」であると同時に心の「裏」であり、あの人(風)の気持ちを「占」なふ、
# うらでもあります。
# 「焼くや」(やいているのだろうか)とは、恋に焦がれて身を焼いているのであり、
# やくやもしほとは藻塩(自分)が陽にあぶられ、渇き、焼かれ、煙でいぶされ、さらに
# 煮られ、再び乾かされというような、製塩法の愛の地獄絵であり、身もこがれという
# 言葉には「藻」がここでも含まれています。製塩の煙は夕凪の浦に実際に漂って
# いるのかもしれません。
# 以上のような、この歌に含まれる語とそれからくる連想をプログラムで表現しなさい。

>>389
使用言語：　Io

input:=method(
f:=File standardInput
while(true,
write("number: ")
n:=f readLine asNumber
if(10<=n and n<=100,break(n))
))
x:=input
writeln(x%10," * ",(x/10)floor," = ",x%10 * (x/10)floor)

実行結果
number: 34
4 * 3 = 12

>>398
どうでもいいことだけど、
夕凪は ではなくて 夕凪に ではなかったかな。

>>203
使用言語：　Io

f:=method(a,b,
s:=""
for(i,0,(a size) min(b size)-1,
s=s .. (a at(i)asCharacter) .. (b at(i)asCharacter)
)
s
)

Io> f("12345","asd")
==> 1a2s3d

>>258 >>332
使用言語：　Io

showwaster:=method(a,b,a repeat("*"repeated(b)println))

Io> showwaster(6,6)
******
******
******
******
******
******

http://pc12.2ch.net/test/read.cgi/tech/1258158172/632
# [1] 授業単元：C言語
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10226.txt
#
# 要素数がnoであるint型の配列v2の並びを逆順にしたものを配列v1に格納する関数
# 　　　void intary_rcpy(int v1[], const int v2[],int no)
# を作成せよ

>>403
% Prolog
% Prologには言語要素として配列がなく、リストを使う。リストでこの問題を表現しようと
% すると、noの扱いが難しい。無視すれば単なるreverseだが・・。

intary_rcpy(V1,V2,No) :-
　　length(V1,No),　/* あらかじめNo要素のリストを作っているがほとんど無意味 */
　　intary_rcpy_1(V1,[],V2).

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

http://pc12.2ch.net/test/read.cgi/tech/1258158172/638
# 【質問テンプレ】
# [1] 授業単元：大学の授業
# [2] 問題文(含コード&リンク)：したにまとめて書きました
# １：originalファイルから、シミュレーション範囲（数値）を読み取り、insertedファイルにコピー
# ２：absorbalファイルから、水分子の各原子の位置（座標）を読み取る
# ３：２の座標をランダムに発生させた数（ランダムに発生させた数の範囲は０以上originalファイルから読み込んだ範囲まで）だけ平行移動し、insertedファイルに書きたす
# 　　３は入力されたｎ回繰り返す
# ４：３の結果をinsertedファイルに書き足し、そのあとendを２回書きこみ終了
# 以下のコードではシミュレーション範囲は読み取れているが乱数発生時に反映されていない
# また、水分子の位置も毎回同じになっている→これを改善したい

>>140
使用言語：　Io

f:=method(d,
write(d,"(base 10)\n",("".. d)toBase(2),"(base 2)\n",
("".. d)toBase(36)uppercase,"(base 36)\n")
)

Io> f(20)
20(base 10)
10100(base 2)
K(base 36)

>>398
% Prolog これは相当大変。木構造にでも纏めればいいのかな。

歌('こぬ人を待つほの浦の夕凪はやくやもしほの身もこがれつつ').

歌音('こぬひとをまつほのうらのゆうなぎにやくやもしおのみもこがれつつ').

音通(も,藻).
音通(_語,_部分的な語) :-
sub_atom(_語,_,_,_,_部分的な語),
\+(_部分的な語==[]).

連想(藻塩,地獄絵).
連想(藻塩,陽光).
連想(藻塩,干す).
連想(藻塩,焼く).
連想(藻塩,煙).
連想(藻塩,灰).
連想(藻塩,煮る).
連想(藻塩,製塩).
連想(製塩,潮汲み).
連想(潮汲み,海女).
連想(浦,海女).
連想(焼く,煙).
連想(凪,煙).

>>397 つづき
連想(凪,煙).
連想(藻,塩).
連想(身,藻).
連想(焦がれ,恋).
連想(焦がれ,焦げる).
連想(焦がれ,木枯らし).
連想(木枯らし,寂しい).
連想(木枯らし,冬).
連想(焼く,焦がれ).
連想(焦がれ,人).
連想(藻,海).
連想(海,帆).
連想(凪,風).
連想(凪,浦).
連想(風,帆).
連想(松,帆).
連想(松,緑).
連想(浦,帆).
連想(占い,裏).
連想(裏,心).
連想(占い,恋).
連想(裏,背信).

>>398 >>400 >>407
歌('こぬ人を待つほの浦の夕凪にやくやもしほの身もこがれつつ').

ですね。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/664
# [1] C言語
# [2] 問題文(含コード&リンク)：
# 問題１　unsigned int型の引数を1つ持ち, その値を2進数で印字する戻
# 値のない関数, print_bin() を作成し, 動作を確認できるプロ
# グラムとして作成して rep07.c として提出せよ。
# ただし, putchar() 以外のライブラリ関数を使用してはなら
# ない。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/664
# 問題２　double型の配列とint型の引数を持ち, double型の戻値を持つ関
# 数を考える。第一引数のdouble型の配列の要素数が第二引数で
# 与えられるとして, 第一引数のdouble 型の配列に格納されてい
# る値のうち最大のものを戻値として返す関数 max_d_array() を
# 作成し, 動作確認できるプログラムとして作成して rep08.c と
# して提出せよ。
# ただし, max_d_array() 内部ではいかなる関数も呼んではな
# らず, 制御構文としては while()文, if()文, return文のみを
# 用いて実装しなければならない。do-while()文, for()文,
# switch-case文, goto文, 条件式(三項演算子?:)は使ってはなら
# ない。三項演算子以外の各種演算子と変数は自由に使って良い。

http://pc12.2ch.net/test/read.cgi/tech/1258158172/664
# 問題３
# 標準入力からの入力に対して、アルファベットの文字を3文字ず
# らして標準出力に出力するシーザー暗号化プログラムを作成し
# て、rep09.c として提出せよ。具体的には, 小文字に対しては
# a -> d, b -> e, ..., w -> z, x -> a, y -> b, z -> c なる
# 変換である。もちろん大文字に関しても同様の変換処理をしな
# ければならない。
#

>>410
% Prolog

print_bin(N) :- N < 2,write(N).
print_bin(N) :- N >= 2,N2 is J // 2,M is N mod 2,print_bin(N2),write(M).


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

>>413 >>410 ごめん。参考にした二進数/3が残ってしまった。それを消して。
% Prolog

print_bin(N) :- N < 2,write(N).
print_bin(N) :- N >= 2,N2 is J // 2,M is N mod 2,print_bin(N2),write(M).

>>411
% Prolog
% リスト要素がNを越えた時にはfailにせず、そこまでの最大値を返すこととする。

max_d_list(L,N,Max) :- max_d_list([D|R],N,D,Max).

max_d_list([],_,Max,Max) :- !.
max_d_list(_,0,Max,Max) :- !.
max_d_list([D|R],N,Max1,Max) :-
　　Max1 >= D,
　　N1 is N - 1,
　　max_d_list(R,N1,Max1,Max).
max_d_list([D|R],N,Max1,Max) :-
　　Max1 < D,
　　N1 is N - 1,
　　max_d_list(R,N1,D,Max).

>>412
% Prolog

アルファベット(小文字,[a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z]).
アルファベット(大文字,['A','B','C','D','E','F','G','H','I','J','K','L','M','N',
'O','P','Q','R','S','T','U','V','W','X','Y','Z']).

program :- rep03.

rep03 :- get_char(Char), アルファベットならびの選択(Char,L),rep03(Char,L).

rep03(end_of_file,_).
rep03(Char,L) :-
　　list_nth(N,L,Char),
　　ならびの回転(左方向,3,L,L3),
　　list_nth(N,L3,A),
　　put_char(A),
　　get_char(Char2),
　　アルファベットならびの選択(Char2,L2),
　　rep03(Char2,L2).

アルファベットならびの選択(Char,L) :- Char @>= a,Char @=< z,アルファベット(小文
字,L).
アルファベットならびの選択(Char,L) :- Char @>= 'A',Char @=< 'Z',アルファベット(
大文字,L).

>>416 改行を失敗したので書き直し。

アルファベット(小文字,[a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z]).
アルファベット(大文字,['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z']).

program :- rep03.

rep03 :- get_char(Char), アルファベットならびの選択(Char,L),rep03(Char,L).

rep03(end_of_file,_).
rep03(Char,L) :-
　　list_nth(N,L,Char),
　　ならびの回転(左方向,3,L,L3),
　　list_nth(N,L3,A),
　　put_char(A),
　　get_char(Char2),
　　アルファベットならびの選択(Char2,L2),
　　rep03(Char2,L2).

アルファベットならびの選択(Char,L) :- Char @>= a,Char @=< z,アルファベット(小文字,L).
アルファベットならびの選択(Char,L) :- Char @>= 'A',Char @=< 'Z',アルファベット(大文字,L).

>>403
% Prolog
% Prologには言語要素として配列がなく、リストを使う。リストでこの問題を表現しようと
% これだとV2の要素数が越えた場合もV1はNoで打ち切りfailとはならない。
% もちろんNoに満たないときも成立する。

intary_rcpy(V1,V2,No) :-
　　intary_rcpy_1(V1,[],V2,No).

intary_rcpy_1(X,X,_,0) :- !.
intary_rcpy_1(X,X,[],_).
intary_rcpy_1(X,Y,[A|R],No) :- No1 is No - 1,intary_rcpy_1(X,[A|Y],R,No1).

http://pc12.2ch.net/test/read.cgi/tech/1258158172/667
# [1] 授業単元：C++実習
# [2] 問題文(含コード&リンク)：分数クラス2
# 分数を扱うクラスを作成する。クラス名はBunsu。データメンバはint型でbunshiとbunboでpraivateとする。
# コンストラクタにより初期化をおこなう。初期値が指定されなかったときは省略時引数ででbunshi,bunboとも１で初期化すること。
# またBunsuクラスの振る舞いをテストする適切なmain関数も作成すること。１ファイルで作成してください。
#
# 作成する関数
# ・コンストラクタ
# ・演算子のオーバーロード（friend関数で作成すること）
# +, -, *, /, ==, != の演算子について多重定義を行なう。演算結果は約分する。
# >>と<<のオーバーロード（friend関数で作成すること）
# ・<<Bunsuクラスのオブジェクトをcoutで出力すると分子/分母の形式で出力する。

http://pc12.2ch.net/test/read.cgi/tech/1197620454/543
# 問い１
# ・二次元配列arrayを使ってユーザーのログインページを作りなさい。
# ・ユーザー名、パスワードのエラーメッセージを表示させること
# 問い2
# 問い1のプログラムを応用して、新規ユーザー登録ボタンを作りなさい。kadai_06_02_01ユーザー登録は配列を利用すること
# あらかじめユーザ登録用配列は3ユーザー分の名前とパスワードをセットしておくこと。
# ユーザー登録は10名までとする。10ユーザーを超えた場合はエラーを表示させなさい。
# つまり残り7枠を登録さればよい。
# プログラムはfor、while、do whileのどれかひとつでよい。
# ユーザー名のエラーはフラグを作って表示させたいです。でないと長くなると思うので ・・・。
# デザインは作成済みです。イメージがつかみにくいかもしれませんがよろしくお願いします・・・。
# slnファイルの名前がフォルダ名と違っていますが気にしないでください。
# 配列を使わないユーザー認証ページを作ってみたのでそちらを参考にしていただければ と思います。

# [1] 授業単元：fortran
# [2] 問題文(含コード&リンク)：配列を使わずに平均値、分散、標準偏差を表示せよ
# データ数nとn個のデータを入力し、平均値、分散、標準偏差を標示せよ。なおn≧5である。
# dimension、if、go toを使ってはいけない。

>>421
% Prolog

配列を使わずに平均値、分散、標準偏差を表示 :-
　　write('データ数 : '),
　　get_integer(N),
　　write_formatted('%個の数を1個1行で連続して入力してください : ',[N]),
　　get_line(Line),
　　atom_to_term(Line,X,_),
　　配列を使わずに平均値、分散、標準偏差を表示(1,N,X,0,_,Z).
　　_分散 is Z / N,
　　_標準偏差 is sqrt(Z / (N - 1)),
write_formatted('平均値=%t,分散=%t,標準偏差=%t\n',[_平均値,_分散,_標準偏差]),!.

配列を使わずに平均値、分散、標準偏差を表示(M,N,X,S,_平均,0.0) :-
　　M > N,_平均 is S / N,!.
配列を使わずに平均値、分散、標準偏差を表示(M,N,X,S1,_平均,Z) :-
　　get_line(Line2),
　　atom_to_term(line2,X2,_),
　　S2 is S1 + X,
　　M1 is M - 1,
　　配列を使わずに平均値、分散、標準偏差を表示(M1,N,X2,S2,_平均,Z2),
　　Z is (X - _平均) ^ 2 + Z2.

http://pc12.2ch.net/test/read.cgi/tech/1258158172/669
# [1] 授業単元：プログラミング演習
# [2] 問題文
# 氏名をキーボードから入力させ、入力された文字列長を求めて画面に表示するプログラムを作りなさい。
# ただし、文字列長を求めるのに標準ライブラリ関数を使用しないこと。バッファオーバーランなどが発生する
# 不正な入力は行われないものとする。

>>423
% Prolog

氏名をキーボードから入力させ、入力された文字列長を求めて画面に表示する :-
　　write('氏名を入力してください : '),
　　get_line(Line),
　　atom_chars(Line,Chars),
　　入力された文字列長を求める(Chars,N),
　　write_formatted('入力された文字列長は %t です\n',[N]).

入力された文字列長を求める([],0).
入力された文字列長を求める([_|R],N) :-
　　入力された文字列長を求める(R,N1),
　　N is N1 + 1.

>>420
% Prolog
ttylogin :-
　　write('\nlogin: '),
　　get_line(_ユーザー名),write('password: '),
　　system('stty -echo raw'),
　　get_char(X),put_char('*'),
　　パスワードを得る(X,Password),
　　ユーザ管理(_ユーザー名,Password,_診断),
　　assertz(ログイン情報(_ユーザー名,Password,_診断)),
　　シェル(_ユーザー名,_診断),
　　ttylogin.

パスワードを得る('\r',[]) :- !.
パスワードを得る(C,[C|R]) :- get_char(C2),put_char('*'),パスワードを得る(C2,R).

ユーザ管理(_ユーザー名,Password,ok) :-
　　concat_atom(Password,PasswordAtom),
　　カエサル暗号(17,PasswordAtom,_暗号文),
　　user_password(_ユーザ名,_暗号文),!.
ユーザ管理(_ユーザー名,Password,'UserPassword Error') :- user_passwork(_ユーザー名,_),!.
ユーザ管理(_ユーザー名,Password,S) :- concat_atom([ユーザー名,_ユーザー名,は登録がありません],S),!.

user_password(tama,'Jrslif').

シェル(_,S) :- \+(S==ok),!.
シェル(_,_) :- system.

>>425
-rawに戻すの忘れた。

http://pc12.2ch.net/test/read.cgi/tech/1197620454/434
# 問題文
# モンテカルロ法による円周率
# 1×1の正方形と1/4円を用いて円周率を求めるプログラムを作成したい
# なお、関係式、及び正方形と1/4円の図は以下の様になる
# π/4:1 = P : P + Q
# π = 4P/P + Q = 4P/N
#　πは円周率、Pは円外にある点の数、NはP + Qとする

>>427
% Prolog

モンテカルロ法により円周率を求める(N,Pi) :-
　　モンテカルロ法により円周率を求める(0,N,0,H),
　　P is H / N,
　　Pi is 4 * Pi,
　　write_formatted('Pi = %t\n',[Pi]).

モンテカルロ法により円周率を求める(M,N,H,H) :- M > N,!.
モンテカルロ法により円周率を求める(M,N,H1,H) :-
　　X1 is (random mod 7717) / 7717,
　　Y1 is (random mod 7717) / 7717,
　　U is X * X + Y * Y,
　　'1に収まっていればカウント'(U,H1,H2),
　　M2 is M + 1,
　　モンテカルロ法により円周率を求める(M,N,H2,H).

'1に収まっていればカウント'(U,H1,H2) :-
　　U < 1,
　　H2 is H1 + 1,!.
'1に収まっていればカウント'(U,H1,H1).

http://pc12.2ch.net/test/read.cgi/tech/1258158172/671
# [1] 授業単元： C言語
# [2] 問題文(含コード&リンク)：
# 関数としてy=sinx,y'=sinx+xcosxを取り上げ、f'(x)=sinx+xcosxの値を数値微分に
# りよる方法から計算するプログラムを作成し
# 解析値と比較してみよ。ただしh=0.1とし、0≦x≦πとせよ。
#

>>429
揚げては見たが何をやりたいのかさっぱりわからん。

>>420
% Prolog 配列はまったく使っていないけれど、Prologとして自然な表現で。
adduser :-
　　write('username : '),get_line(_ユーザー名),
　　rawmode,write('password : '),get_char(Char),put_char(*),
　　パスワードを得る(Char,Password),norawmode,
　　write('Retype Password : '),get_char(Char2),put_char(*),
　　パスワードを得る(Char2,Password2),
　　パスワードは一致する(Password,Password2),
　　定義枠の限界を越えていない,
　　ユーザー登録(_ユーザー名,Password),

パスワードは一致する(A,A) :- !.
パスワードは一致する(A,B) :- \+(A,B),write('タイプされたパスワードは一致しません\n'),fail.

ユーザー登録(_ユーザー名,Password) :-
　　concat_atom(Password,PasswordAtom),
　　カエサル暗号(17,PasswordAtom,PasswordAtom2),
　　assertz(user_password(_ユーザ-名,PasswordAtom2)).

定義枠の限界を越えていない :- 定義数の数(user_password/2,N),N < 10,!.
定義枠の限界を越えていない :- write('登録ユーザーが10を越えています。\n登録できません。\n'),fail.

定義節の数(Functor / Arity,N) :- functor(P,Functor,Arity),findsum(1,clause(P,_),F),N is truncate(F).

http://pc12.2ch.net/test/read.cgi/tech/1248012902/565
# 【　課題　】http://ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/854.txt
# メッセージの流れる順番は次のようになる。
# 学生オブジェクト(yamada)から
# 1)教員への成績問い合わせメッセージ(askScore("0001"))
# 教員オブジェクト(endo)から
# 2)成績問い合わせのメッセージ(searchScore("0001"))
# 事務室オブジェクト(defaultOffice)から
# 3)得点または-1を返答
# 教員オブジェクト(endo)から
# 4)得点または-1を返答
#
# この順番でメッセージを交換し学生オブジェクトが教員オブジェクトを経由して
# 自分の成績を知ることができるようにしなさい。

>>430
http://pc12.2ch.net/test/read.cgi/tech/1258158172/676

http://pc12.2ch.net/test/read.cgi/tech/1258158172/677
# [1] 授業単元：プログラミング演習
# [2] １．サンプルプログラムを参考に乱数によって生成した２０個の数字を配列に入れ、バブルソートによって小さい順に表示するプログラムを作成せよ。
# ２.サンプルプログラムを参考乱数によって生成した２０個の数字を配列に入れ、バブルソートによって大きいものから順に表示するプログラムを作成せよ。
# ３.キーボードから次々に整数を入力し、入力のたびにそれまでに入力した数字を
# 小さい順に表示するプログラムを作成せよ。数字は１０個入力したらプログラムは終了するようにすること.
# ４．０から１までのdouble型の数字を２０個乱数によって生成し、小さい順に表示するプログラムを作成せよ。
# ５．以下の英単語を辞書順に（アルファベット順に）ソートによって並べ替えて表示するプログラムを作成せよ。すべての４文字の単語であることを利用してもよい。
#
# mane, malt, mama, mark, mare, maid, made, mach, many, mess, meat, neat, like, lime, limb
#
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10230.txt
#

http://pc12.2ch.net/test/read.cgi/tech/1258158172/688
# [1] 授業単元：
# アルゴリズムとプログラミング
# [2] 問題文(含コード&リンク)：
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10234.txt
#
# リストを用いたスタックの基本操作
#
# リストｓを用いてスタックの基本操作を行うプログラムを実現したい。
# 図のプログラムを完成させよ。
# ただし下記の条件を守れ。
#
# 1：　data.datからgetc()を用いてアルファベットを一文字ずつ読み込み、スタックｓにpush-downする。
#
# 2：　スタックの内容を表示する関数　print_stack_list(s)は分割しているので、分割コンパイルにより
# 実行ファイルを作れ。