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

第二編も512Kbyte越えで終了しました。
前スレで未解決な課題は順次このスレにコピーします。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/309
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10297.txt
# ●基本課題 2a（数式の読み込みと表示）
#
# 課題 2a と 2b では，算術式を読み，表示し，値を求めるプログラムを作る．
#
# 限られた時間内で数式処理の本質部分を効率よく学ぶために，
# 入力できる算術式の構文を，次の BNF で定めるものに限る．
#
# 定数 ::= 0 | 1 | … | 9
# 変数 ::= a | b | … | z | A | B | … | Z
# 算術式 ::= 定数
# | 変数
# | (算術式+算術式)
# | (算術式*算術式)
#
# つまり，１桁の定数や１文字の変数の和や積からなる式が入力である．
#
# 入力された算術式を読み込み，２分木データとして格納し，そのデータをもとに
# 入力と同じ算術式を表示する，という処理（下図）を繰り返すプログラムを作れ．
#

>>2
% Prolog
算術式解析(_文,_残りの文,_初期節番号,_終了節番号,_式) :-
　　atom_chars(_文,Chars),
　　算術式(_初期節番号,_終了節番号,Chars,R,_式),
　　atom_chars(_残りの文,R),!.

定数(A) :- member(A,['0','1','2','3','4','5','6','7','8','9']),!.
変数(A) :- member(A,[a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z]),!.
変数(A) :- member(A,['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z']),!.
算術式(N1,N2,[A|R],R,B) :-
　　定数(A),
　　atom_to_term(A,B,_),
　　assertz(算術式構文木(N1,[],[],B)),
　　N2 is N1 + 1,!.
算術式(N1,N2,[A|R],R,A) :-
　　変数(A),
　　assertz(算術式構文木(N1,[],[],A)),
　　N2 is N1 + 1,!.
算術式(N1,N2,L,R,'+'(S1,S2)) :-
　　append(['('|L1],[')'|R],L),append(L2,['+'|L3],L1),
　　N3 is N1 + 1,
　　算術式(N3,N4,L2,_,S1),算術式(N4,N2,L3,_,S2),
　　assertz(算術式構文木(N1,N3,N4,'+')),!.
算術式(N1,N2,L,R,'*'(S1,S2)) :-
　　append(['('|L1],[')'|R],L),append(L2,['*'|L3],L1),
　　N3 is N1 + 1,
　　算術式(N3,N4,L2,_,S1),算術式(N4,N2,L3,_,S2),
　　assertz(算術式構文木(N1,N3,N4,'*')),!.

http://pc12.2ch.net/test/read.cgi/tech/1260532772/309
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10297.txt
# ●基本課題 2b（数式の値の計算）
#
# 課題 2a のプログラムに，算術式の値を計算して表示する機能を追加せよ．
# ただし，変数の値は全て１であるとして，式の値を求めること．
#
# 例えば，入力が (2*3) と (x+(y+z)) の場合，次のような出力をすればよい．
# show: に続いて入力された算術式を，eval: に続いて算術式の値を表示している．
#
# (2*3) ←入力
# show: (2*3)
# eval: 6
#
# (x+(y+z)) ←入力
# show: (x+(y+z))
# eval: 3
#
# まず，算術式の値を求める関数 eval_exp()（exp.c にある）を完成させる．
# 十分な数の検査データを使って動作の正しさを確かめよ．
#

http://pc12.2ch.net/test/read.cgi/tech/1260532772/309
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10297.txt
# ●基本課題 2c（数式データの基本操作）
# 算術式の値を変えずに括弧をくくり直す簡単な式変形を考える．例えば，式
# (1+(2+3))
# (a*(b*c))
# ((i*x)+((j*y)+(k*z)))
# の括弧を左にくくり直すと，それぞれ，次の式になる．
# ((1+2)+3)
# ((a*b)*c)
# (((i*x)+(j*y))+(k*z))
# 括弧を左にくくり直せる (Ａ+(Ｂ+Ｃ)) や (Ａ*(Ｂ*Ｃ)) の形の算術式を
# ((Ａ+Ｂ)+Ｃ) や ((Ａ*Ｂ)*Ｃ) の形にする式変形は，式に対応する木を
# 「左に転回」する変形と捉えられる（下図）．
#
# http://www.cs.info.mie-u.ac.jp/~toshi/lectures/tree/exp012.png　→　http://www.cs.info.mie-u.ac.jp/~toshi/lectures/tree/exp013.png
#
# この操作を実行する関数 rotate_left_exp()（exp.c にある）を完成させよ．
# この関数を使い，可能な場合にだけ算術式の括弧を左にくくり直す関数
# assoc_left() を ex2.c に作って動作確認せよ．

http://pc12.2ch.net/test/read.cgi/tech/1136994325/977
# ターミナル上でテキストを編集するプログラムを作成せよ
# 以下のコマンドも使えるようにする事
#
# i ＝テキスト挿入
# p ＝単語の手前にポインタ移動
# d ＝入力した数だけポインタの後ろの文字を消す
# c ＝入力した文字列をポインタの後の文字列に置き換える
# s ＝ポインタの後に空白挿入
# q ＝終了
#

http://pc12.2ch.net/test/read.cgi/tech/1260532772/112
# 授業単元：アルゴリズムとデータ構造
# [2] 問題文(含コード&リンク)：
# 　ポーカーゲーム（の一部）をC言語にて作成する。
#
# 　ポーカーゲーム（の一部）は以下の条件を満足させてください。
#
# 　　　カードのシャッフルを行い、プレイヤ、ディーラにそれぞれ5枚ずつカードを配る。
# 　　　プレイヤは配られたカードの中から交換するものを選択できるようにする。
# 　　　ディーラ側の選択ルーチンはダミーの関数（たとえば全部交換、交換しない等）を用意すれば十分です。
# 　　　プレイヤ、ディーラそれぞれの役を判定して勝敗を表示する。
#
# 　表示、カードの選択は標準入出力を利用してください。
#

>>6
% Prolog (その一) VT100のエスケープシーケンスの一部。前スレに書いたものだけど、これがないとエディタは作れないと思うので再掲。

カーソルをPl行上へ移動(Pl) :- put_code(27),write_formatted('[%tA',[Pl]).
カーソルをPl行下へ移動(Pl) :- put_code(27),write_formatted('[%tB',[Pl]).
カーソルをPc桁右へ移動(Pc) :- put_code(27),write_formatted('[%tC',[Pc]).
カーソルをPc桁左へ移動(Pc) :- put_code(27),write_formatted('[%tD',[Pc]).
カーソルを移動(Pl,Pc) :- put_code(27),write_formatted('[%t;%tH',[Pl,Pc]).
カーソルから画面の終わりまでを消去 :- put_code(27),write('[J').
画面の始めからカーソルまでを消去 :- put_code(27),write('[1J').
画面全体を消去 :- put_code(27),write('[2J').
カーソルから行の終わりまでを消去 :- put_code(27),write('[K').
行全体を消去 :- put_code(27),write('[2K').
行の始めからカーソルまでを消去 :- put_code(27),write('[1K').

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

>>4
% Prolog

算術式の値を計算して表示 :-
　　get_line(Line),
　　算術式解析(Line,_,1,_,_式),
　　write_formatted('show:%t\n',[_式]),
　　X is _式,
　　write_formatted('eval:%t\n',[X]).

% 算術式解析/5 他の定義は http://pc12.2ch.net/test/read.cgi/tech/1261443439/3 参照

http://pc12.2ch.net/test/read.cgi/tech/1260532772/365
# [1] 授業単元：初級プログラミング
# [2] 問題文(含コード&リンク)：マインスイーパーを作ってください。
# ・縦の列はABC...で、横の列は123...で表示し、座標を繰り返し入力する
# ・枡の大きさは自由である（難易度ごとに大きさを選べる等要工夫）
# ・地雷の位置は毎回ランダムであること
# ・指定（入力）した座標には周囲の地雷の数を表示させる
# ・地雷のある座標を入力するか、全ての安置を入力することでクリアとする
# ・その他、工夫等が見られると加点

http://pc12.2ch.net/test/read.cgi/tech/1260532772/353
# [1] 授業単元：基礎プログラミング講義
# [2] 問題文(含コード&リンク)：以下の処理はサブ関数で作成する。数値(n)を反転した値を表示せよ。123→321
#

>>12
% Prolog

'数値(n)を反転した値を表示' :-
　　get_integer(N),
　　'数値(n)を反転する'(N,N2),
　　write_formatted('%t\n',[M]).

'数値(n)を反転する'(N,N1) :-
　　number_chars(N,Chars1),
　　reverse(Chars1,Chars2),
　　number_chars(N1,Chars2).

>>9
% Prolog 一番基本的なもの。

有向グラフ(1,2,50).
有向グラフ(1,3,80).
有向グラフ(2,4,15).
有向グラフ(2,3,20).
有向グラフ(4,5,30).
有向グラフ(3,4,10).
有向グラフ(3,5,15).

有向グラフの最短経路(_頂点1,_頂点2,_最短距離,_最短経路) :-
　　findmin([_距離,_経路],有向グラフの距離と経路(_出発点,_終点,_距離,_経路),[_
最短距離,_最短経路]).

有向グラフの距離と経路(_頂点,_頂点,0,[_頂点]) :- !.
有向グラフの距離と経路(_頂点1,_頂点2,_距離,[_頂点1|R]) :-
　　有向グラフ(_頂点1,_頂点3,_距離1),
　　有向グラフの距離と経路(_頂点3,_頂点2,_距離2,R),
　　_距離 is _距離2 + _距離1.

http://pc12.2ch.net/test/read.cgi/tech/1260532772/388
# [1] 授業単元：計算機入門及び演習
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10300.txt
#　http://prolog.asia/txt/10300.txt

>>15
% Prolog
入力したデータセットを一枚交換して合計が一致する組をすべて示す(AL,BL,A,B) :-
　　データセットの入力(N,M,AL,BL),
　　一枚ずつ全てを交換してみる(N,M,AL,BL,A,B).

データセットの入力(N,M,AL,BL) :- get_split_line([' '],[N,M]),\+((N=0,M=0)),'Aの入力'(N,AL),'Bの入力'(M,BL),!.

'Aの入力'(N,AL) :- findall(A,(for(1,_,N),get_integer(A)),AL).
'Bの入力'(M,AL) :- findall(B,(for(1,_,M),get_integer(B)),BL).

一枚ずつ全てを交換してみる(0,M,AL,BL,_,_) :- !,fail.
一枚ずつ全てを交換してみる(N,M,AL,BL,A,B) :-
　　ならびの回転(左方向,1,AL,[A|R1]),
　　交換して合計が一致する(M,BL,A,B).
一枚ずつ全てを交換してみる(N,M,AL,BL,A,B) :-
　　ならびの回転(左方向,1,AL,AL2),
　　N1 is N - 1,
　　一枚ずつ全てを交換してみる(N1,M,AL2,BL,A,B).

交換して合計が一致する(0,[A|R1],[B|R2],A,B) :- !,fail.
交換して合計が一致する(M,[A|R1],[B|R2],A,B) :- sum([B|R1],Sum), sum([A|R2],Sum).
交換して合計が一致する(M,[A|R1],[B|R2],A,B) :-
　　ならびの回転(左方向,1,BL,BL2),
　　M1 is M - 1,
　　交換して合計が一致する(M1,[A|R1],BL2,A,B).

>>6
% Prolog (その二) Prolog-KABA風にやってみる。まだまだ続く。
e_do(11,P1,P2,B1,B2,K1,K2,no) :- e_kill(B1,B2,K1,K2),P2 is P1 - 1,e_disp(P2,B2),!.
e_do(1,P1,Tol,B1,B1,K1,K1,no) :- e_tol(P1,Tol),e_jump(Tol),e_disp(Tol,B1),!.
e_do(5,P1,Eol,B1,B1,K1,K1,no) :- e_eol(P1,Eol),e_jump(Eol),e_disp(Eol,B1),!.
e_do(4,P1,P2,B1,B2,K1,K1,no) :- e_delete(1,P1,B1,B2),e_disp(P2,B1),!.
e_do(8,P1,P2,B1,B2,K1,K1,no) :- P2 is P-1,e_jump(P2),e_delete(1,P2,B1,B2),e_disp(P2),!.
e_do(6,P1,P2,B1,B1,K1,K2,no) :- P2 is P+1,e_disp(P2,B1),!.

>>6 は行エディタを指定しているらしいけれど、どうせやるなら、Emacs風にいきたいｗ

http://pc12.2ch.net/test/read.cgi/tech/1248012902/635
# 【　課題　】コマンドラインから数値を受け取り、その数値の因数を全て表示するプログラムを完成させなさい。
# 【　形態　】1. Javaアプリケーション(main()で開始)

>>19
% Prolog

program :-
　　user_parameters([A]),
　　atom_to_term(A,N,_),
　　N2 is N // 2,
　　findall([M,D],(for(1,M,N2),0 is N mod M,D is N // M),L),
　　因数の表示(N,L),
　　halt.

因数の表示(_,[]).
因数の表示(N,[[M,D]|R]) :-
　　write_formatted('%t = %t * %t\n',[N,M,D]),
　　因数の表示(N,R).

このスレのPrologの回答アーカイブ http://nojiriko.asia/prolog/ は
落雷事故以来停止していますが、来週に復旧する予定です。今は雪が
積もってしまって、少々ラッセルしないとたどり着けないので一週間先
に延ばしました。

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

http://pc12.2ch.net/test/read.cgi/tech/1260532772/177
# [1] 授業単元： コンピュータプログラミング
# [2] 問題文(含コード&リンク)
# １）f(x,y)=dy/dx=-4(x-1)y,y(0)=e^-2の一階微分方程式についてオイラーの方法で数値解を求めるプログラムを作成せよ。
# ２）dy/dx=f(x,y)=1-y,y(0)=0
# 　　dy/dx=f(x,y)=y(1-y),y(0)=0.01
# 　　dy/dx=f(x,y)=2yx,y(0)=1
# の数値解をオイラー法によって求めよ。
#

http://pc12.2ch.net/test/read.cgi/tech/1260532772/112
# 授業単元：アルゴリズムとデータ構造
# [2] 問題文(含コード&リンク)：
# 　ポーカーゲーム（の一部）をC言語にて作成する。
#
# 　ポーカーゲーム（の一部）は以下の条件を満足させてください。
#
# 　　　カードのシャッフルを行い、プレイヤ、ディーラにそれぞれ5枚ずつカードを配る。
# 　　　プレイヤは配られたカードの中から交換するものを選択できるようにする。
# 　　　ディーラ側の選択ルーチンはダミーの関数（たとえば全部交換、交換しない等）を用意すれば十分です。
# 　　　プレイヤ、ディーラそれぞれの役を判定して勝敗を表示する。
#
# 　表示、カードの選択は標準入出力を利用してください。
#

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/1260532772/209
# [1] 授業単元：Cプログラミング入門
# [2] 問題文(含コード&リンク)：
# 五目並べの作成
# 主に終了判定関数、コンピューターによる着手の生成関数の作成
# サンプルプログラム：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10289.txt
#

#【　課題　】
#「0.2+0.4+0.6+・・・・・+10.0の計算を行うプログラムを作成せよ。」と
# いう課題文が与えられたとする。
# この文を、公差数列 0.2,0.4,0.6...10.0の和を計算する課題であると認識する
# ことができる最小限のプログラムを示せ。

http://pc12.2ch.net/test/read.cgi/tech/1245017721/12
# 実際の問題を簡単にした問題例です。
#
# 流れ：
# キャラクタがバイトをして財布がいっぱいになったら銀行へ行く
# ということを目標金額まで繰り返し、到達したらその金がなくなるまで
# 家でごろ寝し、なくなったらまた働く
#
# キャラクタは
# 　　・バイトをする　：　手持ちが１増える
# 　　・銀行で貯金をする　：　手持ちを０にし、貯金が１増える
# 　　・家で寝る　：　貯金が１減る
# の状態を取ります。
# 財布の許容量は３、目標貯金額は５とします。
#

http://pc12.2ch.net/test/read.cgi/tech/1136788500/434
# ５０人のクラス（男子３５人）から５人の委員をランダムに選ぶ。このとき選ばれた委員の中に男３人、女２人が入る確率をBASICで求めよ。
#

# <<課題>
http://pc12.2ch.net/test/read.cgi/tech/1244449887/364
# [1] 授業単元： プログラミング実験
# [2] 問題文(含コード&リンク)：　
http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9455.txt
#【課題１】
#
# 完全列挙法（力ずく法）を用いて巡回セールスマン問題（TSP） を解くプログラムを作成せよ。
# （※1　：　適当に出発点を設定し、そこから出発するすべての閉路を求めその中で最短のものを選択、出力する）
# （※2　：　都市数は外部から入力するものとする）
# （注意　：　プログラムを動かすとき決して大きな都市数を与えてはならない）

#【課題２】
#
# 順次生成・比較法により、閉路を順次生成し、これまでの最短経路長をもった閉路と閉路長を比較することによってTPSを解くプログラムを作成せよ。
# （※1　：　適当に出発点を定め、そこを出発点とする閉路をひとつ生成し、それをとりあえず最短閉路とする）
# （※2　：　新たに経色を生成し、その閉路長をその時点での最短閉路長と比較し、短い方を最短閉路とする）
# （※3　：　上記のことを全ての閉路について繰り返し、最短閉路を求める）

http://pc12.2ch.net/test/read.cgi/tech/1250204272/923
# [1] 授業単元： プログラミング
# [2] 問題文：ナップサック問題のプログラムを利用し、グラフ彩色問題に当てはめる（色は4色で）

http://pc12.2ch.net/test/read.cgi/tech/1260532772/400
# [1]授業単元：プログラミング
# [2] 課題：いわゆる15パズル。
# 01 02 03 04
# 05 06 07 08
# 09 10 11 12
# 13 14 15
# のように配置された４x４のパネルを乱数を用いてシャフルする。シャフル時のパネルの動かし方は
# ゲーム進行中のパネルを動かすやり方と同じルールが適用される。
# パネル座標値(R,C) を入力させ (Rは行 Cは列 それぞれ1から４の値を取る)
# 対応するパネルが空白でないパネルで空白と隣接する場合はそこに移動させる方法で
# ゲームを進行させ、最初の状態に戻った場合（完成）は「暇人さんご苦労様」と出力して終了。
# 完成するまで入力と移動を繰り返す。無効なマスの指定は「そんなパネル動かせへん」と警告を表示すること。
# 盤面状況はコンソール出力とし、動かした回数と共に入力の直前に随時、及びゲーム
終了前に表示すること。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/405
# [1]授業単元：プログラミング
# [2] 課題：覆面算
# ttp://www.iba.k.u-tokyo.ac.jp/~iba/C/lesson1.html
#
# osaka + kyoto = tokyo
#
# 覆面算を解く。
# 同じ文字は同じ数字を、違う文字は異なる数字を表す。
# 先頭の文字が０にならないことに注意する。

>>35 Haskellで
import Control.Monad.State
import qualified Data.Set as S
import qualified Data.Map as M

type Proc = StateT (M.Map Char Int, S.Set Int) []

solve :: [String]
solve = flip evalStateT (M.empty, S.fromList [0..9]) $ do
  osaka <- int "osaka"
  kyoto <- int "kyoto"
  tokyo <- int "tokyo"
  guard $ osaka + kyoto == tokyo
  return $ show osaka ++ " + " ++ show kyoto ++ " = " ++ show tokyo

main = putStr $ unlines solve

int :: String -> Proc Int
int xs = do
  (d:ds) <- mapM digit xs
  guard $ d /= 0
  return $ foldl (\n c -> n * 10 + c) 0 (d:ds)

digit :: Char -> Proc Int
digit c = do
  (m, s) <- get
  case M.lookup c m of
    Just d -> return d
    Nothing -> do
      d <- lift $ S.toList s
      put (M.insert c d m, S.delete d s)
      return d

>>35
% Prolog 汎用性の全くない定義。
覆面算_35(O,S,A,K,Y,T) :-
　　加算表(A,O,K1,O),
　　(K1=0,加算表(K,T,K2,Y);K1=1,加算表の一(K,T,K2,Y)),
　　(K2=0,加算表(A,O,K3,K);K2=1,加算表の一(A,O,K3,K)),
　　(K3=0,加算表(S,Y,K4,O);K3=1,加算表の一(S,Y,K4,O)),
　　(K4=0,加算表(O,K,0,T);K4=1,加算表の一(O,K,0,T)),
　　\+(O=S),\+(O=A),\+(O=K),\+(O=Y),\+(O=T),
　　\+(S=A),\+(S=K),\+(S=Y),\+(S=T),
　　\+(A=K),\+(A=Y),\+(A=T),
　　\+(K=Y),\+(K=T),
　　\+(Y=T).

加算表の一(A,B,C,D) :- 加算表(1,A,K,E),加算表(E,B,C,D).

加算表定義 :-
　　for(0,M,9),
　　for(0,N,9),
　　D is (M+N) // 10,
　　Mod is (M+N) mod 10,
　　P=加算表(M,N,D,Mod),
　　assertz(P),
　　N=9,
　　M=9.

:- 加算表定義.

http://pc12.2ch.net/test/read.cgi/tech/1260532772/421
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：
# 問１ 辺の和が3以上1000以下の直角三角形の個数を求めよ。
# 各辺の長さは自然数で、ある直角三角形の各辺を定数倍したものもカウントすることとする。
# 問２　問1 で検索した直角三角形のうち、最も面積の大きい直角三角形の３辺の長さ
#

http://pc12.2ch.net/test/read.cgi/tech/1245853701/273
# [1] 授業単元： 数理計画法
# [2] 問題文(含コード&リンク)： シンプレックス法のプログラムを作成せよ。

辺の和が3以上1000以下の直角三角形の個数を求める(_個数) :-
　　Max1 is truncate(sqrt(1000)),
　　findall(N2,(for(1,N,Max1),N2 is truncate(N*N)),L1),
　　count((組み合わせ(L1,3,[A,B,C]),C is A+B,C>=3,C=<1000),_個数).

辺の和が3以上1000以下の直角三角形のうち、最も面積の大きい直角三角形の３辺の長さ(_短辺1,_短辺2,_長辺) :-
　　Max1 is truncate(sqrt(1000)),
　　findall(N2,(for(1,N,Max1),N2 is truncate(N*N)),L1),
　　findmax([C,A,B],(組み合わせ(L1,3,[A,B,C]),C is A+B,C>=3,C=<1000),[_短辺1,_短辺2,_長辺]).

>>38
% Prolog

>>40 間違い。これは辺の二乗だったね。
% Prolog

辺の和が3以上1000以下の直角三角形のうち、最も面積の大きい直角三角形の３辺の長さを求める(_辺1,_辺2,_辺3) :-
　　Max1 is truncate(sqrt(1000)),
　　findall(N2,(for(1,N,Max1),N2 is truncate(N*N)),L1),
　　findmax([C,A,B],(組み合わせ(L1,3,[A,B,C]),C is A+B,C>=3,C=<1000),[A,B,C]),
　　_辺1 is truncate(sqrt(A)),
　　_辺2 is truncate(sqrt(B)),
　　_辺3 is truncate(sqrt(C)),!.

>>40 益々、間違えた。というより最初から問題を読み違えてる。
% Prolog
辺の和が3以上1000以下の直角三角形のうち、最も面積の大きい直角三角形の３辺の長さを求める(_辺1,_辺2,_辺3) :-
　　Max1 is truncate(sqrt(1000)),
　　findall(N2,(for(1,N,Max1),N2 is truncate(N*N)),L1),
　　findmax([S,A1,B1,C1],(組み合わせ(L1,3,[A,B,C]),C is A+B,C>=3,C=<1000,A1 is truncate(sqrt(A)),B1 is truncate(sqrt(B)),C1 is trucate(sqrt(C)),S is A1 * B1 / 2)),[S1,_辺1,_辺2,_辺3]),!.

辺の和が3以上1000以下の直角三角形という最初の部分が正しく書けていなかったので
後で両方とも書き直します。

>>40
の方針でやると、半日経っても答えは返らないのでは。Prologではね

>>38
% Prolog これで動くか？

辺の和が3以上1000以下の直角三角形の個数を求める(Min,Max,_個数) :-
　　辺の和がMin以上Max以下の直角三角形の個数を求める(3,1000,_個数).

辺の和がMin以上Max以下の直角三角形の個数を求める(Min,Max,_個数) :-
　　findall(N2,(for(1,N,Max),N2 is truncate(N*N)),L1),
　　count((for(1,N1,Max),辺の和がM以下の直角三角形(N1,Min,Max,L1,Sum)),_個数).

辺の和がM以下の直角三角形(N,Min,Max,L1,Sum) :-
　　N2 is N * N,
　　member(A,L1),
　　U is truncate(A + N2),
　　member(U,L1),
　　Sum is truncate(sqrt(A) + sqrt(U) + N),
　　Sum >= Min,
　　Sum =< Max.

>>46

述語名とそれへの副目標を

辺の和がM以下の直角三角形 -> 辺の和がMin以上Max以下の直角三角形

に変更してください。

>>38
% Prolog

辺の和が3以上1000以下の直角三角形のうち、最も面積の大きい直角三角形の３辺の長さを求める(Min,Max,_辺1,_辺2,_辺3) :-
　　辺の和がMin以上Max以下の直角三角形のうち、最も面積の大きい直角三角形の３辺の長さを求める(3,1000,_辺1,_辺2,_辺3).

辺の和がMin以上Max以下の直角三角形のうち、最も面積の大きい直角三角形の３辺の長さを求める(Min,Max,_辺1,_辺2,_辺3) :-
　　findall(N2,(for(1,N,Max),N2 is truncate(N*N)),L1),
　　findmax([_面積,A,B,C],(for(1,N1,Max),辺の和がMin以上Max以下の直角三角形の面積(N1,Min,Max,L1,_面積,A,B,C)),[_,_辺1,_辺2,_辺3]).

辺の和がMin以上Max以下の直角三角形の面積(N,Min,Max,L1,_面積,A1,N,B1) :-
　　N2 is N * N,
　　member(A,L1),
　　U is truncate(A + N2),
　　member(U,L1),
　　A1 is sqrt(A),
　　C is sqrt(U),
　　Sum is truncate(A1 + N + C),
　　Sum >= Min,
　　Sum =< Max,
　　_面積 is A1 * N / 2.

# [1] 授業単元：Prolog初歩
# [2] 課題：以下の情報を述語として定義しなさい。
#
# 賞味期限
# 16…予約はじまる
# 22…予約最盛期
# 23…我慢できない
# 24…最盛期
# 25…ロスタイム
# 26…半額
# 27…更に半額
# 28…返品
# 29…廃棄処分
# 30…廃棄処分逃れてもカビ
#

>>49
% Prolog

:- op(500,xfx,…).

賞味期限(16…予約はじまる).
賞味期限(22…予約最盛期).
賞味期限(23…我慢できない).
賞味期限(24…最盛期).
賞味期限(25…ロスタイム).
賞味期限(26…半額).
賞味期限(27…更に半額).
賞味期限(28…返品).
賞味期限(29…廃棄処分).
賞味期限(30…廃棄処分逃れてもカビ).

>>49
% Prolog

賞味期限(16,予約はじまる).
賞味期限(22,予約最盛期).
賞味期限(23,我慢できない).
賞味期限(24,最盛期).
賞味期限(25,ロスタイム).
賞味期限(26,半額).
賞味期限(27,更に半額).
賞味期限(28,返品).
賞味期限(29,廃棄処分).
賞味期限(30,廃棄処分逃れてもカビ).

>>22
% Prolog こんなところから。

重層的な対象(待つ,人).
重層的な対象(待つ,風).
重層的な対象(焼く,身).
重層的な対象(焼く,藻).

形態的近似(松,帆).
形態的近似(帆,松).

音通(待つ,松).
音通(松,待つ).
音通(裏,占).
音通(占,裏).
音通(裏,浦).
音通(浦,裏).
音通(占,浦).
音通(浦,占).

連想(X,Y) :- 音通(X,Y).
連想(X,Y) :- 形態的近似(X,Y).
連想(X,Y) :- 連想(X,Z),連想(Z,Y).

>>30
% Prolog

'５０人のクラス（男子３５人）から５人の委員をランダムに選ぶ。このとき選ばれた委員の中に男３人、女２人が入る確率'(_確率) :-
　　A is 50 * 49 * 48 * 47 * 46,
　　B is 35 * 34 * 33 * 15 * 14,
　　階乗(5,C),
　　階乗(3,D),
　　階乗(2,E),
　　F is C / ( D * E),
　　_確率 is (B * F) / A.

http://pc12.2ch.net/test/read.cgi/tech/1248012902/652
# 【　課題　】キーボードから文字入力し、":"で文字列分割をし、結果を表示する。
# 文字列分割の際にはsplitメソッドを利用すること。

>>54
% Prolog

'キーボードから文字入力し、":"で文字列分割をし、結果を表示する' :-
　　get_line(Line),
　　split(Line,[':'],L),
　　write_formatted('%t\n',[L]).

http://pc12.2ch.net/test/read.cgi/tech/1260532772/431
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# 20000〜40000までの自然数のうち、数字の9を2個含む素数の個数を調べよ
#

>>56
% Prolog

'20000〜40000までの自然数のうち、数字の9を2個含む素数の個数'(_個) :-
　　素数生成(40000,_素数ならび),
　　count((member(N1,_素数ならび),N1>=20000,数字の9を2個含む(N1)),_個).

数字の9を2個含む(N) :-
　　number_chars(N,L),
　　count(member('9',L),2),!.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
素数生成(N,X) :-
　　findall(M,for(2,M,N),L),
　　エラトステネスの篩(L,X).

エラトステネスの篩([],[]) :- !.
エラトステネスの篩([A|R1],[A|R2]) :-
　　エラトステネスの篩(A,R1,L),
　　エラトステネスの篩(L,R2).

エラトステネスの篩(_,[],[]) :- !.
エラトステネスの篩(N,[A|R1],R2) :-
　　0 is A mod N,
　　エラトステネスの篩(N,R1,R2),!.
エラトステネスの篩(N,[A|R1],[A|R2]) :-
　　エラトステネスの篩(N,R1,R2).

http://pc12.2ch.net/test/read.cgi/tech/1260532772/439
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：
#
# 三角形の「底辺」「高さ」「面積」を表現するために，整数型の2つの変数teihenとtakasaと浮動小数点型(double型)の1つの変数mensekiの，計3つの変数をメンバとしてもつ構造体型sankakuを宣言しよう．
#
# main関数の中で，構造体変数triangle1とtriangle2が次のように定義されているとする．
#
# struct sankaku triangle1 = {2, 8, 0.0};
#
# struct sankaku triangle2 = {3, 6, 0.0};
#
# このとき，以下の式で三角形の面積を計算し，それぞれのメンバ変数mensekiに求めた値を格納しよう．（整数同士の計算結果は必ず整数型の値になってしまうため，「2.0」という小数点付の数で割る計算をすること．そうすると，小数点以下の値まで求められる）
#
# （面積） = (底辺) × (高さ) / 2.0
#
# さらに，格納されたそれぞれの面積の値（triangle1のmensekiとtriangle2のmenseki）を表示するプログラムを作成せよ．（表示の際にはdouble型の値を表示することになるので，printfの" "の中の書き方に注意すること）

>>12
使用言語：　J

f=:|.&.":

f 56789
98765
1 + f 56789
98766

>>30
% Prolog 一般解を試みる。あまりすっきりしない。

'メンバーが男Mn人女Fn人で構成される時、男M人女N人をランダムに取り出す確率'(Mn,Fn,M,N,_確率) :-
　　メンバー全員は(Mn,Fn,Sn),
　　Sm is Sn - M - N + 1,
　　Mm is Mn - M + 1,
　　Nm is Nn - N + 1,
　　'男M人女N人の取り出し順序は何通りか'(M,N,_何通り),
　　'分母はSn*S(n-1)*..*S(m+1)*Smである'(Sn,Sm,_分母),
　　'分子はMm*M(m-1)*..M(n+1)*M(n)*Fm*F(m-1)..*F(n+1)*Fnに取り出し順序の何通りかを掛けたものである'(Mn,Mm,Fn,Fm,_何通り,_分子),
　　_確率 is _分子 / _分母.

'分母はSn*S(n-1)*..*S(m+1)*Smである'(Sn,Sm,_分母) :- 階乗(Sn,Sm,_分母),!.

'分子はMm*M(m-1)*..M(n+1)*M(n)*Fm*F(m-1)..*F(n+1)*Fnに取り出し順序の何通りかを掛けたものである'(Mn,Mm,Fn,Fm,_何通り,_分子) :-
　　階乗(Mn,Mm,A),
　　階乗(Fn,Fm,B),
　　_分子 is A * B * _何通り,!.

'男M人女N人の取り出し順序は何通りか'(M,N,_何通り) :-
　　S is M + N,
　　階乗(M,M1),
　　階乗(N,N1),
　　階乗(S,S1),
　　_何通り is S1 / ( M1 * N1 ).

>>30 つづき。
% Prolog

メンバー全員は(Mn,Fn,Sn) :- Sn is Mn + Fn.

階乗(0,_,1) :- !.
階乗(1,_,1) :- !.
階乗(M1,M,1) :- M1 < M,!.
階乗(N,M,X) :-
　　N1 is N - 1,
　　階乗(N1,M,Y),
　　X is N * Y,
　　asserta((階乗(N,M,X) :- (!))),!.

>>56
PHP
http://codepad.org/nfttcf8D

>>56
使用言語：　J

+/2=+/"1'9'=":,.p:a+i.(_1&p:40000)-(a=._1&p:20000)
141

>>12
使用言語：　maxima

(%i36) f(n):=(r:0,while(n>0)do (r:r*10+mod(n,10),n:fix(n/10)),r);

(%i37) f(987654321);
(%o37) 123456789

http://pc12.2ch.net/test/read.cgi/tech/1260532772/442
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10305.txt
#
# ★演習問題３＊
# "izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"の７個の
# 文字列の長さを求めて表示しなさい．ただし，ポインタのボインタを用いること．
#
# (実行結果)
# 6 :izumi
# 5 : kanto
# 4 : Kudo
# 4 : Sato
# 8 : Sugawara
# 6 : Matuda
# 4 : Wada

>>65
% Prolog

指定された文字列('"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"').

'"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"の７個の文字列の長さを求めて表示する' :-
　　指定された文字列(_指定された文字列),
　　atom_to_term(_指定された文字列,_文字コードならびのならび),
　　member(Codes,_文字コードならびのならび),
　　length(Codes,_長さ),
　　atom_codes(_表示文字列,Codes),
　　write_formatted('%t:%t\n',[_長さ,_表示文字列]),
　　fail.
'"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"の７個の文字列の長さを求めて表示する'.

>>65
% Prolog


指定された文字列('"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"').

'"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"の７個の文字列の長さを求めて表示する' :-
　　指定された文字列(_指定された文字列),
　　split(_指定された文字列,[',','"'],_文字ならびのならび),
　　member(Chars,_文字ならびのならび),
　　length(Chars,_長さ),
　　atom_chars(_表示文字列,Chars),
　　write_formatted('%t:%t\n',[_長さ,_表示文字列]),
　　fail.
'"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"の７個の文字列の長さを求めて表示する'.

>>65
% Prolog

指定された文字列('"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"').

'"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"の７個の文字列の長さを求めて表示する' :-
　　指定された文字列(_指定された文字列),
　　split(_指定された文字列,[',','"'],_文字ならびのならび),
文字列を長さと共に表示する(_文字ならびのならび).

文字列を長さと共に表示する([]) :- !.
文字列を長さと共に表示する([Chars|R]) :-
　　length(Chars,_長さ),
　　atom_chars(_表示文字列,Chars),
　　write_formatted('%t:%t\n',[_長さ,_表示文字列]),
　　文字列を長さと共に表示する(R).

>>68
splitの下の行のインデントが狂いました。

そうそう。
インデントはPrologの実行にはまったく関係ありません。
これを習慣にしている人には見易いかなという程度の問題です。

冬休みに入って課題が出ない日がしばらくは続くでしょうね。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/442
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10305.txt
#
# 演習問題1
# 入力されたデーク数に応じた配列を確保し，入力されたデータをその配列に保存し，
それらの和を求めよ.
# (実行結果例)
# データの数は?10
# 1番目のデータを人力してください:1
# 2番目のデータを入力してください:2
# 3番目のデータを入力してください:3
# 4番目のデータを入力してください:4
# 5番目のデータを入力してください:5
# 6番目のデータを人力してください:6
# 7番目のデータを入力してください:7
# 8番目のデータを入力してください:8
# 9番目のデータを入力してください:9
# 10番目のデータを入力してください:10
# 和＝55

>>71
% Prolog

入力されたデーク数に応じた配列を確保し，入力されたデータをその配列に保存し，それらの和を求める :-
　　催促付き整数入力('データの数は?',N),
　　findsum(X,(for(1,M,N),催促付き整数入力('%t番目のデータを入力してください:',[M],X)),_和),
　　write_formatted('和=%t\n',[_和]).

>>71
% Prolog >>72はズルしてるのでもうひとつ。配列はリストと読み替えてください。

入力されたデーク数に応じた配列を確保し，入力されたデータをその配列に保存し，それらの和を求める :- 　　
　　催促付き整数入力('データの数は?',N),
　　入力されたデーク数に応じた配列を確保し(N,L),
　　入力されたデータをその配列に保存し、([_],L),
　　それらの和を求める(L,_和),
　　write_formatted('%\n',[_和]).

入力されたデーク数に応じた配列を確保し(N,L) :- length(L,N).

入力されたデータをその配列に保存し、(_,[]) :- !.
入力されたデータをその配列に保存し、(L,[N|R]) :-
　　length(L,M),
　　催促付き整数入力('%t番目のデータを入力してください:',[M],N),
　　入力されたデータをその配列に保存し、([_|L],R).

それらの和を求める([],0).
それらの和を求める([N|R],X) :- それらの和を求める(R,Y),X is N + Y.

>>65
使用言語：　J

(,.~#&.>)'izumi';'Kanto';'Kudo';'Sato';'Sugawara';'Matuda';'Wada'
+-+--------+
|5|izumi |
+-+--------+
|5|Kanto |
+-+--------+
|4|Kudo |
+-+--------+
|4|Sato |
+-+--------+
|8|Sugawara|
+-+--------+
|6|Matuda |
+-+--------+
|4|Wada |
+-+--------+

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)を繰り返す

http://pc12.2ch.net/test/read.cgi/tech/1248012902/157
# 【　課題　】ttp://rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/787.txt
# 行列や固有値を扱う数値計算の課題です。
#
# 逆反復法(逆べき乗法)とLU分解を用いて、固有値問題を解く。
# 与える行列Aはn*n行列で、4*4や5*5でも、自由に数値を定めて良い。
# 1)一番小さい固有値に対応する固有ベクトルsVを求める。
# 2)二番目に小さい固有値に対応する固有ベクトルVを求める。
# double [] gauss(double[][] A , double[] b)
# のような形を作り、
# LU分解のメソッドを逆べき乗法のメソッドでコールするようにする。
# （あらかじめAをLU分解しておき、連立一次方程式を解いて反復するため）
# 解はdouble[]の形のベクトルで、for文の中でSystem.out.printを回して出力。
# ここまでが最低ライン。可能ならば
# ベクトル集合V=(v1,v2,....vn)において、
# Vi < 0 のときは-1のラベルを、
# Vi >=0 のときは 1のラベルをつける。

http://chomework.sakura.ne.jp/log1/1135125328_02.html (レス番号194)
# [1] 授業単元： 情報処理
# [2] 問題文(含コード&リンク)：ファイルからデータ(迷路空間)を読み込む処理と構造体・リストを用いた、
# 迷路空間を作成せよ。
# 読み込むデータは右図のような形式であり、　　　　******
# 各記号は次の意味を持つものとする。　　　　　　　*8000*
# * : 壁　　　　　　　　　　　　　　　　　　　　　****0*
# 0 : 通路　　　　　　　　　　　　　　　　　　　　**000*
# 8 : 通路 & スタート　　　　　　　　　　　　　　 *90*0*
# 9 : 通路 & ゴール　　　　　　　　　　　　　　　 ******
# 迷路空間は、必ず長方形であることを前提とする。
# そして、再帰を用いた迷路空間の探索プログラムも作成せよ。
# 最短経路と後戻りした記録付き経路のどちらを表示しても構わないが両方表示した方がポイント高し

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

宿題スレ難問集の様相を呈してきました。
HaskellやOCamlそして、Scalaなどの使い手がバッサバッサとプログラミングして
くれるといいんだがな。

>>38 問1
使用言語：　十進BASIC

LET st= TIME
LET r=0
FOR a=1 TO 1000
LET aa=a*a
FOR b=a TO 1000
LET bb=b*b
FOR c=1 TO 1000-a-b
IF aa+bb=c*c THEN LET r=r+1
NEXT C
NEXT B
NEXT A
PRINT r
PRINT TIME-st;" sec (CeleronM 1.46GHz)"
END
実行結果
325
10.5 sec (CeleronM 1.46GHz)

>>38 問2
使用言語：　十進BASIC
LET st= TIME
LET maxs=0
LET maxa=0
LET maxb=0
LET maxc=0
FOR a=1 TO 1000
LET aa=a*a
FOR b=a TO 1000
LET ab=aa+b*b
FOR c=1 TO 1000-a-b
IF ab=c*c THEN
LET ab2=a*b/2
IF ab2>maxs THEN
LET maxs=ab2
LET maxa=a
LET maxb=b
LET maxc=c
END IF
END IF
NEXT C
NEXT B
NEXT A
PRINT maxa;maxb;maxc
PRINT TIME-st;" sec (CeleronM 1.46GHz)"
END
実行結果
264 315 411
8.89999999999418 sec (CeleronM 1.46GHz)

http://pc12.2ch.net/test/read.cgi/tech/1260532772/442
# [1] 授業単元： プログラミング実習
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10305.txt
#
# ★演習問題５
# 人力されたクラスの人数と科目の数に応じた配列を確保し，入力されたデータをその配列に保存し，科目ごとの和を求めよ。
# 例として，人数を３とし，科目数を３とした場合，それぞれの科日数に対する点数を読み込み，結果が正しく出力されるかを確認せよ。
# (時間があれば，人数や科日数を適当に変えて，動作を確認せよ)
# （実行結果例）
# クラスの人数は?4
# 科目の数は?3
# 1番目の学生
# 85
# 74
# 63
# < 中略>
# 各科目の和は以下の通りです
# 222
# 213
# 269

>>85
% Prolog ここでも配列はリストと読み替えてください

'人力されたクラスの人数と科目の数に応じた配列を確保し，入力されたデータをその配列に保存し，科目ごとの和を求めよ' :-
　　人力されたクラスの人数と科目の数に(_クラスの人数,_科目の数),
　　応じた配列を確保し(_クラスの人数,_科目の数,L),
　　データを入力する([_],L),
　　科目ごとの和を求める(_和ならび),
　　和ならびを表示する(_和ならび).

人力されたクラスの人数と科目の数に(_クラスの人数,_科目の数) :- 催促付き整数入力('クラスの人数は ?',_クラスの人数),催促付き整数入力('科目の数は ?',_科目の数),!.

応じた配列を確保し(_クラスの人数,_科目の数,L) :- length(L,_クラスの人数),findall(L1,(member(L1,L),length(L1,_科目の数)),L).

データを入力する(_,[]) :- !.
データを入力する(NL,[L|R]) :-
　　length(NL,N),write_formatted('%t番目の学生は ?',[N]),
　　findall(A,(member(A,L),get_integer(A)),L),
　　データを入力する([_|NL],R).

科目ごとの合計を求める(L,_和ならび) :- 行列の転置(L,L1),findall(S,(member(L2,L1),sum(L2,S)),_和ならび).

和ならびを表示する([]) :- !.
和ならびを表示する([_和|R]) :- write_formatted('%t\n',[_和]),和ならびを表示する(R).

>>12　　使用言語：　十進BASIC　　計算だけで反転するのと文字列に変換して反転するのを比べてみた。
FUNCTION f1(n)
LET r=0
DO WHILE n>0
LET r=r*10+MOD(n,10)
LET n=INT(n/10)
LOOP
LET f1=r
END FUNCTION
FUNCTION f2(n)
LET s1$=STR$(n)
LET s2$=s1$
LET b=LEN(s1$)
FOR i=1 TO b
LET s2$(b-i+1:b-i+1)=s1$(i:i)
NEXT I
LET f2=VAL(s2$)
END FUNCTION
LET st=TIME
FOR i=1 TO 1000000
LET a=f1(123456789)
NEXT I
PRINT "f1";TIME -st;"sec"
LET st=TIME
FOR j=1 TO 1000000
LET a=f2(123456789)
NEXT J
PRINT "f2";TIME -st;"sec"
END
f1 3.63000000000466 sec
f2 24.5599999999977 sec

http://pc12.2ch.net/test/read.cgi/tech/1260532772/464
# 1：単元名　C言語
# 2：問題文
# 元金、単利と複利の利率に対して、次のものを求めるプログラムを作成しなさい。
#
# 30年後の残高。
# 30年以内に複利の残高は単利の残高を上回るか。
# 上回るならば何年後か。

>>56　　使用言語：　十進BASIC
FUNCTION isprime(n)
LET isprime=0
IF MOD(n,2)=0 THEN
IF n=2 THEN LET isprime=1
ELSE
FOR i=3 TO SQR(n) STEP 2
IF MOD(n,i)=0 THEN EXIT FOR
NEXT i
IF i>SQR(n) THEN LET isprime=1
END IF
END FUNCTION
FUNCTION is99(n)
LET is99=0
LET r=0
DO WHILE n>0
IF MOD(n,10)=9 THEN
LET r=r+1
IF r>2 THEN EXIT DO
END IF
LET n=INT(n/10)
LOOP
IF r=2 THEN LET is99=1
END FUNCTION
LET s=0
FOR j=20000 TO 40000
IF isprime(j)=1 AND is99(j)=1 THEN LET s=s+1
NEXT J
PRINT s
END ! 実行結果　　141

'30年後の残高'(_単利か福利か,_元金,_利息,_30年後の残高) :-
　　findall(_残高1,残高(_単利か複利か,30,_元金,_利率,_,_,_残高1),_残高ならび),
　　last(_残高ならび,_30年後の残高).

残高(_単利か複利か,_期間,_元金,_利率,_年目,_利息,_残高) :-
　　length(L,_期間),
　　残高(_単利か複利か,L,[_],_元金,_元金,_利率,_年目,_利息,_残高).

残高(単利,[_|R1],L1,_元金,_残高1,_利率,_年目,_利息,_残高) :-
　　_利息 は 切り捨て(_元金 * _利率),
　　_残高 is _残高1 + _利息,
　　length(L1,_年目),
　　write_formatted('%t年目 利息=%t 残高=%t\n',[_年目,_利息,_残高]).
残高(複利,[_|R1],L1,_元金,_残高1,_利率,_年目,_利息,_残高) :-
　　_利息 は 切り捨て(_残高1 * _利率),
　　_残高 is _残高1 + _利息,
　　length(L1,_年目),
　　write_formatted('%t年目 利息=%t 残高=%t\n',[_年目,_利息,_残高]).
残高(単利,[_|R1],L1,_元金,_残高1,_利率,_年目,_利息,_残高) :-
　　_利息1 は 切り捨て(_元金 * _利率),
　　_残高2 is _残高1 + _利息1,
　　残高(単利,R1,[_|L1],_元金,_残高2,_利率,_年目,_利息,_残高).
残高(複利,[_|R1],L1,_元金,_残高1,_利率,_年目,_利息,_残高) :-
　_利息1 は 切り捨て(_残高1 * _利率),
　　_残高2 is _残高1 + _利息1,
　　残高(複利,R1,[_|L1],_元金,_残高2,_利率,_年目,_利息,_残高).

>>90 訂正
% Prolog www

福利 -> 複利

>>90
残高という述語名は好ましくないだろう。

>>90
% Prolog

'30年以内に複利の残高は単利の残高を上回るか。'(_元金,_複利の利率,_単利の利率) :
　　findall(_残高1,残高(複利,30,_元金,_複利の利率,_,_残高1),L1),
　　findall(_残高1,残高(単利,30,_元金,_単利の利率,_,_残高2),L2),
　　行列の転置([L1,L2],L3),
　　member([A,B],L3),
　　A > B.

>>93 一ヶ所書き直し。さてどこでしょう？

>>90
% Prolog

'30年以内に複利の残高は単利の残高を上回るか。'(_元金,_複利の利率,_単利の利率) :-
　　findall(_残高1,残高(複利,30,_元金,_複利の利率,_,_残高1),L1),
　　findall(_残高1,残高(単利,30,_元金,_単利の利率,_,_残高2),L2),
　　行列の転置([L1,L2],L3),
　　member([A,B],L3),
　　A > B.

>>93 >>94
リンクを>>90 としてあるけどこれは>>88です。
さて、>>90の残高の中で表示をしているので、>>94の課題でも、
客年の何年目、利息、残高が煩く表示されてしまう。
?- tell('/dev/null'),'30年以内に複利の残高は単利の残高を上回るか。'(1000,0.045,0.031),told.
とでもやればよいか。
これでも、上回らないと中の副目標がfailになって、toldが実行されないままとなる。

それもそうだけど、
複利の利率の方が大きいのでは1年目で片がついてしまうw

>>88
% Prolog

'30年以内に複利の残高は単利の残高を上回るか。上回るならば何年後か。'(_元金,_複
利の利率,_単利の利率,_何年後) :-
　　findall(_残高1,残高(複利,30,_元金,_複利の利率,_,_残高1),L1),
　　findall(_残高1,残高(単利,30,_元金,_単利の利率,_,_残高2),L2),
　　行列の転置([L1,L2],L3),
　　append(L0,[[A,B]|_],L3),
　　A > B,
　　length([_|L0],_何年後).

>>97 (>>88) 再表示。
% Prolog

'30年以内に複利の残高は単利の残高を上回るか。上回るならば何年後か。'(_元金,_複利の利率,_単利の利率,_何年後) :-
　　findall(_残高1,残高(複利,30,_元金,_複利の利率,_,_残高1),L1),
　　findall(_残高1,残高(単利,30,_元金,_単利の利率,_,_残高2),L2),
　　行列の転置([L1,L2],L3),
　　append(L0,[[A,B]|_],L3),
　　A > B,
　　length([_|L0],_何年後).

>>98 すみません。間違い発見。またまた書き直し。

% Prolog

'30年以内に複利の残高は単利の残高を上回るか。上回るならば何年後か。'(_元金,_複利の利率,_単利の利率,_何年後) :-
　　findall(_残高1,残高(複利,30,_元金,_複利の利率,_,_残高1),L1),
　　findall(_残高2,残高(単利,30,_元金,_単利の利率,_,_残高2),L2),
　　行列の転置([L1,L2],L3),
　　append(L0,[[A,B]|_],L3),
　　A > B,
　　length([_|L0],_何年後).

どこが間違ってるのか、コメントしてよ。
間違いの部分を読むのは勉強になるから。

>>100
焦ってしまって、精神的にコメントを入れてる余裕がなくなるw
人に見られないうちに書き換えようって。
ところで、findall/3は奇妙な仕様になっていて、
　　findall(_残高,残高(複利,30,_元金,_複利の利率,_,_残高),L1),
　　findall(_残高,残高(単利,30,_元金,_単利の利率,_,_残高),L2),
でも通ってしまう。
この目標が終了する時にこの中で使われている変数の束縛を解いてしまう。
好ましい表現ではないと思うから、避けるようにしているけど。

# [1] 授業単元：Prolog基礎
# [2] 問題文(含コード&リンク)：カラムとして、電話番号と氏名を持つ
# 電話帳テーブルがある。この中で同姓同名が最も多い氏名を探せ。

>>102
% Prolog
'カラムとして、電話番号と氏名を持つ電話帳テーブルがある。この中で同姓同名が最も多い氏名'(_氏名ならび) :-
　　findall(_氏名,clause(電話帳(_,_氏名),_),_氏名ならび),
quicksort(_氏名ならび,_整列された氏名ならび),
同姓同名が最も多いもの(_整列された氏名ならび,0,[],_氏名ならび).

同姓同名が最も多いもの(_整列された氏名ならび,_これまでの最大数,_氏名ならび1,_氏名ならび).
整列された氏名ならび=[A|R1],
要素の連続数(1,A,R1,X,R2),
最大値は(A,X,_これまでの最大値,_更新された最大値,_氏名ならび1,_氏名ならび2),
同姓同名が最も多いもの(R2,_更新された最大値,_氏名ならび2,_氏名ならび),!.
同姓同名が最も多いもの(_,_,_氏名ならび,_氏名ならび).

最大値は(_氏名,X,_これまでの最大値,X,_氏名ならび,[_氏名]) :- X @> _これまでの最大値,!.
最大値は(_氏名,X,_これまでの最大値,X,_氏名ならび,[_氏名|_氏名ならび]) :- X = _これまでの最大値,!.
最大値は(_,_,_これまでの最大値,_これまでの最大値,_氏名ならび,_氏名ならび).

要素の連続数(X,A,[],X,[]) :- !.
要素の連続数(X,A,[B|R],X,[B|R]) :- \+(A==B),!.
要素の連続数(M,A,[A|R1],X,R) :- M2 is M + 1,要素の連続数(M2,A,R1,X,R).

>>102 書き直し。
% Prolog
'カラムとして、電話番号と氏名を持つ電話帳テーブルがある。この中で同姓同名が最も多い氏名'(_氏名ならび) :-
　　findall(_氏名,clause(電話帳(_,_氏名),_),_氏名ならび),
　　quicksort(_氏名ならび,_整列された氏名ならび),
　　同姓同名が最も多いもの(_整列された氏名ならび,0,[],_氏名ならび).

同姓同名が最も多いもの(_整列された氏名ならび,_これまでの最大数,_氏名ならび1,_氏名ならび).
　　整列された氏名ならび=[A|R1],
　　要素の連続数(1,A,R1,X,R2),
　　最大値は(A,X,_これまでの最大値,_更新された最大値,_氏名ならび1,_氏名ならび2),
　　同姓同名が最も多いもの(R2,_更新された最大値,_氏名ならび2,_氏名ならび),!.
同姓同名が最も多いもの(_,_,_氏名ならび,_氏名ならび).

最大値は(_氏名,X,_これまでの最大値,X,_氏名ならび,[_氏名]) :- X @> _これまでの最大値,!.
最大値は(_氏名,X,_これまでの最大値,X,_氏名ならび,[_氏名|_氏名ならび]) :- X = _これまでの最大値,!.
最大値は(_,_,_これまでの最大値,_これまでの最大値,_氏名ならび,_氏名ならび).

要素の連続数(X,A,[],X,[]) :- !.
要素の連続数(X,A,[B|R],X,[B|R]) :- \+(A==B),!.
要素の連続数(M,A,[A|R1],X,R) :- M2 is M + 1,要素の連続数(M2,A,R1,X,R).

>>104
ふたつ気になることがあります。
一つは、テーブルからの取得をclause/2で行っていること。本体(条件)を
殺しているのですが、電話番号による種別の判定など意味のあるケースも
想定できると思います。
二つめは、同一人が複数の回線を持つのは普通のことだから、カラムに
住所まで加えて、それも氏名+住所をキーにしなくてはいけないのではないか。
これは問題の不備ということになります。

>>105
問題がテーブルとありますから、やはり単位節のみと考えるべきなんでしょうね。
いきなり、条件部の記述によって自動発信してしまうケースなどを懼れました。
それから時刻を調べて週末だけはこの電話とか。

>>35　　使用言語：　十進BASIC
FOR o=1 TO 9
FOR s=0 TO 9
IF o<>s THEN
FOR a=0 TO 9
IF o<>a AND s<>a THEN
FOR k=0 TO 9
IF o<>k AND s<>k AND a<>k THEN
FOR y=0 TO 9
IF o<>y AND s<>y AND a<>y AND k<>y THEN
FOR t=0 TO 9
IF o<>t AND s<>t AND a<>t AND k<>t AND y<>t THEN
IF (o+k)*10000+(s+y)*1000+(a+o)*100+(k+t)*10+a+o=t*10000+o*1000+k*100+y*10+o THEN
PRINT USING "# # # # # ＋ # # # # # ＝ # # # # #":o,s,a,k,a,k,y,o,t,o,t,o,k,y,o
END IF
END IF
NEXT T
END IF
NEXT Y
END IF
NEXT K
END IF
NEXT A
END IF
NEXT S
NEXT O
END
実行結果
3 2 0 4 0 ＋ 4 1 3 7 3 ＝ 7 3 4 1 3

>>37 (>>35) 訂正追加。
% Prolog 定義を一節増やします。

加算表の一(A,B,1,D) :- 加算表(1,A,1,E),加算表(E,B,_,D).
加算表の一(A,B,C,D) :- 加算表(1,A,0,E),加算表(E,B,C,D).

# [1] 授業単元：Prolog基礎
# A社の組織として営業部、総務部があります。営業部は営業一課、営業二課にわかれています。
# 総務部も人事課と経理課にわかれています。管理情報として所属テーブル、給与テーブルがあります。
# [所属テーブル]
# 部,　　課,　　 ,社員名
# 営業部,営業一課,岡部
# 営業部,営業二課,小野
# 営業部,営業二課,鹿戸
# 営業部,営業二課,小泉
# 総務部,人事課,大崎
# 総務部,経理課,嶋田
# 総務部,経理課,宮田
# [給与テーブル]
# 社員名,給与
# 岡部,300000
# 小野,250000
# 鹿戸,280000
# 小泉,350000
# 大崎,200000
# 嶋田,400000
# 宮田,200000
# [問題] 部・課、部をそれぞれキーとして給与額を集約して合計した
# 部・課集約テーブル、部集約テーブルを作り出す述語を定義しなさい。

>>109
% Prolog (その一) 一般化できる部分のみ。集約データの収集/3,_述語/_アリティに対応する述語定義
% データベースの項目に関する情報述語と集約項目に関する述語が別に必要。

集約述語の生成(_述語/_アリティ,_集約述語ならび) :-
　　findall(_集約キー,集約キーの生成(_述語/_アリティ,_集約キー),_集約キーならび),
　　集約述語の生成(_述語/_アリティ,_集約キーならび,_集約述語ならび).

集約述語の生成(_述語/_アリティ,[],[]) :- !.
集約述語の生成(_述語/_アリティ,[_集約キー|R1],[_集約述語名/_アリティ2|R2]) :-
　　concat_atom(_集約キー,'・',_集約述語名),
　　length([_|_集約キー],_アリティ2),
　　集約データの収集(_述語/_アリティ,_集約キー,_集約データならび),
　　集約データの定義(_集約述語名,_集約データならび),
　　集約述語の生成(_述語/_アリティ,R1,R2).

集約データの定義(_,[]) :- !.
集約データの定義(_集約述語名,[_集約データ|R]) :-
　　P =.. [_集約述語名|_集約データ],
　　assertz(P),
　　集約データの定義(_集約述語名,R).

集約キーの生成(_述語/_アリティ,_集約キー) :-
　　集約項目(_述語/_アリティ,L),
　　append(L1,_,L),
　　\+(L1=[]).

>>102 使用言語：　J
data=:noun define
0123456789 山田一郎
1234567890 鈴木二郎
2345678901 伊藤三郎
3456789012 山田一郎
4567890123 伊藤一郎
5678901234 山田一郎
)
]a=:cutopen<;._2 data
+----------+------------+
|0123456789|山田一郎|
+----------+------------+
|1234567890|鈴木二郎|
+----------+------------+
|2345678901|伊藤三郎|
+----------+------------+
|3456789012|山田一郎|
+----------+------------+
|4567890123|伊藤一郎|
+----------+------------+
|5678901234|山田一郎|
+----------+------------+
f=:0{(~.\:#/.~)
f 1{"1 a
+------------+
|山田一郎|
+------------+
f >1{"1 a
山田一郎

>>110 (>>109)
% Prolog (その二) 具体的なテーブルを。あと、集約データの収集述語定義をすればよい。

所属(営業部,営業一課,岡部).
所属(営業部,営業二課,小野).
所属(営業部,営業二課,鹿戸).
所属(営業部,営業二課,小泉).
所属(総務部,人事課,大崎).
所属(総務部,経理課,嶋田).
所属(総務部,経理課,宮田).

給与(岡部,300000).
給与(小野,250000).
給与(鹿戸,280000).
給与(小泉,350000).
給与(大崎,200000).
給与(嶋田,400000).
給与(宮田,200000).

集約項目(所属/3,[部,課]).

述語構造(所属/3,1,部).
述語構造(所属/3,2,課).
述語構造(所属/3,3,社員名).
述語構造(給与/2,1,社員名).
述語構造(給与/2,2,給与).

>>19
使用言語：　J

f=:monad def'((":y),'' = '',":@{.,'' * '',":@}.)"1~./:~"1|:(,:y&%)>:I.0=y|~>:i.y'
f 120
120 = 1 * 120
120 = 2 * 60
120 = 3 * 40
120 = 4 * 30
120 = 5 * 24
120 = 6 * 20
120 = 8 * 15
120 = 10 * 12

パズルでもやってみる？

2,0,1,0 の4個の数字をこの順番で1回だけ使い、0から99の数字を作れ。
演算子、関数の使用は自由。

例

201^0 -> 1

http://pc12.2ch.net/test/read.cgi/tech/1260532772/486
# [1] 授業単元：Ｃ言語プログラミング
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10312.txt
# ソケットを用いて，課題1のプログラムを以下のように改良する．
#
# サーバとクライアントに分割し，ユーザーはクライアントを用いて操作内容を入力し，その内容をサーバに送信する．
# それを受信したサーバは，その内容を基にファイルを操作する．必要であれば，サーバは結果をクライアントに送信し，クライアントはそれを受信して表示する．
# 機能ルーチンはサーバ側に実装し，課題1で作成した関数を改良し用いること
#

http://pc12.2ch.net/test/read.cgi/tech/1260532772/487
# [1] 授業単元：計算機入門及び演習
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10311.txt
#
以下の問題を解くプログラムをC言語を用いて作成しなさい．

AさんとBさんは点数が書かれたカードを何枚か持っている． AさんのカードとBさんのカ
ードを1枚ずつ交換して，Aさんの持つカードの合計点数とBさんの持つカード合計点数が
等しくなるようにしたい．
このときどのカードとどのカードを交換したらよいか．ただし，カードを交換しなくても合計点数が等しい場合でも，必ずカードの交換を行うものとする．

入力は，いくつかのデータセットからなる．各データセットは次の形式で与えられる．
n m
s1
s2
...
sn
sn+1
sn+2
...
sn+m
各データセットの最初の行は空白ひとつで区切られたふたつの数 n と m を含み， n はAさんのカードの枚数，m はBさんのカードの枚数を表す．続く n+m 行には，各カードの
点数が 1 行にひとつずつ並ぶ．最初の n 個の点数 (s1 から sn まで) はAさんのカードの点数，残りの m 個の点数 (sn+1 から sn+m まで) はBさんのカードの点数を表す．
n および m は 100 以下の正の整数とし，カードの点数は 0 以上 100 以下の整数値とする．入力の終わりは，空白ひとつで区切られたふたつの 0 を含む 1 行で示される．

各データセットに対し，Aさん，Bさんの交換前のすべてのカードと交換すべき2つのカードを出力すること．形式は特に問わない(実行例を参考にすること)．
なお，合計を等しくするようなカードの交換の方法が複数ある場合は，交換するカードの点数の和が最小となるもののみを出力すること．
また，カードの点数の合計を等しくするような交換が存在しない場合はその旨を出力すること．

>>114
使用言語：　maxima
15までできたけど、結構、大変。

0 201*0;
1 2-0-1-0;
2 20/10;
3 2+0+1+0;
4 fix(sqrt(20.10));
5 ceiling(sqrt(20.10));
6 fix(sqrt(20.10));
7 fix(exp(2.010));
8 ceiling(exp(2.010));
9 ceiling(exp(2.0)+1.0);
10 fix(exp(2.0)+exp(1.0));
11 ceiling(exp(2.0)+exp(1.0));
12 2+0+10;
13 ceiling(exp(sin(2.0))+10);
14 fix(sqrt(201.0));
15 ceiling(sqrt(201.0));

http://pc12.2ch.net/test/read.cgi/tech/1260532772/489
# [1] 授業単元：
# 画像解析
# [2] 問題文(含コード&リンク)：
# 画像を、好きな倍率で大きくしたり小さくしたりするプログラムを作成してください

>>30　　使用言語：　十進BASIC
FUNCTION 組合せの数(n,r)
LET a=1
LET b=n
FOR i=2 TO r
LET a=a*i
LET b=b*(n-i+1)
NEXT I
LET 組合せの数=b/a
END FUNCTION

PRINT 組合せの数(35,3)*組合せの数(15,2)/組合せの数(50,5)
PRINT 組合せの数(35,4)*組合せの数(15,1)/組合せの数(50,5)
PRINT 組合せの数(35,2)*組合せの数(15,3)/組合せの数(50,5)
PRINT "組み込み関数combを使った場合"
PRINT comb(35,3)*comb(15,2)/comb(50,5)
PRINT comb(35,4)*comb(15,1)/comb(50,5)
PRINT comb(35,2)*comb(15,3)/comb(50,5)
END

実行結果
.324352451433858
.370688515924409
.127775208140611
組み込み関数combを使った場合
.324352451433858
.370688515924409
.127775208140611

>>114
使用言語：　maxima

(%i182) makelist(i,i,fix(sin(%pi)),fix(apply("^",reverse([2.0,10]))+cos(%pi)));
(%o182) [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38,
39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57,
58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76,
77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
96, 97, 98, 99]

>>114
使用言語：　十進BASIC

DEF f(n)=n*n-n/n
FOR i=z TO f(20-10)
PRINT i
NEXT I
END

>>114
使用言語：　Arc

arc> (apply range (map [-(* _ _)(/ _ _)] (list(expt 2 0) 10)))
(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82
83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99)

>>114
使用言語：　J

i. ,~ 20 - 10
0 1 2 3 4 5 6 7 8 9
10 11 12 13 14 15 16 17 18 19
20 21 22 23 24 25 26 27 28 29
30 31 32 33 34 35 36 37 38 39
40 41 42 43 44 45 46 47 48 49
50 51 52 53 54 55 56 57 58 59
60 61 62 63 64 65 66 67 68 69
70 71 72 73 74 75 76 77 78 79
80 81 82 83 84 85 86 87 88 89
90 91 92 93 94 95 96 97 98 99

>>114
使用言語：　Haskell

Prelude> init $ (\[a,b]->[a..b]) $ map(^2)[0,10]
[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,
29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,
55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,
81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99]

http://pc12.2ch.net/test/read.cgi/tech/1258320456/79
# Windows XP上で、
# まず 同じディレクトリにあるsetting.iniを読み込んで
# その1行目, 2行目, 3行目を
# 文字列p, regex, aftに格納する。
# pをパスとして調べ、
# 1.実在するディレクトリだったらそのディレクトリの名前とサブディレクトリの名前と、
# それらの中にあるファイルの名前、およびファイルの中身に以下の置換作業を実行する。
# > 前からみて順に正規表現regexにマッチする文字列を全てaftに置換する。
# 2.実在しないディレクトリでなかったらエラーメッセージを標準出力に出力する。

>>114
使用言語：　Scilab

-->a=2;[0:(10^a-a/a)]

>>125
% Prolog では正規表現は使わないので、その代わり以下のような述語を作っておく。

探索目標を真とする副文字列を置換文字列に置換(_文字列,_対象文字ならび,_探索目標,_置換文字列,X) :-
　　findall(S,探索目標を真とする副文字列を置換文字列に置換の一(_文字列,_対象文字ならび,_探索目標,_置換文字列,S),X).

探索目標を真とする副文字列を置換文字列に置換の一(_文字列,_対象文字ならび,_探索目標,_置換文字列,S) :-
　　atom_chars(_文字列,Chars),
　　探索目標を真とする文字ならびを得る(Chars,L1,_対象文字ならび,_探索目標,L3),
　　atom_chars(A1,L1),
　　atom_chars(A3,L3),
　　concat_atom([A1,_置換文字列,A3],S).

探索目標を真とする文字ならびを得る([],L1,L2,_探索目標,L3) :- !,fail.
探索目標を真とする文字ならびを得る(L,L1,L2,_探索目標,L3) :-
　　append(L1,L2,L3,L),
　　_探索目標.
探索目標を真とする文字ならびを得る(L,L1,L2,_探索目標,X) :-
　　変数指定項複写(_探索目標,_探索目標2,[L2],[L4]),
　　append(L11,L2,31,L),
　　_探索目標,
　　探索目標を真とする文字ならびを得る(L31,L1,L4,_探索目標2,X).

>>114
使用言語：　Io

Io> list(2-0,10)reduce(a,b,b**a)repeat(v, v println)

>>114
使用言語：　Io

Io> (20-10)squared repeat(v, v println)

>>127 (>>125) かなりの大間違い。訂正。
% Prolog では正規表現は使わないので、その代わり以下のような述語を作っておく。L1,L3が加わり、益々意味不明になってきた。

探索目標を真とする副文字列を置換文字列に置換(_文字列,L1,_対象文字ならび,L3,_探索目標,_置換文字列,X) :-
　　findall(S,探索目標を真とする副文字列を置換文字列に置換の一(_文字列,L1,_対象文字ならび,L3,_探索目標,_置換文字列,S),X).

探索目標を真とする副文字列を置換文字列に置換の一(_文字列,L1,_対象文字ならび,L3,_探索目標,_置換文字列,S) :-
　　atom_chars(_文字列,Chars),
　　探索目標を真とする文字ならびを得る(Chars,L1,_対象文字ならび,_探索目標,L3),
　　atom_chars(A1,L1),
　　atom_chars(A3,L3),
　　concat_atom([A1,_置換文字列,A3],S).

探索目標を真とする文字ならびを得る(L,L1,L2,_探索目標,L3) :-
　　append(L1,L2,L3,L),
　　_探索目標.

>>130 使い方の例。
% 行頭に「私は」を挿入。
?- 探索目標を真とする副文字列を置換文字列に置換(嘘を申しません,[],[],L3,true,私は,X).
L3 = _141192,
X = ['私は嘘を申しません']

% "d.f" を"aaa"に置換
?- 探索目標を真とする副文字列を置換文字列に置換(abcdefgdufz,_,[d,_,f],_,true,aaa,X).
_ = _141192,
_ = _141193,
_ = _141200,
X = [abcaaagdufz,abcdefgaaaz]

% "b"と"f"の間にありその中に"d"を2つ含む文字列をaaaに置換
?- 探索目標を真とする副文字列を置換文字列に置換(abcdefgdufz,_,L2,_,(append([b],LY,[f],L2),count(member(d,LY),2)),baaaf,X).
_ = _141192,
L2 = _141193,
_ = _141194,
LY = _141197,
X = [abaaafz]

>>131
Prologでは実際にこんな述語を呼び出して検索や置換を行うものですか？

>>132
一般にどうかはわからない。私の場合はcall/1を使って汎用述語を作ることは
絶対と言っていいほどしない。したがってここでは課題として書いてみたが、
>>130のような定義述語を利用することはない。少々煩わしくても、検索が必要に
なった時に一つ述語を定義する。
このスレでは、一度に書き込める行数に制限があるので、何度も使用された
述語を「汎用」のものとみなして定義なしに、呼び出している場合も多い。
これはやむを得ずそうしているのであって、それが模倣すべきプログラムスタイルだ
などと考えないでほしい。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/496
# [1] 授業単元： C++実習
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10313.txt
# 問題２
# 個々のオブジェクトにint型の識別番号を与える（全オブジェクトに異なる整数値を与える）ように以下のクラスを書き換えよ。
# また書き換えたクラスがテストできる適切なmain関数も作成せよ。
# class Account {
# string name; //口座名義
# string no; //口座番号
# long balance; //預金額
# Date open; //口座開設日
#
# public:
# Account(string n, string num, long z, Date op);
#
# void Deposit(long k); //預ける
# void Withdraw(long k); //おろす
# 　　　　string GetName() const { return name; } //口座名義を調べる
# string GetNo() const { return no; } //口座番号を調べる
# long CheckBalance() const { return balance; } //預金額を調べる
# 　　　　Date OpeningDate() const { return open; } //口座開設日を調べる
# }

http://pc12.2ch.net/test/read.cgi/tech/1235561034/679
# [授業単元] : Prolog
# 知恵を貸してください。
# 今宿題で嫉妬深い恋人たちの問題をやっていて
# 初期状態とゴール状態をそれぞれ
# initial_state(jealousy, jealousy(left,[1,2,3],[1,2,3],[ ],[ ])).
# final_state(jealousy(right,[ ],[ ],[1,2,3],[1,2,3])).
# と作って指し手の移動と状態変化についてはかけたのですが
# 状態変化したときの合法性のチェックでつまっています。
# legal(jealousy(right,[[1],[1,2]], [[2,3],[3]]) ×
# legal(jealousy(left,[[2,3],[2,3]], [[1],[1]]) 　○
# としたいのですがどうしたらいいのでしょうか？

http://pc12.2ch.net/test/read.cgi/tech/1260532772/536
# [1] 授業単元： C++
# [2] 問題文(含コード&リンク)：
# 　　課題1資料　http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10318.txt
# 　　課題1　　　　http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10319.txt
# 　　課題1応用　http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10320.txt
# 京都市の区ごとの人口（人）と面積（平方キロメートル）が記述されているデータ（http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10318.txt）がある。
# 区の名前，人口，面積のデータを格納しなさい。
# 人口についてソートした結果，面積についてソートした結果を出力する。
#
# 区の名前，人口，面積のてデータを格納し，格納したデータを調べて以下の情報を出力するプログラムを作成しなさい。
# 人口が最大の区と最小の区の、名前と人口。
# 面積が最大の区と最小の区の、名前と面積。
# 人口密度が最大の区と最小の区の、名前と人口密度。
# Kita 124306 94.92
# Kamigyo 83082 7.11
# Sakyo 168133 246.88
# Nakagyo 100145 7.38
# Higashiyama 41659 7.46
# Yamashina 136769 28.78
# Shimogyo 74897 6.82
# Minami 97877 15.78
# Ukyo 201819 291.95
# Nishikyo 155973 59.20
# Fushimi 284812 61.62

>>136
% Prolog
'京都市の区ごとの人口（人）と面積（平方キロメートル）が記述されているデータがある'('http://ime.nu/ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10318.txt').

区の名前，人口，面積のデータを格納する :-
　　'京都市の区ごとの人口（人）と面積（平方キロメートル）が記述されているデータがある'(_ウェブサイト),
　　get_split_lines(_ウェブサイト,[' '],Lines),
　　member([_区の名前,_人口,_面積],Lines),
　　assertz('京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積)),
　　fail.
区の名前，人口，面積のデータを格納する.

人口についてソートする(_整列されたデータならび) :-
　　findall([_人口,_区の名前,_人口,_面積],'京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積),L),
　　sort(L,L1),
　　降順に並べ直しながら鍵項目の削除する(L1,[],_整列されたデータならび).

面積についてソートする(_整列されたデータならび) :-
　　findall([_面積,_区の名前,_人口,_面積],'京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積),L),
　　sort(L,L1),
　　降順に並べ直しながら鍵項目の削除する(L1,[],_整列されたデータならび).

降順に並べ直しながら鍵項目を削除する([],X,X) :- !.
降順に並べ直しながら鍵項目を削除する([[_|L]|R],Y,X) :-
　　降順に並べ直しながら鍵項目を削除する(R,[L|Y],X).

>>137 (>>136) 改行してはいけないところで折り返してしまった。
% Prolog

'京都市の区ごとの人口（人）と面積（平方キロメートル）が記述されているデータがある'('http://ime.nu/ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10318.txt').

>>138
どうしても、ダメだね。勝手に改行が入ってしまう。"ある"の後の改行は
ないことにして下さい。

>>137 訂正
% Prolog Lines -> _区の名前・人口・面積ならび

区の名前，人口，面積のデータを格納する :-
　　'京都市の区ごとの人口（人）と面積（平方キロメートル）が記述されているデータがある'(_ウェブサイト),
　　get_split_lines(_ウェブサイト,[' '],_区の名前・人口・面積ならび),
　　member([_区の名前,_人口,_面積],_区の名前・人口・面積ならび),
　　assertz('京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積)),
　　fail.
区の名前，人口，面積のデータを格納する.

>>136
% Prolog

人口が最大の区と最小の区の、名前と人口(_人口が最大の区の名前,_人口が最大の区の人口,_人口が最小の区の名前,_人口が最小の区の人口) :-
　　findmax([_人口,_区の名前],京都市の区ごとの人口と面積のデータ(_区の名前,_人口,_),[_人口が最大の区の人口,_人口が最大の区の名前),
　　findmin([_人口,_区の名前],京都市の区ごとの人口と面積のデータ(_区の名前,_人口,_),[_人口が最小の区の人口,_人口が最小の区の名前).

面積が最大の区と最小の区の、名前と面積(_面積が最大の区の名前,_面積が最大の区の面積,_面積が最小の区の名前,_面積が最小の区の面積) :-
　　findmax([_面積,_区の名前],京都市の区ごとの人口と面積のデータ(_区の名前,_,_面積),[_面積が最大の区の面積,_面積が最大の区の名前),
　　findmin([_面積,_区の名前],京都市の区ごとの人口と面積のデータ(_区の名前,_,_面積),[_面積が最小の区の面積,_面積が最小の区の名前).

人口密度が最大の区と最小の区の、名前と人口密度(_人口密度が最大の区の名前,_人口密度が最大の区の人口密度,_人口密度が最小の区の名前,_人口密度が最小の区の人口密度) :-
　　findmax([_人口密度,_区の名前],(京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積),_人口密度 is _人口 / _面積),[_人口密度が最大の区の人口密度,_人口密度が最大の区の名前),
　　findmin([_人口密度,_区の名前],(京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積),_人口密度 is _人口 / _面積),[_人口密度が最小の区の人口密度,_人口密度が最小の区の名前).

>>141
ほとんどの場合これで済ませてしまいますが、本当は正しくない。
これだと、同一の人口、面積、人口密度が生じた時、名前の小さいまたは大きいもの
が採られてしまいます。正しい処理は、

人口が最大の区と最小の区の、名前と人口(_人口が最大の区の名前,_人口が最大の区の人口,_人口が最小の区の名前,_人口が最小の区の人口) :-
　　findmax(_人口,京都市の区ごとの人口と面積のデータ(_,_人口,_),_最大の人口),
　　findall([_区の名前,_最大の人口],京都市の区ごとの人口と面積のデータ(_区の名前,_最大の人口,_),L1),
　　findmin(_人口,京都市の区ごとの人口と面積のデータ(_,_人口,_),_最小の人口),
　　findall([_区の名前,_最小の人口],京都市の区ごとの人口と面積のデータ(_区の名前,_最小の人口,_),L2),
　　member([_人口が最大の区の名前,_人口が最大の区の人口],L1),
　　member([_人口が最小の区の名前,_人口が最小の区の人口],L2).

% なら、人口が同一の区があっても正しく解が得られます。

http://pc12.2ch.net/test/read.cgi/tech/1197620454/553
# (問題）
# 社員データを一元管理するためのサーバークライアントシステムを作れ
# 要求仕様）
# 管理するデータは社員番号、氏名、所属、入社年月日
# クライアントから追加、削除、修正が行えること
# 管理データはCSV形式で保存すること

http://pc12.2ch.net/test/read.cgi/tech/1260532772/557
# [1] 授業単元： 情報数学
# [2] 問題文(含コード&リンク)：
# オイラー級数を用いて、πの近似値を求めよ。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/545
# [1] 授業単元：基礎プログラミング実習
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.j
p/cgi-bin/joyful/img/10325.txt
# Step 3. 不偏分散を求める次の関数を定義する．
# float variance(float data[], int n) ．この関数は，data[]配列に入っている
# n個のデータの不偏分散を求め，関数値としてその不偏分散値を返す．
# なお，不偏分散の計算に必要な平均値は，関数average()を呼び出して求めること．

http://pc12.2ch.net/test/read.cgi/tech/1260532772/546
# [1] 授業単元： プログラミング応用
# [2] 問題文(含コード&リンク)：
# 任意の奇数n(nは15以下)を入力しn×nの魔方陣を出力する。
# そして、作成した魔方陣の縦、横、斜めの合計値も同時に出力せよ。
# ただし、１は必ず一番左の列の真ん中に置くこと。
# (例)
# n=3の時
# 　　　　　　　　　　１５
# 　　６　　７　　２　１５
# 　　１　　５　　９　１５
# 　　８　　３　　４　１５
# 　１５　１５　１５　１５

http://pc12.2ch.net/test/read.cgi/tech/1260532772/547
# [1] 授業単元： 情報数学
# [2] 問題文(含コード&リンク)：
#
# 問）同時整数関係を見つけるプログラムを考えなさい。
# 整数の解を求めるプログラムと、複素数の解を求めるプログラムを考え、
# 　それを組み合わせることで両方の解を同時に求め示すプログラムについて考えなさい。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/545
# [1] 授業単元：基礎プログラミング実習
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10325.txt
# 一問目
#
# Step 1. scanf()を用いてfloat型の値を入力し，それを順番にdata[]配列に格納する．
# このdata[]配列は関数の呼び出し側で宣言するものとし，宣言した配列の要素数(入力可能なデータの最大個数)をmaxとして関数を呼び出すものとする．
# また，この関数は，データ入力数が最大のmax個に達するか，負値が入力されるまでデータ入力を繰り返すものとする．

http://pc12.2ch.net/test/read.cgi/tech/1260532772/545
# [1] 授業単元：基礎プログラミング実習
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10325.txt
# Step 2. 平均値を求める次の関数を定義する. float average(float data[], int n)
# この関数は， data[]配列に入っているn個のデータの平均値を求め，関数値としてその平均値を返す．

http://pc12.2ch.net/test/read.cgi/tech/1248012902/692
# 【　課題　】キーワードからクロスワードを完成させる
# ttp://rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/867.zip
# 【　形態　】Javaアプリケーション(main()で開始
# <template>
#
# ■２□■■
# １■□□□
# □□□■■
# ４■□□■
# ■□□３□
#
# <縦のかぎワード>
# コオリ
# ニホンカミ
# モモ
#
# <横のかぎワード>
# ウニ
# オデン
# ホクロ
# アミモノ
# カモ

http://pc11.2ch.net/test/read.cgi/db/1252492296/381
# 弁護士の名前(name)とその人の所属法律事務所の名称(ofic)から成るテーブルがあるとして、
# 法律事務所は弁護士がひとりしかいないところから300人以上いるところまでさまざまなので、
# 「所属する弁護士の数が多い事務所トップ10」 の事務所名と人数を select一発で表示させるには
# どうすればいい？
#

>>151
% Prolog は集約は得意としない。その場でこの述語を考えるのは負担が大きいので、
% 以下のような準備が必要だろう。SQLのcount(*)を解決する処理だが。

集約_数_逆順ならび([],L,L) :- !.
集約_数_逆順ならび([A|R1],L1,L) :-
　　\+(member([_,A],L1)),
　　集約_数_計測(A,R1,L2,1,Count),
　　逆順整列([Count,A],L1,L3),
　　集約_数_逆順ならび(L2,L3,L),!.

集約_数_計測(_,[],[],Count,Count) :- !.
集約_数_計測(A,[A|R1],L2,Count1,Count) :-
　　Count2 is Count1 + 1,
　　集約_数_計測(A,R1,L2,Count2,Count),!.
集約_数_計測(A,[B|R1],[B|R2],Count1,Count) :-
　　\+(A = B),
　　集約_数_計測(A,R1,R2,Count1,Count),!.

逆順整列(L,[],[L]) :- !.
逆順整列(L,[L1|R1],[L,L1|R1]) :-
　　L @>= L1,!.
逆順整列(L,[L1|R1],[L1|R2]) :-
　　逆順整列(L,R1,R2).

>>151
使用言語：J
ofic=:;:'b a b b a a c d g h c x r t a d c g j u y w q'
]ofic=:ofic,;:'g v c f g v a d e x n u y t y r t a s w'
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
|b|a|b|b|a|a|c|d|g|h|c|x|r|t|a|d|c|g|j|u|y|w|q|g|v|c|f|g|v|a|d|e|x|n|u|y|t|y|r|t|a|s|w|
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
10{.\:~(~.,.~<@#/.~)ofic
+-+-+
|6|a|
+-+-+
|4|g|
+-+-+
|4|c|
+-+-+
|3|y|
+-+-+
|3|t|
+-+-+
|3|d|
+-+-+
|3|b|
+-+-+
|2|x|
+-+-+
|2|w|
+-+-+
|2|v|
+-+-+

>>152 (>>151)
% Prolog 逆順ではなかった。降順だね。

集約_数_降順ならび([],L,L) :- !.
集約_数_降順ならび([A|R1],L1,L) :-
　　\+(member([_,A],L1)),
　　集約_数_計測(A,R1,L2,1,Count),
　　降順整列([Count,A],L1,L3),
　　集約_数_降順ならび(L2,L3,L),!.

集約_数_計測(_,[],[],Count,Count) :- !.
集約_数_計測(A,[A|R1],L2,Count1,Count) :-
　　Count2 is Count1 + 1,
　　集約_数_計測(A,R1,L2,Count2,Count),!.
集約_数_計測(A,[B|R1],[B|R2],Count1,Count) :-
　　\+(A = B),
　　集約_数_計測(A,R1,R2,Count1,Count),!.

降順整列(L,[],[L]) :- !.
降順整列(L,[L1|R1],[L,L1|R1]) :-
　　L @>= L1,!.
降順整列(L,[L1|R1],[L1|R2]) :-
　　降順整列(L,R1,R2).

>>151
% Prolog

所属する弁護士の数が多い事務所トップ10(L) :-
　　findall(_所属法律事務所,弁護士所属(_弁護士の名前,_所属法律事務所),L1),
　　集約_数_降順ならび(L1,[],L2),
　　length(L,10),
　　append(L,_,L2).

>>147
同時整数関係 -> 同次整数関係

であるとの訂正が出題スレに載っていました。

>>151
使用言語：Io

Io> ofic:="b a b b a a c d g h c x r t a d c g j u y w q"
Io> ofic=ofic .. "g v c f g v a d e x n u y t y r t a s w"
Io> ofic=ofic split

Io> ofic uniqueCount sortBy(block(x,y,x at(1)>y at(1)))slice(0,10)
==> list(list("a", 6), list("c", 4), list("b", 3), list("d", 3), list("g", 3),
list("y", 3), list("t", 3), list("v", 2), list("r", 2), list("w", 2))

>>109
% Prolog 出題から離れますが、2次元のリストの指定された列を取り出すユーティリティは

全ての行に対して位置指定により列を選択する(_,[],[]) :- !.
全ての行に対して位置指定により列を選択する(_選択する列位置ならび,[_行|R1],[L|R2
]) :-
　　列の選択(_選択する列位置ならび,_行,L),
　　全ての行に対して位置指定により列を選択する(_選択する列位置ならび,R1,R2).

列の選択([],_,[]) :- !.
列の選択([_列位置|R1],_行,[A|R2]) :-
　　integer(_列位置),
　　list_nth(_列位置,_行,A),
　　列の選択(R1,_行,R2),!.
列の選択([A|R1],_行,R2) :-
　　\+(integer(A)),
　　B は A,
　　integer(B),
　　列の選択([B|R1],_行,R2),!.
列の選択([A|R1],_行,[B|R2]) :-
　　\+(integer(A)),
　　B は A,
　　\+(integer(B)),
　　列の選択(R1,_行,R2),!.

>>158
list_nthは使わないで、第一引数を先にソートしてからやった方がいいと思う。

>>159
列の選択の第二・三節で変な事をやっているので、ソートできないw

そういうことか。それにしても危なっかしい仕様だな。

>>12
使用言語：Scala

scala> def f1(n:Int):Int={var r=0;var a=n;while(a>0){r=10*r+a%10;a/=10};r}
f1: (Int)Int

scala> f1(987654321)
res72: Int = 123456789

scala> def f2(n:Int):Int={n.toString.reverse.toInt}
f2: (Int)Int

scala> f2(987654321)
res73: Int = 123456789

>>144
使用言語：J

%:6*+/%2^~>:i.1000000
3.14159

>>144
使用言語：Io

Io> r:=0;for(i,1,1000000,r=r+1/(i*i));(r*6)sqrt
==> 3.1415916986605086

>>159
>>160 のような呑気なレスをつけてしまったが、取り出す順序が勝手に変わって
しまっては、後でmember/2などで取り出す時どうすればいいのかな？

http://pc11.2ch.net/test/read.cgi/db/1252492296/377
#
# Aテーブル
# aaa|ddd
#
# Bテーブル
# aaa|bbb
#
# Cテーブル
# bbb|ccc
#
# Aテーブルに対して、カラムaaaでBテーブルが紐づき、
# Bテーブルに対して、カラムbbbでCテーブルが紐づくとします。
# （つまり、Aテーブルのレコード1件は、Bテーブルを経由してCテーブルのレコード1件と紐づく）
# ここで、A.ddd = 'X'のとき、C.ccc = 'Y'に更新したいのですが
# 下記の文であってますでしょうか？
# また、もっと効率のいい方法はありますでしょうか？
#
# update C set C.ccc = 'Y' where C.bbb in
# ( select B.bbb from B where B.aaa in
#　　( select A.aaa from A where A.ddd = 'X')
#　　( select A.aaa from A where A.ddd = 'X')
# )

>>166
% Prolog

?- 'A'(A,'X'),'B'(A,B),(retract('C'(B,_)),fail;assertz('C'(B,'Y'))).

>>167 (>>166)
% prolog (retract('C'(B,_)),fail;assertz('C'(B,'Y'))) の部分を

update(P,Q) :-
　　functor(P,F,A),
　　functor(Q,F,A),
　　( retract(P),fail;assertz(Q)).

が定義されているとして、

?- 'A'(A,'X'),'B'(A,B),update('C'(B,_),'C'(B,'Y')).

http://pc12.2ch.net/test/read.cgi/tech/1248012902/695
# http://ime.nu/www1.axfc.net/uploader/Img/so/69253.jpg
# http://ime.nu/www1.axfc.net/uploader/Img/so/69254jpg
# 問題
# 次の画面のように、サーバとクライアントでの間で文字列を送り合う
# プログラムを作れ(サーバとクライアント両方とも)
#
# 【クライアント】　　　　　　【サーバ】
# サーバのアドレスは　　　　　ポートは
# 202.48.53.27　　　　　　　　12345
# ポートは　　　　　　　　　　名前は
# 12345　　　　　　　　　　　 syou
# 名前は　　　　　　　　　　　aikawa>Hello
# aikawa　　　　　　　　　　　syou>Hello
# aikawa>Hello
# syou>Hello
# aikawa>
#
# ただし、以下の条件を満たすようにすること
# クライアントでquitが入力された場合、クライアントは接続を切りプログラムを
# 終了し、サーバは接続が切れたら、次のクライアントの接続を待つ。
# サーバでquitが入力された場合、サーバは接続を切り、次のクライアントの
# 接続を待ち、クライアントは接続が切られたらプログラムを終了する
# エンターキーのみが入力された場合は、文字列を送らずもう一度文字列を
# 入力させて、その文字列を送るようにする

>>144
使用言語：Scilab

-->sqrt(6*sum(1.0 ./((1:1000000)^2)))
ans =

3.1415917

>>144
使用言語：Haskell

Prelude> sqrt $ 6*(sum[1/(x*x)|x<-[1..1000000]])
*** Exception: stack overflow

Prelude> sqrt $ 6*(sum[1/(x*x)|x<-[1..500000]])
3.141590743731832

>>151
使用言語：R

> ofic <- "b a b b a a c d g h c x r t a d c g j u y w q"
> ofic <- paste(ofic,"g v c f g v a d e x n u y t y r t a s w")
> ofic <- unlist(strsplit(ofic," "))

> head(sort(table(ofic),T),10)
ofic
a c g b d t y r u v
6 4 4 3 3 3 3 2 2 2

>>116
% Prolog データ入力部分は省略

カードの合計が一致するまででたらめにN回以内交換する(0,_,_,_,_,[]) :- !,fail.
カードの合計が一致するまででたらめにN回以内交換する(N,AL,BL,AL,BL,[]) :-
　　加算(AL,Sum1),
　　加算(BL,Sum2),
　　Sum1 = Sum2.
カードの合計が一致するまででたらめにN回以内交換する(N,AL,BL,X,Y,[[A,B,AL,BL]|Z]) :-
　　RA is (random mod 3) + 1,
　　RB is (random mod 3) + 1,
　　ならびの回転(左方向,RA,AL,[A|R1]),
　　ならびの回転(左方向,RB,BL,[B|R2]),
　　N1 is N - 1,
　　カードの合計が一致するまででたらめにN回以内交換する(N1,[B|R1],[A|R2],X,Y,Z).

http://pc12.2ch.net/test/read.cgi/tech/1260532772/572
# [1] 授業単元： 5元：プログラミング演習III
# 問題（５）
# 実行するとカラーダイヤログを表示し、選択したカラーをクリップボードに
# 送る処理を記述せよ

>>174
使用言語：なでしこ

「#{HEX(色選択)}」をコピー

>>174
使用言語：J

wd 'clipcopy "',(":3{.". wd 'mbcolor'),'"'

http://pc12.2ch.net/test/read.cgi/tech/1260532772/575
# [1]C言語入門
# [2]2つの複素数の和と積を計算して表示するプログラムを作成せよ。
# 構造体complexを定義し、和の複素数を返すadd関数、積の複素数を返すmul関数、複素数を表示するprint関数をそれぞれ作成し
# mainでは2つの複素数をキーボードから読み込み、関数を呼ぶ。
# 虚数部にはiを付加せよ。

http://pc11.2ch.net/test/read.cgi/db/1252492296/393
# SELECT文について質問です。
# テストデータ
# 名前 |1回目点数|2回目点数|
# ----+--------+--------|
# 田中 | 100　　　　| 90　　　 　|
# 鈴木 | 80　　 　　 | 80　　　 　|
#
# 成績マスタ
# 成績 | 点数 |
# ----+-------|
# A　　　|　100　 　|
# B　　　|　 90　　　|
# C　　　|　 80　　　|
# ・欲しい結果
# 名前 |成績（1回目）|成績（2回目）|
# ----+---------+---------|
# 田中 | A　　　　　| B　　　　　|
# 鈴木 | C　　　　　| C　　　　　|
# ・説明 2TABLEを連結してSELECTしたいのですが、テストデータの点数を
# 下に、成績マスタから（1回目）と（2回目）の値をひっぱってくるには
# どう書けばよいでしょうか。

>>178
% Prolog 引数を順に処理する場合、それぞれ副目標を明示的に立てる。

テストデータ(田中,100,90).
テストデータ(鈴木,80,80).

成績マスタ('A',100).
成績マスタ('B',90).
成績マスタ('C',80).

欲しい結果(_欲しい結果) :-
　　findall([_氏名,_一回目成績,_二回目成績],欲しい結果(_氏名,_一回目成績,_二回目成績),_欲しい結果).

欲しい結果(_氏名,_一回目成績,_二回目成績) :-
　　テストデータ(_氏名,_一回目点数,_二回目点数),
　　成績マスタ(_一回目成績,_一回目点数),
　　成績マスタ(_二回目成績,_二回目点数).

>>178
% Prolog 元スレでhttp://pc11.2ch.net/test/read.cgi/db/1252492296/393の
% 成績マスタは以下のような範囲型にしたかったのではないか、との指摘があった。

テストデータ(田中,100,90).
テストデータ(鈴木,80,80).

成績マスタ('A',91,100).
成績マスタ('B',81,90).
成績マスタ('C',71,80).

欲しい結果(_欲しい結果) :-
　　findall([_氏名,_一回目成績,_二回目成績],欲しい結果(_氏名,_一回目成績,_二回
目成績),_欲しい結果).

欲しい結果(_氏名,_一回目成績,_二回目成績) :-
　　テストデータ(_氏名,_一回目点数,_二回目点数),
　　成績マスタ(_一回目成績,_点数下限1,_点数上限1),
　　_一回目成績 >= _点数下限1,
　　_一回目成績 =< _点数上限1,
　　成績マスタ(_二回目成績,_点数下限2,_点数上限2),
　　_二回目成績 >= _点数下限2,
　　_二回目成績 =< _点数上限2.

>>180 (>>178)
% Prolog このような場合、RDBからは遠くなるが、

テストデータ(田中,100,90).
テストデータ(鈴木,80,80).

成績マスタ('A',_点数) :- _点数 >= 91,_点数 =< 100.
成績マスタ('B',_点数) :- _点数 >= 81,_点数 =< 90.
成績マスタ('C',_点数) :- _点数 >= 71,_点数 =< 80.

欲しい結果(_欲しい結果) :-
　　findall([_氏名,_一回目成績,_二回目成績],欲しい結果(_氏名,_一回目成績,_二回目成績),_欲しい結果).

欲しい結果(_氏名,_一回目成績,_二回目成績) :-
　　テストデータ(_氏名,_一回目点数,_二回目点数),
　　成績マスタ(_一回目成績,_一回目点数),
　　成績マスタ(_二回目成績,_二回目点数).

% の方がPrologの特性を生かしたコードといえるだろう。

>>177
使用言語：J

add=:dyad def 'x+y'
mul=:dyad def '(-/x*y),+/y*|.x'
print=:monad def 'smoutput (":y),''i'' '

a=: 1 2
b=: 3 4

print a add b
4 6i
print a mul b
_5 10i

NB.標準サポートの複素数の場合
datatype 1j2
complex
1j2 + 3j4
4j6
1j2 * 3j4
_5j10

http://pc12.2ch.net/test/read.cgi/tech/1260532772/582
# 【質問テンプレ】
# [1] 授業単元：セミナー
# [2] 問題文(含コード&リンク)：∫(x=0,4)∫(y=0,3)∫(x=0,2) 4*x^3 + x*y^2 + 5*y + y*z + 6*z dz dy dx
# 　を解くプログラムを書け

>>183
使用言語：maxima

(%i1) integrate(integrate(integrate(4*x^3+x*y^2+5*y+y*z+6*z,z,0,2),y,0,3),x,0,4);
(%o1) 2040

x= が２回出てきますが、２回目のx= は勝手にz= と解釈しました。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/588
# [1] 授業単元： 情報プログラム
#
# [2] 問題文(含コード&リンク)：
# 　　次の関数の積分を、台形公式を使って求めたい。
# 　　ただし、積分区間は(0,2）きざみ幅はh=0.01とする。
# 　　f(x)=(4-x2)1/2
#
# 　※台形公式は積分区間を(a,b)とすると n=(b-a)/h
# S=h*{1/2(f(a))+f(b))+f(a+h)+f(a+2h)+…+f(a+(n-1)h}となる。
#

http://pc12.2ch.net/test/read.cgi/tech/1260532772/604
# [1] 授業単元： 演習チャレンジ問題
# [2] 問題文(含コード&リンク)：
# あるint型配列array[256]の中身をランダムシャッフルしたい。
# 0〜127の範囲の値を被らずに出す乱数関数randEx(Seed, i)を作成せよ。(iは0〜127)
# ※Seedを変えることにより、異なるパターンのランダム列が出るようにする。
# ※array[i]とarray[128+randEx(Seed, i)]をスワップすることで並列計算において一気にシャッフルするのが目的です。
# ※「スワップするかしないか」の部分は別なので考えなくて良いです。

http://pc11.2ch.net/test/read.cgi/db/1252492296/397
# 基本的なことで申し訳ないんですけど、
# あるテーブルから特定のデータが1件でも存在するかどうかの判断をしたいのですが 、
# COUNT()はテーブル内の全部のレコードを検索してしまうので、もっと高速でスマー トな方法は無いか存じないでしょうか。
#

>>187
% Prolog (!)に意味があります。

あるテーブルから特定のデータが1件でも存在するかどうかの判断する(Q) :- call(Q),!.

>>187
% Prolog テーブル名,引数ならびとして与えられたら、

あるテーブルから特定のデータが1件でも存在するかどうかの判断する(_テーブル名,_引数ならび) :-
　　Q =.. [_テーブル名|_引数ならび],
　　call(Q),!.

>>187
% Prolog >>189は単位節データベースの自然なコードだが、条件が付加されていて、
% そこに副作用を生じる目標が記述されている懸念がある場合は、clause/2を使う。

あるテーブルから特定のデータが1件でも存在するかどうかの判断する(_テーブル名,_引数ならび) :-
　　Q =.. [_テーブル名|_引数ならび],
　　clause(Q,_),!.

>>187
% Prolog >>190にさらに条件を付加したい場合は、_条件として引数の条件、あるいは
% 引数と引数の関係を記述します。

あるテーブルから特定のデータが1件でも存在するかどうかの判断する(_テーブル名,_引数ならび,_条件) :-
　　Q =.. [_テーブル名|_引数ならび],
　　clause(Q,_),
　　call(_条件),!.

http://pc12.2ch.net/test/read.cgi/tech/1260532772/606
# プログラミングの問題なんですが、if文と繰り返し（for,whileのいずれか）を利用して次の問題を作成します。
#
# 米ドル紙幣としては次のような紙幣とコインがある。
# 100ドル、50ドル、20ドル、10ドル、5ドル、2ドル、1ドル
# 50セント、25セント、10セント、5セント、1セント
#
# 問題は、キーボードから日本円を入力し、まずドルに変換した後ドルを最適な紙幣とコインに振り分けるプログラムを作成しなさい。但し1ドルを92.69円として換算しなさい。そして、日本円が0円の時にプログラムを終了する。

>>186
使用言語：J

randEx=:dyad def 'y{?~128[(9!:1)x'
123 randEx 0
126
123 randEx 1
57
8 16 $ 123 randEx i.128
126 57 86 113 124 79 46 115 67 27 101 54 70 4 30 5
62 98 31 121 11 9 119 50 75 89 71 117 68 74 108 81
22 47 34 102 55 3 48 105 96 122 52 110 85 88 14 58
116 84 1 82 118 20 39 44 19 41 28 93 16 78 92 87
17 104 6 123 109 23 40 100 91 73 24 111 106 38 80 94
83 56 60 33 42 15 66 13 72 64 32 8 103 77 29 112
18 76 25 10 125 127 65 51 37 43 97 0 35 36 120 45
2 90 26 12 99 114 21 63 7 95 59 69 61 107 49 53
321 randEx 0
116
321 randEx 1
46
8 16 $ 321 randEx i.128
116 46 112 67 45 53 9 7 106 114 82 3 20 86 77 110
113 42 1 29 117 18 93 58 38 52 90 15 79 97 25 50
99 49 27 51 126 89 111 16 115 119 4 39 19 76 54 118
0 108 65 125 47 55 63 14 88 103 73 48 30 23 59 87
5 33 101 36 91 12 22 95 24 43 74 37 69 26 28 57
68 94 11 32 122 92 100 66 104 34 123 17 75 13 40 2
60 56 70 98 64 62 84 80 109 35 85 121 105 61 102 44
8 71 96 124 107 41 83 21 127 10 120 78 6 31 72 81

http://pc12.2ch.net/test/read.cgi/tech/1260532772/620
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)：掃き出し法。
# 　　0,1のみを成分にもつｎ次正方行列Aが２重リストとしてある。Aにmod2の行基本変形を施して、階段行列に変形するプログラム

>>183
使用言語：Yacas

In> Integrate(x,0,4)Integrate(y,0,3)Integrate(z,0,2)4*x^3+x*y^2+5*y+y*z+6*z
Out> 2040

>>183
使用言語：Axiom

(8) -> integrate(integrate(integrate(4*x^3+x*y^2+5*y+y*z+6*z,z=0..2),y=0..3),x=0..4)

(8) 2040

>>192
使用言語：J

a=:10000 50000 20000 1000 500 200 100 50 25 10 5 1
b=:<;._1' 100$ 50$ 20$ 10$ 5$ 2$ 1$ 50C 25C 10C 5C 1C'
f=:}:@;@(((}:@>@{.,(0,{.@>@}.)#:{:@>@{.);}.@>@{:)^:(#@>@}.))
g=:3 :'((b#~*),.;/@-.&0)f a;~<.y%0.9269'

g 1980
+---+-+
|10$|2|
+---+-+
|1$ |1|
+---+-+
|25C|1|
+---+-+
|10C|1|
+---+-+
|1C |1|
+---+-+

>>197
テーブルのデータ間違えました。訂正します。

> a=:10000 50000 20000 1000 500 200 100 50 25 10 5 1

a=:10000 5000 2000 1000 500 200 100 50 25 10 5 1

>>171
foldl' 使えば

Prelude> :m +Data.List
Prelude Data.List> sqrt $ 6*(foldl' (+) 0 [1/(x*x)|x<-[1..1000000]])
3.14159169866051

>>199

foldl' というは知らなかったので、調べてみたら、

第9回　Haskellはなぜ遅いと思われているのか - 本物のプログラマはHaskellを使う：ITpro
http://itpro.nikkeibp.co.jp/article/COLUMN/20070403/267180/?ST=develop&P=1

に sum でスタックオーバーフローする例がのっていました。
正直、まだよくわかっていません。
どうして sum の定義にこの foldl' の方を使わないのかな。
なんか他に問題がでてくるのかな。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/633
# [1]授業単元：プログラミング２
# [2]問題文：２つの最大５０桁の実数を入力し、その和・差・積を求めるプログラム

http://pc12.2ch.net/test/read.cgi/tech/1260532772/636
# [1] 授業単元：数値計算
# [2] 問題文(含コード&リンク)：　http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10342.txt
#
# ３元連立非線形方程式
#
# x_1^2 + x_2^2 + x_3^2 - 4 = 0
# x_1^2 - 2x_1 + x_2^2 + x_3 - 2 = 0
# x_1^2 + sin^2x_2 + x_3^2 - 3 = 0
#
# を解くNewton法のC++のプログラムをつくり、領域 0 < x_1,x_2,x_3 < 2　にある解を求めよ
# ただし、Jacobianの計算に必要となる偏導関数は数値微分により計算し、連立１次方程式の解法には
# Gaussの消去法あるいはLU分解法を用いること

http://pc12.2ch.net/test/read.cgi/tech/1260532772/637
# [1] 授業単元：コンピュターグラフィック
# [2] 問題文(含コード&リンク)：
# 1次元配列を2次元配列に・2次元配列を1次元配列に変換する二つのモジュール
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10343.txt
#
# int Conv_1Dto2D(unsigned char *src, unsigned char dest[][X_SIZE])
# /*機能 : src を dest に格納する。戻り値は格納した要素数
# src: ソースとなる 1 次元配列
# dest: 格納先となる 2 次元配列
# */
#
# int Conv_2Dto1D(unsigned char src[][X_SIZE], unsigned char *dest)
# /*機能 : src を dest に格納する。戻り値は格納した要素数
# src: ソースとなる 2 次元配列
# dest: 格納先となる 1 次元配列
# */

http://pc12.2ch.net/test/read.cgi/tech/1260532772/639
# [1] アルゴリズム
#
# [2] 自然数の数列を入力し
# 数列内にあるｎよりも大きい数と小さい数が
# nの前後にそれぞれ一つ以上ある場合、そのnを出力する。
#
# フローチャートは以下です。
#
# 　　　　順数列の入力
# 　　　　↓　　　　　　↓
# 数列数が５以上　４以下→終了(4以下のときどれも除外できないので)
# 　　　　↓
# 数列の中で最大最小の値と
# 最初と最後に入力した値は除外できる。
# 　　　　↓
# 残りの数値に前後に大小の値が一つ以上あれば除外
# 　　　　↓
# 残った値を表示して終了

http://pc12.2ch.net/test/read.cgi/tech/1260532772/644
# [1]授業単元：プログラミング２
# [2]問題文：次のような10×10の半角文字+を碁盤の目として、一対コンピュータで五目並べ
# 　　　　　をするプログラムを作成せよ。碁石を表す文字は、半角の@,0を用いよ。
#
# 　　　abcdefghij
# a++++++++++
# b++++++++++
# c+++++@++++
# d++++++0+++
# e++++++++++
# f++++++++++
# g++++++++++
# h++++++++++
# i++++++++++
# j++++++++++
# @の場所は、cf , 0の場所は、dg とあらわす
#
# ・人とコンピュータのどちらかが先手になるか選択できる
# ・先手の33を禁止する
# ・勝敗の判定ができる。（置く場所がなくなったら引き分けとする）
# ・コンピュータは人が3と4を作った場合、それを止める場所におく
# ・すでに石がおいてある場所に人が石を置こうとした場合、再入力を促す。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/645
# [1] 授業単元：プログラミング実習a
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10346.txt
#
# 実行例のとおりに，自分で五つの問題文を入力して練習するタイピング練習ソフトを
# 作成せよ．ただし，問題文は入力した五つの中から10題がランダムに出題されるものと
# し，最後に正解数を表示すること．
#
# 実行例 (下線部はユーザーの入力)
#
# 20文字までの問題文を五つ入れてください
#
# 1つ目の問題文：abcdefghijkl
#
# 2つ目の問題文：January
#
# 3つ目の問題文：xxyyzz0368GST
#
# 4つ目の問題文：MondayFriday
#
# 5つ目の問題文：qwerty.uiop,RTYU

http://pc12.2ch.net/test/read.cgi/tech/1260532772/640
# [1] 授業単元：Cプログラミング
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10344.txt
# 　　2つの名前を入力してステータス（ランダム）を決定し　途中経過を表示し
# 　　　　　　　　　　　　　　攻撃が当たった時は文字色を変える
#
# 24行程度に纏められないため、問題文のリンクを直接参照してください

http://pc12.2ch.net/test/read.cgi/tech/1260532772/642
# [1] 初級C言語実習
# [2] 次の関数copyStringを同じ動作をするように書き換えよ。ただし変数の追加、削除（未使用を含む）
# if文(三項演算子を含む）while,do while,for文 goto文を使用してはならない。
# char *copyString(char *s){
# char *p=s,*t=s,tmp;
# if(s==NULL)return NULL;
# while(*p++); p--;while(!*p)p--;
# while(p>s){tmp=*p;*p--=*s;*s++=tmp;}
# return t;
# }

http://pc12.2ch.net/test/read.cgi/tech/1260532772/659
# [1] 授業単元： オペレーティングシステム
# [2] 問題文(含コード&リンク)：
# fork,exec*システムコールを用いて簡単なコマンドインタープリタ
# (mysh)を作成せよ。但し、作成するコマンドインタープリタは以下の
# 機能をサポートすること。
# ・設定ファイル(.path)にコマンドサーチパスを指定することが出来る。
# なお、ファイル内のパスの指定方法は、各自が考え定義すること。
# （パスにないコマンドを入力した場合には、見つからない旨のエラー
# メッセージを出力すること。）
# ・パイプを利用して複数（可変個）のコマンドの入出力を結合する
# ことができる。
# ・リダイレクションを使用してコマンドへの入力をファイルから得たり、
# ファイルへ出力したりすることができる
# ・コマンド実行中にCtrl-Cを入力すると、現在のコマンドの実行を
# 中断する
# ・exitを入力すると、myshを終了する。
#

http://pc12.2ch.net/test/read.cgi/tech/1260532772/676
# [1] 授業単元：データ構造とアルゴリズム
# [2] 問題文(含コード&リンク)：http://prolog.asia/img/shinryoshitsu.pdf
#

http://pc12.2ch.net/test/read.cgi/tech/1260532772/678
# [1] 授業単元： 基礎プログラミングおよび演習
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10352.txt
#
# あるWebページに対する24時間分の閲覧者の名前、閲覧開始時刻および閲覧継続時間を表す「閲覧データ」があるとしよう。
# 1名以上の閲覧データから、閲覧している人数がもっとも多い30分刻みでの時間帯を求め、そのときの閲覧者名を印字する
# プログラムを作成せよ。状況によっては日をまたぐこともあるが、ここではどの時間帯に閲覧が多いのかを知りたいので
# 日の違いは考えなくてよい。各閲覧データは標準入力から、
#
# 閲覧者名
# 閲覧開始時刻 閲覧継続時間
#
# の2行で与えられる。ここで閲覧者名は英小文字2文字の後に4桁の数字が続く。閲覧開始時刻は24時間制での時を100倍し、
# 分を加えた数を表す4桁の数字、閲覧継続時間は分を表す高々3桁の数字である。時刻および時間は30分刻み(つまり0分か30分)
# である。たとえば、
#
# ku7535
# 0130 60
#
# は、名前がku7535、開始時刻が1時30分、継続時間が60分、つまり1時30分から2時30分直前まで閲覧していたことを表す。
# 　まず閲覧データに対する構造体 user を定義し、それを要素とする大きさNの大域的な配列 users を用意せよ(Nはマクロ
# である)。次に、N人分のデータを読み込むか、閲覧者名としてアスタリスク(*)が与えられるまで、標準入力から閲覧データを
# 読み込み、配列 users にセットするとともに閲覧データを返す関数 int read_users(void) を作成せよ。最後に配列 users の
# 先頭からn個の閲覧データを対象に、24時間中で最大人数が閲覧している30分刻みでの時間帯と、そのときの閲覧者名を印字
# する関数 void print_prime_time(int n) を定義せよ。ただし最大閲覧者数となる時間帯は一般に複数あることに注意すること。
# さらに以下のmain関数と組み合わせてプログラムを作成せよ。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/685
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：2つの名前を入力しステータス（ランダム）を決定し 勝敗表示する。
#

http://pc12.2ch.net/test/read.cgi/tech/1260532772/703
# [1] 授業単元： C
# [2] 問題文(含コード&リンク)：
# 　　100以下の素数をすべて出力するプログラムを作りたい。
# 自然数xに対して2以上で√x以下の素数で割り切れない数が素数である。ただし１は素数でも合成数でもない。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/710
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： 数値には初期値が与えられている。
# 　　　　　　　　　　　　　　　この配列を昇順に並べ替えるプログラムを作成しなさい。
#
# 表示結果：　数値[00]=80
# 数値[01]=40
# 数値[02]=23
# 数値[03]=69
# 数値[04]=10
#
# 　ソート後
# 数値[01]=10
# 数値[02]=23
# 数値[03]=40
# 数値[04]=69
# 数値[03]=80

http://pc12.2ch.net/test/read.cgi/tech/1260532772/714
# 1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10353.txt
#
# 連立1次方程式の一般的な数値解法にはGaussの単純消去法がある。
# この方法についてアルゴリズムを調べ下記の連立1次方程式を例に解法手順をC言語で表示せよ。
#
# 方程式
# x1 + 5x2 + x3 =2
# 3x1 + 4x2 = 2
# 9x1 + 10x2 +4x3 = 8

http://pc12.2ch.net/test/read.cgi/tech/1260532772/715
# [1] 授業単元：プログラミング実習
# [2] 問題文(含コード&リンク)：
# 文字列text[]と文字列pat[]が与えられたとき、文字列text中に文字列patが含まれるときは最初に現れるその文字列の先頭の位置（0〜）を返し、含まれないときは-1を返す関数searchを作成せよ。
# また、その関数を用いて、2つの文字列text[]とpat[]（空白は含まない）を入力すると関数searchの値を返すプログラムを作成せよ。ここでtextとpatには長さ1以上の文字列が入っているものとする。
# （例：text[]="thisisatesttextdata"の中に、pat[]="this"は0の位置に、pat[]="test"は7の位置に現れる。）
#

http://pc12.2ch.net/test/read.cgi/tech/1260532772/718
# [1] 授業単元： C言語演習
# [2] 問題文(含コード&リンク)： 再帰を使って自然対数の底eを求めるプログラムを作成しなさい
# 下記のようにnを0から30まで増加させながら
# n=0のときe=1/0!　n=30のときe=1/0!+1/1!+1/2!+1/3!+……1/30!　の計算を行い下 のように表示しなさい
#
# n=0:e=1.000000000000000
# n=1:e=2.000000000000000
# ・
# ・
# n=30:e=2.718281828459046
#

http://pc12.2ch.net/test/read.cgi/tech/1260532772/722
# [1]授業単元：プログラミング２
# [2]問題文：以下の機能を備えた対コンピュータの五目並べを作成せよ
# 　・置く場所を縦と横の数字で指定する
# ・人とコンピュータのどちらかが先手になるか選択できる
# ・先手の３３を禁じる
# ・勝敗の判定ができる（置く場所がなくなったら引き分け）
# ・コンピュータは人が３と４を作った場合、それを止める場所に石を置く
# ・すでに石がおいてある場所に人が石を置こうとした場合、再入力を促す

http://pc12.2ch.net/test/read.cgi/tech/1248012902/705
# 【　課題　】自然言語処理、構文解析のCYK法のプログラム
# 【　形態　】1. Javaアプリケーション(main()で開始)
# 【　期限　】2010/01/18
# 【　Ver　 】java version "1.6.0_17"
# 【　用語　】CYK法　 http://ime.nu/ja.wikipedia.org/wiki/CKY%E6%B3%95

http://pc12.2ch.net/test/read.cgi/tech/1024024666/548
# このスレにあった10行囲碁ソースを元に作ってみようかな。
# 展開して調べたら、あれに入ってる評価関数は
#
# 石数に比例するもの
# ・石が取れる
# ・アタリにいける
# ・囲いにいける
# ・隣接させる

http://pc12.2ch.net/test/read.cgi/tech/1260532772/739
# [1] 授業単元： プログラミング
# [2]問題文：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyf0355.txt
# ★演習問題1*
# 次の仕様に従って，生徒の科目得点から平均点と評価を求め，出力フォームのように両面表示するプログラムを作成せよ
# (仕様)
# (a)プログラムに組み込むデータについては，構造体の初期値として与え，
# メンバは，生徒番号，各科目点数，平均点，評価で，次のとおりとすること。
# (b)処理手順は，次のとおりとすること，
# 生徒番号　国語　数学　理科　社会
# 1001　　　　85　　74　　63　　90
# 1002　　　　78　　65　　70　　62
# 1003　　　　89　　92　　88　　76
# 1004　　　　32　　48　　66　　25
# 1005　　　　92　　76　　81　　98
# 各人の４科目の平均点を求め，構造体に格納すること
# 各人の評価を求め，構造体に格納すること，尚，４段階の評価基準は，次のとおとすること
# 平均点　　　　　　　評価
# 80点以上　　　　　　 Ａ
# 70点以上80点未満　　 Ｂ
# 60点以上70点未満 Ｃ
# 60点未満 Ｄ

http://pc12.2ch.net/test/read.cgi/tech/1260532772/739
# [1] 授業単元： プログラミング
# [2]問題文：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyf0355.txt
# ★演習問題2*
# 構造体を用いて，２個の複素数(x＝1.0十2.0i,x＝2.0十1.0i)の和と積
# を求めるプログラムを構造体を用いて作成せよ.
# 　(出力結果例)
#
#　X=1.0+2.0i
#　y=2.0+1.0i
#　x+y=3.0+3.0i
#　x+y=0.0+5.0i

http://pc12.2ch.net/test/read.cgi/tech/1260532772/739
# [1] 授業単元： プログラミング
# [2]問題文：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyfmg/10355.txt
# ★演習問題３
# 次の手順に従ってプログラムを作成せよ．
# 　（a）mainO関数の処理
# （a.l）以下の11個の点数を配列として持つ．ただし，最後の-1はストッ
# パーとする.（a.2）この配列を「成績データ取得関数」にアドレス渡しする。
# 　78　86　56　77　47　63　94　37　50　74　-1
# （a,3）成績データ取得関数」より，次の構造体を返却値にして，最高点，最低点均点を得る。
# （a.4）最高点、最低点、平均点を表示する。
# 　（a）成績データ取得関数の処理
# （b.1）引数で渡された点数が-1になるまでループし，最高点，最低点，合
# 　　　計点，点数総数を求める.
# （b.2）合計点と点数総数から平均点を求める.
# （b.3）最高点、最低点、平均点を上記（a.3）と同じ型の構造体にセットし
# 　　　て返却する.
# （出力結果例）
# 最高点=94
# 最低点=37
# 平均点=66.2

http://pc12.2ch.net/test/read.cgi/tech/1260532772/741
# [1] 授業単元： プログラミング2
# [2]問題文：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyfmg/10356.txt
# 下図(A)のテキストファイルは、ある実験を行ったときのメモであり、
# 実験の年月日と使用した材料及びその使用量が記載されている（スペースは全て半角スペース）。
# そこでこのファイルを読み込んで、最も多くの量を使用した材料の記号とその合計量、及び１回当たりの平均使用量を、
# 図(B)に示すような別のテキストファイルに書き出すプログラムを作成せよ。なおこの実験で使用する材料はＡ、Ｂ、Ｃの３種類のみである。
#
# プログラム作成に際しては、次の条件を満たすものとする。
# ・入力用のファイル名はJikkenMemo.txtで固定とし、一々キーボードからは指定しない。
# ・出力用のファイル名はキーボードから任意の名前で指定する。
# ・JikkenMemo.txtでは今回は13回分の実験が書き込まれているが、今後の実験の追加にも対応できるようにすること（即ち13行に限定しないこと）。
# ・出力ファイルにおける使用量の単位ｇは数値の後につける。
# ・出力ファイルにおける数値の表示はいずれも小数点以下１桁までとする。
#
# （補足）
# 　キーボードから入力した１文字がAという文字であるとき「Ａです」と表示させるには、
# 　　char cc;
# 　　scanf("%c",&cc);
# 　　if(cc=='A') printf("Aです\n");
# とすればよい。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/744
# [1] プログラミング
# [2] ０から１０の中からランダムに整数の２組を決める。それを平面上の座標と、座標を１０個つくる。
# ユーザに座標を入力させ、その点から最も遠い点と近い点を求める。
# 最も近い点がユーザが入力した点と重なったら◎を出力する。
# 結果は下記のように出力。
# △
# 　　　　　　　　　　　　　　　　△
# 　　　　　△
# 　　　　　　　　　　　　　　　　　　　　　　×　○
#
#
#
# ●
#
# ×：ユーザが入力した点
# ○：最も近い点
# ●：最も遠い点
# △：それ以外の点
#

>>224 （補足）
# 　キーボードから入力した１文字がAという文字であるとき「Ａです」と表示させるには、
# 　　char cc;
# 　　scanf("%c",&cc);
# 　　if(cc=='A') printf("Aです\n");
# とすればよい。
# 図(A)　読み込み用ファイルの内容
# 実験メモ
# 年 月 日 材料 使用量[g]
# 2007 9 28 C 289.1
# 2007 10 4 A 254.3
# 2007 10 8 B 187.4
# 2007 10 15 A 211.3
# 2007 10 16 C 400.8
# 2007 10 18 B 34.2
# 2007 10 25 C 343.6
# 2007 10 31 A 102.6
# 2007 11 6 A 155.2
# 2007 11 12 B 87.5
# 2007 11 20 C 98.7
# 2007 11 27 A 177.8
# 2007 11 28 C 44.7
# 図(B)　出力ファイルの内容例
# （仮に、最も多く使用した材用がAで、合計使用量が100.0g、１回の平均使用量が10.0gであった場合）
# 最多使用材料A
# 合計使用量 100.0g
# 平均使用量 100.g

http://pc12.2ch.net/test/read.cgi/tech/1260532772/750
# [1] 授業単元： 情報科学（Ｃ言語）
# [2]問題文：http://ime.nu/www.f.csce.kyushu-u.ac.jp/~ogi/kougi/10.pdf
# 課題１０
# 関数sasho は第1引数と第2引数の数値（実数）の差と商を計算し，差を
# 第3引数で与えられる場所に，商を第4引数で与える場所に格納し，第2
# 引数が0 の場合は0，その他の場合は1 を返す関数である（第2引数が
# 0 の場合は，商の計算はしない）．関数sasho を定義し，main 関数で
# は，2つの実数を入力して，sasho を利用して，2数の差と商を表示する
# （sasho の帰り値が0 の場合は差のみを表示）プログラムを作成せよ．

http://pc12.2ch.net/test/read.cgi/tech/1260532772/752
# 1] 授業単元： プログラミング
# [2]問題文：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyfmg/10358.txt
#
# ★演習問題1
# 構造体を用いて，２個の複素数(x＝1.0十2.0i,x＝2.0十1.0i)の和と積
# を求めるプログラムを構造体を用いて作成せよ.
# 　(出力結果例)
#
# X=1.0+2.0i
# y=2.0+1.0i
# x+y=3.0+3.0i
# x+y=0.0+5.0i

http://pc12.2ch.net/test/read.cgi/tech/1260532772/752
# 1] 授業単元： プログラミング
# [2]問題文：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyfmg/10358.txt
#
# ★演習問題2
# fgetc関数とfputc関数を使って，テキストファイルの内容を，別のテキ
# ストファイルにコピーするプログラムを作成しなさい．確認のため，元の
# ファイルとコピーされたテキストファイルの中身の内容を画面にそれぞれ
# 出力せよ．

http://pc12.2ch.net/test/read.cgi/tech/1260532772/752
# 1] 授業単元： プログラミング
# [2]問題文：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyfmg/10358.txt
# ★演習問題3
# 氏名，年齢，性別が５人分書かれた次のようなテキストファイルを読み
# 込んで、両面に表示するプログラムを作成せよ．このとき，構造体を利用
# せよ.
# 　(入力ファイル:test.txtの中身)
#
# Tanaka 31 Man
# Kawai 24 Man
# Suzuki 22 Woman
# ltoh 40 Woman
# Sugita 37 Man

http://pc12.2ch.net/test/read.cgi/tech/1260532772/752
# [1] 授業単元： プログラミング
# [2]問題文：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyfmg/10358.txt
# ★演習問題4
# 九九表を作り，テキストファイルに書き出すプログラムを作成せよ
# 　(出力ファイル:test.txtの中身)
#
# 1 2 3 4 5 6 7 8 9
# 2 4 6 8 10 12 14 16 18
# 3・・・・・・・・・・・
# 4・・・・・・・・・・・
# 5・・・・・・・・・・・
# 6・・・・・・・・・・・
# 7・・・・・・・・・・・
# 8・・・・・・・・・・・
# 9・・・・・・・・・・・
#
#

http://pc12.2ch.net/test/read.cgi/tech/1260532772/753
# [1] 授業単元： プログラミング
# [2]問題文：
# モンテカルロ法による円周率の近似値の計算を行うプログラムを書け。
# 生成する点の個数はキーボードから受け取るようにせよ。
# 乱数の生成にはMersenne twisterを用いよ。
#

rubyで
>>231
f=File.open("out.txt","w")
for i in 1..9 do
for j in 1..9 do
f.printf("%3d"%[i*j])
end
f.puts()
end
f.close

>>232
N=10000
num=0
for i in 1..N
if rand()**2+rand()**2<=1 then num+=1 end
end
puts(4.0*num/N)
#print("PI=",4.0*num/N)

http://pc12.2ch.net/test/read.cgi/tech/1248012902/709
# 【　課題　】 http://prolog.asia/html/prolog/872.html (仮にコピーさせていきました)
# 【　形態　】1. Javaアプリケーション(main()で開始)
# 【　期限　】1月２２日
# 【　補足　】Eclipseを使用しています。
# 内容は前向き推論のプログラムです。
# このプログラムを実行したら、「gyouzaは作ることができる。」と表示させたい# 「nikuudouは作ることができる。」は表示させない。
# またRecipe.txtの中身を修正してもよい。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/760
# [1] 授業単元：Ｃ言語
# [2] 問題文(含コード&リンク)：
#
# 非線形方程式の解を求めるアルゴリズムのひとつに、ニュートン法と呼ばれる方ある。
# この方法ではf(x)=0の解の近似値を次の漸化式から求める。
# x_(i+1) =x_i - f(x_i)/f'(x_i)
#
# x_i の初期値を x_0 としたとき i=1から i=5すなわちx_1からx_5までをC言語で計算して示せ。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/770
#
# [1] 授業単元：Ｃ言語
# [2]問題文：
# 下記の機能を備えた極めて単純なデータベースシステムであるカード型データベシステムの構築を考える。
# 新しい科目を登録する機能
# すでに登録されている科目を修正（更新）する機能
# 登録科目のソート（並び替え）を行う機能
# 登録科目の一部分のみを検索して取り出し、表示する機能
# 登録科目から、卒業までに必要な単位を計算し、表示する機能
# 卒業要件を簡略化しても良い.

>>760 の訂正
http://pc12.2ch.net/test/read.cgi/tech/1260532772/771
# 問題分が足りてなかったので再投稿させてもらいます。
#
# [1] 授業単元：Ｃ言語
# [2] 問題文(含コード&リンク)：
#
# 非線形方程式の解を求めるアルゴリズムのひとつに、ニュートン法と呼ばれる方ある。
# この方法ではf(x)=0の解の近似値を次の漸化式から求める。
# ただしf'(x)はxによる微分を表す。
# x_(i+1) =x_i - f(x_i)/f'(x_i)
#
# f(x)=2^2-e^x-2=0
#
# x_i の初期値を x_0 としたとき i=1から i=5すなわちx_1からx_5までをC言語で計算して示せ。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/772
# [1] 授業単元： プログラミング
# [2]問題文：氏名，年齢，性別が５人分書かれた次のようなテキストファイルを
# 込んで、両面に表示するプログラムを作成せよ．このとき，構造体を利用
# せよ.
# 　(入力ファイル:test.txtの中身)
#
# Tanaka 31 Man
# Kawai 24 Man
# Suzuki 22 Woman
# ltoh 40 Woman
# Sugita 37 Man

http://pc12.2ch.net/test/read.cgi/tech/1260532772/773
# [1] 授業単元：
# 画像処理
# [2] 問題文(含コード&リンク)：
# http://ime.nu/ux.getuploader.com/pyonpyon2009/download/6/%E8%AA%B2%E9%A1zip
# 以下のプログラムを参考にして、画像を指定倍率で拡大・縮小するプログラムを してください。
# ・最低限、pgm形式のモノクロ画像を入出力可能とすること
# ・コマンドラインインタフェースの仕様は各自で定めること
# ・拡大・縮小の倍率をプログラム中に埋め込んで、再コンパイルしなければ倍率 更できないような仕様は不可
# ・補間の手法、縮小時のローパスフィルタリングの手法、順方向変換を用いるか 向変換を用いるか等、
# 　変換の手法は各自で工夫すること。
#
# 変換の手法、工夫した点、苦労した点などをテキストに記述し、ソースプログラ 2倍拡大画像、1/2倍縮小画像を添付すること。

>>238
Luaで
f=io.open("test.txt","r")
t={}
line = f:read()
while line do
tmp={}
for s in string.gmatch(line,"[%w]+") do
table.insert(tmp,s);
end
table.insert(t,{["氏名"]=tmp[1],["年齢"]=tmp[2],["性別"]=tmp[3]});
line = f:read()
end
f:close()
for i=1,#t do
print(t[i]["氏名"].." "..t[i]["年齢"].." "..t[i]["性別"])
end

http://pc12.2ch.net/test/read.cgi/tech/1260532772/775
# [1] 授業単元：Ｃ言語
# [2]問題文：
# 二次関数　f(x) = x2 について、x=0から３までの定積分を求めたい。
# 区分求積法により、この積分の近似値を求めよ。
# x軸方向の刻み幅Δxを0.1とする。

>>234 はプログラムを解読して書き直さないと出題にならないですね。
面白そうな問題なのでやってみます。

あっという間に問題ばかり溜まってしまいました。中に骨のある問題も多いようです。
私は、1月を過ぎると余裕ができるので一気に解決していきたいなと思っています。

http://pc11.2ch.net/test/read.cgi/db/1252492296/425
# SELECT * FROM tableA WHERE code = 7
# というＳＱＬで以下のように表示されるのですが、
#
# id , code , name , date , 売上
# 1 , 7 , りんご , 2010-01-12 , 350
# 1 , 7 , りんご , 2010-01-07 , 250
# 2 , 7 , みかん , 2010-01-12 , 450
# 2 , 7 , みかん , 2009-05-05 , 550
#
# それを、売上があった日の１営業日後と3営業日後のそれぞれのidの価格も取得 いと考えております。
#
# id , code , name , date , 売上 , 1営業日後売上 , 3営業日後売上
# 1 , 7 , りんご , 2010-01-12 , 350 , 400 , 500
# 1 , 7 , りんご , 2010-01-07 , 250 , 200 , 250
# 2 , 7 , みかん , 2010-01-10 , 450 , 500 , 300
# 2 , 7 , みかん , 2009-05-05 , 550 , 220 , 350
# （ちなみに実際のdateはUNIXTIMEで格納しています。）
# １営業日後にしているのは、休日の関係で１日後とできないからです。
# ここまでやるのは厳しいでしょうか？

>>243
% Prolog (1/2) 祝日がわからないと1営業日後がわからないので、
% 足掛かりとして、以下の定義をしておきましょう。今後祝日に関しては第二引数を解読しましょう。
国民の祝日に関する法律('第１条','自由と平和を求めてやまない日本国民は、美しい風習を育てつつ、よりよき社会、より豊かな生活を築きあげるために、ここに国民こぞって祝い、感謝し、又は記念する日を定め、これを「国民の祝日」と名づける。').
国民の祝日に関する法律('第２条','自由と平和を求めてやまない日本国民は、美しい風習を育てつつ、よりよき社会、より豊かな生活を築きあげるために、ここに国民こぞって祝い、感謝し、又は記念する日を定め、これを「国民の祝日」と名づける。').

国民の祝日に関する法律(第２条,'「国民の祝日」を次のように定める。').
国民の祝日に関する法律(第２条,元日,１月１日,'年のはじめを祝う。').
国民の祝日に関する法律(第２条,成人の日,１月の第２月曜日,'おとなになったことを自覚し、みずから生き抜こうとする青年を祝いはげます。').
国民の祝日に関する法律(第２条,建国記念の日,政令で定める日,'建国をしのび、国を愛する心を養う。').
国民の祝日に関する法律(第２条,春分の日 春分日 自然をたたえ、生物をいつくしむ。
国民の祝日に関する法律(第２条,昭和の日,４月２９日,'激動の日々を経て、復興を遂げた昭和の時代を顧み、国の将来に思いをいたす。').
国民の祝日に関する法律(第２条,憲法記念日,５月３日,'日本国憲法の施行を記念し、国の成長を期する。').
国民の祝日に関する法律(第２条,みどりの日,５月４日,'自然に親しむとともにその恩恵に感謝し、豊かな心をはぐくむ。').
国民の祝日に関する法律(第２条,こどもの日,５月５日,'こどもの人格を重んじ、こどもの幸福をはかるとともに、母に感謝する。).

>>243
% Prolog (2/2) つづき
国民の祝日に関する法律(第２条,海の日,７月の第３月曜日,海の恩恵に感謝するとともに、海洋国日本の繁栄を願う。).
国民の祝日に関する法律(第２条,敬老の日,９月の第３月曜日,多年にわたり社会につくしてきた老人を敬愛し、長寿を祝う。).
国民の祝日に関する法律(第２条,秋分の日,秋分日,'祖先をうやまい、なくなった人々をしのぶ。').
国民の祝日に関する法律(第２条,体育の日,'１０月の第２月曜日,スポーツにしたしみ、健康な心身をつちかう。').
国民の祝日に関する法律(第２条,文化の日,１１月３日,'自由と平和を愛し、文化をすすめる。').
国民の祝日に関する法律(第２条,勤労感謝の日,１１月２３日,'勤労をたっとび、生産を祝い、国民たがいに感謝しあう。').
国民の祝日に関する法律(第２条,天皇誕生日,１２月２３日,'天皇の誕生日を祝う。').

国民の祝日に関する法律(第３条,'「国民の祝日」は、休日とする。').
国民の祝日に関する法律(第３条,'２ 「国民の祝日」が日曜日に当たるときは、その日後においてその日に最も近い「国民の祝日」でない日を休日とする。').
国民の祝日に関する法律(第３条,'３ その前日及び翌日が「国民の祝日」である日（「国民の祝日」でない日に限る。）は、休日とする。').

http://pc12.2ch.net/test/read.cgi/tech/1260532772/776
# [1]オペレーティングシステム
# [2]問題文(含コード&リンク)：
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/1036t
# fork とexec 族のシステムコールを用いて，簡単なコマンドインタープリタ（mysを作成せよ．
# ただし,作成するコマンドインタープリタは以下の機能をサポートすること．
# ・設定ファイル（.path）にコマンドサーチパスを指定することが出来る．なお，イル内のパスの指定方法は，各自が考えて定義すること．（パスにないコマンドを した場合には，
# 見つからない旨のエラーメッセージを出力すること．）
# ・パイプを利用して複数（可変個）のコマンドの入出力を結合することができる # ・コマンド実行中にCtrl-C を入力すると，現在のコマンドの実行を中断して, 次マンドを
# 入力するためにプロンプトを出力する．
# ・リダイレクション（“＜” と “＞”）を使用してコマンドへの入力をファイルから得たり，ファイルへ出力したりすることが出来る．
# ・exit を入力すると，mysh を終了する．

>>243
% Prolog 一営業日後の定義に祝日と曜日の定義が必要になる。
一営業日後(_今日,_一営業日後) :-
　　曜日(_今日,_曜日),
　　\+(member(_曜日,[土曜,日曜])),
　　\+(祝日(_今日)),
　　翌日(_今日,_翌日),
　　次の営業日(_翌日,_一営業日後),!.
一営業日後(_今日,_一営業日後) :-
　　翌日(_今日,_翌日),
　　一営業日後(_翌日,_一営業日後),!.

三営業日後(_今日,_三営業日後) :-
　　一営業日後(_今日,_一営業日後),
　　一営業日後(_一営業日後,_二営業日後),
　　一営業日後(_二営業日後,_三営業日後),!.

次の営業日(_基準日,_次の営業日) :-
　　曜日(_基準日,_曜日),
　　member(_曜日,[土曜,日曜]),
　　翌日(_基準日,_翌日),
　　次の営業日(_翌日,_次の営業日),!.
次の営業日(_基準日,_次の営業日) :-
　　祝日(_基準日),
　　翌日(_基準日,_翌日),
　　次の営業日(_翌日,_次の営業日),!.
次の営業日(_次の営業日,_次の営業日).

>>243
% Prolog

'商品売上、1営業日後、3営業日後、比較表示' :-
　　setof([_id,_name,_date],tableA( _id , 7 , _name , _date , _売上),L1),
　　write('id, code, name, date,　　売上,1営業日後売上,3営業日後売上\n'),
　　member([_id_1,_name_1,_date_1],L1),
　　split(_date_1,['-'],L2),
　　concat_atom(L2,_日付),
　　一営業日後(_日付,_1営業日後),
　　三営業日後(_日付,_3営業日後),
　　データベース日付表現(_1営業日後,_日付1),
　　データベース日付表現(_3営業日後,_日付3),
　　findsum(_売上,tableA( _id , 7 , Name , _日付 , _売上),Sum),
　　findsum(_売上,tableA( _id , 7 , Name , _日付1 , _売上),Sum1),
　　findsum(_売上,tableA( _id , 7 , Name , _日付3 , _売上),Sum3),
　　wr('%t,%t,%t,%t,%t,%t\n',[_id_1,7,_name_1,Sum,Sum1,Sum3]),
　　fail.
'商品売上、1営業日後、3営業日後、比較表示'.

データベース日付表現(_日付,_データベース日付表現) :-
　　sub_atom(_日付,0,4,_,_年),
　　sub_atom(_日付,4,2,_,_月),
　　sub_atom(_日付,6,2,_,_日),
　　concat_atom([_年,'-',_月,'-',_日],_データベース日付表現).

http://pc12.2ch.net/test/read.cgi/tech/1260532772/780
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： 0,1のみを成分にもつｎ次正方行列Aは各行を２進数とみなして整数のリストとして表現できる。
# たとえば　3次正方行列は　１，０，０/０，１，０/０，０，１は｛４，２，１｝
#
# これに掃き出し法を適用し、｛５，６，３｝と入力したとき｛５，３，０｝と出力されるプログラムを作れ。
# ヒントとして、行の入れ替えは数字の入れ替えになる。
# ｎ桁２進数ｘの下位から、上位からの数字はそれぞれどう書けるか考える。
#
# まず正方行列の次数をきめ、入力できる１０進数の最大値を表示、その後
# その範囲で数値をn回キーボードから入力した後、掃き出し法を行い、
# その正方行列の行の値を１０進数に変換するプログラムです。

http://pc11.2ch.net/test/read.cgi/db/1252492296/434
# ■テーブルデータ
# ○荷物テーブル
# id 中身id 荷受け
# 1 1 2009/12/11
# 2 1 2009/12/21
# 3 2 2010/12/25
# ○中身テーブル
# id 品物 重さ
# 1 本 500
# 2 テレビ 1000
# ○作業テーブル
# 荷物id 作業項目id 作業者名 作業状況
# 1 1 佐藤 完了
# 1 3 志村 作業中
# 2 1 鈴木 完了
# 2 2 鈴木 未
# 2 3 田中 未
# 3 1 佐藤 完了
# 3 3 田中 未
# ○作業項目テーブル
# id 作業内容
# 1 品物を入れる
# 2 領収書を入れる
# 3 封をして発送する

>>250 問題つづき
#
# ■欲しい結果
# 荷物id 品物 重さ 作業者名※1 作業内容※1 作業状況 対応班※2
# 2 本 500 鈴木 領収書を入れる 未 2
# 3 テレビ 1000 田中 領収書を入れる 未 1
# ※1　作業状況が完了以外かつ作業項目idが一番小さいもの
# ※2　重さが1000以上→作業班1、作業者名が鈴木かつ作業状況が未→作業班2、
作業状況にかかわらず、作業者名に田中がある荷物→作業班3
# 　　　(班1 > 班2 > 班3の順で優先し、荷物idを重複させない)
#
# ■説明
# 荷受けが2009/12/31以前の荷物かつ対応班が存在するものを抽出したいです。
# 荷物は沢山ありますのでパフォーマンスもできれば考慮したいです。
# 「パッとわからないけどちょっと考えればわかるだろJK」→「2時間考えてもできないorz」(今ここ)

http://pc12.2ch.net/test/read.cgi/tech/1248012902/711
# 【　課題　】課題は3題です。
# http://ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/873.zip
# 課題１
# 乱数を使って掛け算九九の練習ソフトを作れ。ただし以下の条件に従うものとする 。
#
# 10題練習したところで正解率が8割以下だったら、もう1セット10題の練習を繰り返 す。
# 10問中の正解率が8割以上になるまで繰り返し練習をさせる。

http://pc12.2ch.net/test/read.cgi/tech/1248012902/711
# 【　課題　】課題は3題です。
# http://ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/873.zip
# 課題２
# 西暦を入力させ、うるう年かどうかを判定するプログラムを作れ。なお、うるう年 は以下で認定される。
#
# 西暦の年号が400で割り切れる年はうるう年
# 西暦の年号が400で割り切れないが、100で割り切れる年はうるう年でない
# 西暦の年号が100で割り切れないが、4で割り切れる年はうるう年

>>217
使用言語：J

('n',.'=',.":,.a),.':',.'e',.'=',.0j15":,.+/\%!a=.i.31x
n= 0:e=1.000000000000000
n= 1:e=2.000000000000000
n= 2:e=2.500000000000000
n= 3:e=2.666666666666667
n= 4:e=2.708333333333333
n= 5:e=2.716666666666667
n= 6:e=2.718055555555556
n= 7:e=2.718253968253968
n= 8:e=2.718278769841270
n= 9:e=2.718281525573192
n=10:e=2.718281801146384
:
n=29:e=2.718281828459045
n=30:e=2.718281828459045

>>253
使用言語：J

f=:monad def '-.=/*400 4 100|y'

f 1800
0
f 2000
1
f 2008
1
f 2010
0

http://pc12.2ch.net/test/read.cgi/tech/1260532772/796
# [1] プログラミング演習
# [2] 標準入力から読み込んだテキストファイルを辞書順に整列して標準出力する。
# 辞書順：文字列比較の順番はASCIIコード文字順をベースとした辞書順であるが、文字順が一部
# が変更される A<a<B<c<C<c.....
# [5] 作業用ファイルwork.dat(内容は自由、サイズ無制限とする。プログラム終了時点で削除する必要は無い
# ものとする。）
# を使用出来る。stdio.hで定義されている標準ライブラリ関数、定数を利用出来る。
# 整列アルゴリズムは自由とする。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/797
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：問題1　戻値を持たず、一つの double 型の引数を持ち、過去に関数が
# 呼ばれた時、全ての引数の値の総和を表示する関数、d_total
# を定義し、動作の確認ができるプログラムとして作成せよ。例えば、
# d_total(0.1);
# d_total(0.2);
# d_total(0.3);
# と呼べば、d_total の内部の処理にて
# 0.1
# 0.3
# 0.6
#
# と表示するということである。
# ただし, プログラム中の変数として、外部変数は使ってはな
# らない。「内部変数か」自動変数のみを使って実現せよ。
# 問題2　 戻値を持たず、二つの float 型のポインタの引数を持ち、二つ
# の引数の値を交換する関数、f_swap を定義し、動作の確認がで
# きるプログラムとして作成せよ。
# 問題3　4行4列のint型の行列を、転置するプログラムを作成せよ。動作の確認のため、転置前と転置後
# の行列の内容を表示するようにせよ

http://pc12.2ch.net/test/read.cgi/tech/1260532772/798
# [1] やさしいC
# [2] 次の関数workをコンパイル出来るように,正しく動作するように修正し、
# 正しく実行出来るかどうかを確かめられるプログラムを作りなさい。
# double *work(double[] a,int N){
# double result[N];
# result[0] = a[N-2] ,a[N-1],a[0],a[1] a[2]を1:3:4:3:1の重みで平均した値
# result[1] = a[N-1],a[0],a[1],a[2] を1:3:4:3:1の重みで平均した値
# result[2] = a[0],a[1],a[2],a[3]を1:3:4::3:1の重みで平均した値
# result[3] = a[1],a[2],a[3],a[4] を1:3:4:3:1の重みで平均した値
# ....
# result[N-2] = a[N-4],a[N-3],a[N-2],a[N-1],a[0] を1:3:4:3:1の重みで平均した値
# result[N-1] = a[N-3],a[N-2],a[N-1],a[0],a[1] を1:3:4:3:1の重みで平均した値
# return (double)&result[0];
# }

http://pc12.2ch.net/test/read.cgi/tech/1260532772/800
# [1]Cプログラミング演習
# [2]
# 関数 op(int a,int b,int c)は次の結果を返す。
# 結果： a op1 b op2 c op3 a op4 b op5 c (op1,op2,op3,op4,op5は
# + - * %(剰余) xor and orの何れか一つ)
# +:演算0 -:演算1 *:演算2 /:演算3 xor:演算4 and:演算5 or:演算6
# op1=(3*a+5*b)の７による剰余がkの場合、演算kを選択
# op2=(5*b+4*c)の７による剰余がkの場合、演算kを選択
# op3=(a+3*c)の７による剰余がkの場合、演算kを選択
# op4=(a+2*b)の７による剰余がkの場合、演算kを選択
# op5=(3*c+2*b)の７による剰余がkの場合、演算kを選択
# ここで演算子の優先順位は高い順に　+ > - > * > % >xor > and > orとする
# 例えば1　+　3 xor 5　*　7　-　5は(1+3) xor (5*(7-5))を意味する
# 関数opをコードせよ。どのような演算が行われたか具体的に出力するprintf文も同時に出力すること。

http://pc12.2ch.net/test/read.cgi/tech/1248012902/711
# 【　課題　】課題は3題です。
# http://ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/873.zip
# 課題３
#
# 以下のプログラムに手を加え、アドレス表を利用した並び替えを行って人口の大き>
# い順に人口と県民を表示しなさい
#
# 07年の都道府県人口（csv形式ファイル）は以下の場所にあります。
# http://prolog.asia/html/prolog/jinkou07.csv

>>259 訂正

修正前 →　+:演算0 -:演算1 *:演算2 /:演算3 xor:演算4 and:演算5 or:演算6
修正後 → +:演算0 -:演算1 *:演算2 %（剰余):演算3 xor:演算4 and:演算5 or:演算6

>>250

欲しい結果(_荷受日下限,_荷受日上限) :-
　　write('荷物id 品物 重さ 作業者名1 作業内容1 作業状況 対応班2\n'),
　　荷物テーブル(_id,_中身id,_荷受け),
　　_荷受け @>= _荷受日下限,
　　_荷受け @=< _荷受日上限,
　　中身テーブル(_中身id,_品物,_重さ),
　　作業テーブル(_id,_作業項目id,_作業者名,_作業状況),
　　作業項目テーブル(_作業項目id,_作業内容),
　　作業班(_作業者名,_作業状況,_重さ,_対応班),
　　write_formatted('%t %t %t %t %t %t %t\n',[_id,_品物,_重さ,_作業者名,_作
業内容,_作業状況,_対応班]),
　　fail.
欲しい結果(_,_).

作業班(_,_,_重さ,1) :- _重さ >= 1000,!.
作業班(_作業者名,_作業状況,_,2) :- _作業者名=鈴木,_作業状況='未',!.
作業班(田中,_,_,3) :- !.

>>250 変なところで折り返しが出たので書き直し。
% Prolog

欲しい結果(_荷受日下限,_荷受日上限) :-
　　write('荷物id 品物 重さ 作業者名1 作業内容1 作業状況 対応班2\n'),
　　荷物テーブル(_id,_中身id,_荷受け),
　　_荷受け @>= _荷受日下限,
　　_荷受け @=< _荷受日上限,
　　中身テーブル(_中身id,_品物,_重さ),
　　作業テーブル(_id,_作業項目id,_作業者名,_作業状況),
　　作業項目テーブル(_作業項目id,_作業内容),
　　作業班(_作業者名,_作業状況,_重さ,_対応班),
　　write_formatted('%t %t %t %t %t %t %t\n',[_id,_品物,_重さ,_作業者名,_作業内容,_作業状況,_対応班]),
　　fail.
欲しい結果(_,_).

作業班(_,_,_重さ,1) :- _重さ >= 1000,!.
作業班(_作業者名,_作業状況,_,2) :- _作業者名=鈴木,_作業状況='未',!.
作業班(田中,_,_,3) :- !.

>>201
使用言語：　十進BASIC

OPTION ARITHMETIC DECIMAL_HIGH !10進1000桁モード
INPUT PROMPT "a =":a
INPUT PROMPT "b =":b
PRINT "a + b =";a+b
PRINT "a - b =";a-b
PRINT "a * b =";a*b
END

実行結果
a =1.9999999999999999999999999
b =0.0000000000000000000000001
a + b = 2
a - b = 1.9999999999999999999999998
a * b = .00000000000000000000000019999999999999999999999999

>>253
% Prolog
% http://prolog.asia/html/prolog/t815.html などにすでにあります。ここでは、

西暦を入力させ、うるう年かどうかを判定する(_西暦) :-
　　西暦の年号が400で割り切れる年はうるう年(_西暦),!.
西暦を入力させ、うるう年かどうかを判定する(_西暦) :-
　　西暦の年号が400で割り切れないが、100で割り切れる年はうるう年でない(_西暦),!.
西暦を入力させ、うるう年かどうかを判定する(_西暦) :-
　　西暦の年号が100で割り切れないが、4で割り切れる年はうるう年(_西暦).
　
西暦の年号が400で割り切れる年はうるう年(_西暦) :- 割り切れる(_西暦,400),!.

西暦の年号が400で割り切れないが、100で割り切れる年はうるう年でない(_西暦) :-
　　\+(割り切れる(_西暦,400)),
　　割り切れる(_西暦,100),!,fail.

西暦の年号が100で割り切れないが、4で割り切れる年はうるう年(_西暦) :-
　　\+(割り切れる(_西暦,100)),
　　割り切れる(_西暦,4),!.

割り切れる(A,B) :- 0 is A mod B.

>>260
% Prolog

並び替えを行って人口の大きい順に人口と県名を表示する(_ファイル) :-
　　see(_ファイル),
　　findall([_人口,_県名],(repeat,get_line(X),(X=end_of_file,!,fail;
　　　　　　split(X,[','],[_県名,_人口])),L),
　　seen,
　　降順に整列する(L,L1),
　　人口と県名を表示する(L1).

人口と県名を表示する([]) :- !.
人口と県名を表示する([[_人口,_県名]|R]) :-
　　write_formatted('%t %t\n',[_人口,_県名]),
　　人口と県名を表示する(R).

>>213
使用言語：J

p:i._1 p: 100
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

>>215
使用言語：maxima

(%i41) display2d:false;
(%o41) false
(%i42) solve([x1+5*x2+x3=2,3*x1+4*x2=2,9*x1+10*x2+4*x3=8],[x1,x2,x3]);
(%o42) [[x1 = 2/5,x2 = 1/5,x3 = 3/5]]

http://pc12.2ch.net/test/read.cgi/tech/1260532772/810
# [1] 授業単元：プログラミング論(大学)
# [2] 問題文：softbankのiPhoneの使用料金を計算するプログラムを作りなさい

>>215
使用言語：J

]a=:3 3 $ 1 5 1,3 4 0,9 10 4
1 5 1
3 4 0
9 10 4
]b=:2 2 8
2 2 8
(%.a)(+/ .*)b
0.4 0.2 0.6

http://pc12.2ch.net/test/read.cgi/tech/1260532772/812
# [1] 授業単元： 授業ではないですがお願いします
# [2] 問題文(含コード&リンク)： 100個の0〜10までの数字があるとするとき0じゃない数字の個数を数えて表示させたいんですが
# どうすればいいのかよくわかりませんのでお願いします

>>271
使用言語：J

a=: ?100#11
4 25 $ a
2 4 3 9 5 10 4 6 10 3 2 3 0 10 9 7 1 2 2 9 5 2 6 9 2
1 3 6 2 6 5 7 9 8 7 8 10 0 8 4 6 3 4 2 8 3 0 5 4 4
0 2 7 8 1 6 6 8 8 5 8 10 6 6 3 7 1 9 8 5 6 2 0 9 3
6 5 1 3 1 2 0 6 9 2 3 4 1 7 7 10 7 3 2 3 4 3 4 8 8
+/0=a
6

>>272 >>271
使用言語：J
間違えました。０の個数を数えてました。

a=: ?100#11
4 25 $ a
2 4 3 9 5 10 4 6 10 3 2 3 0 10 9 7 1 2 2 9 5 2 6 9 2
1 3 6 2 6 5 7 9 8 7 8 10 0 8 4 6 3 4 2 8 3 0 5 4 4
0 2 7 8 1 6 6 8 8 5 8 10 6 6 3 7 1 9 8 5 6 2 0 9 3
6 5 1 3 1 2 0 6 9 2 3 4 1 7 7 10 7 3 2 3 4 3 4 8 8

+/0~:a
94

>>217
使用言語：maxima

(%i50) for n:0 thru 30 do printf(true,"n=~2d:e=~,15f~%",n,sum(1/i!,i,0,n));
n= 0:e=1.000000000000000
:
n=30:e=2.718281828459045

>>271
% Prolog

'100個の0〜10までの数字を発生させる'(L) :-
　　length(L,100),
　　'0〜10までの数字を発生させる'(L).

'0〜10までの数字を発生させる'([]) :- !.
'0〜10までの数字を発生させる'([N|R]) :-
　　N is random mod 11,
　　'0〜10までの数字を発生させる'(R).

'0じゃない数字の個数を数えて表示させる'(L) :-
　　count((member(A,L),number(A),\+(A=0)),_0じゃない数字の個数),
　　write_formatted('0じゃない数字は%t個です\n',[_0じゃない数字の個数]).

http://pc12.2ch.net/test/read.cgi/tech/1260532772/819
# [1] 授業単元：情報処理基礎
# [2] 問題文：以下はmain関数、サブ関数で作成します。
# 　　　　　　1.数値nを一つ入力し、各桁の和を求めよ。(123→6)
# 　　　　　　2.数値nを反転した値を表示せよ。(123→321)

http://pc12.2ch.net/test/read.cgi/tech/1260532772/820
# [1] 授業単元：情報処理基礎
# [2] 問題文：二次方程式ax^2+bx+c=0の解を求めるプログラムを作成せよ。
# 　　　　　　　a,b,cの値を入力する。計算結果は必ず5種類表示すること。
# 　　　　　　　a=b=c=0の場合、処理を終了する。a=b=0、Cが0以外の場合は｢不能｣と表示する。
# 　　　　　　　a=0、bが0以外の場合は｢一次方程式｣と解を表示する。
# 　　　　　　　判別式がD＜0の場合、｢虚解｣と表示する。
# 　　　　　　　判別式がD＜0の場合以外も、必要な表示、結果を表示します。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/821
# [1] 授業単元： コンパイラ
# [2] 問題文(含コード&リンク)：
# PAdaで記述されたソースプログラムをC言語のソースプログラムに
# 変換するコンパイラを作成しなさい。
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10363.zip
#

>>276
% Prolog
main :-
　　催促付き整数入力('ひとつ対象となる整数を入力してください : ',_整数),
　　write('1.数値nを一つ入力し、各桁の和を求めよ。(123→6)\n'),
　　write('2.数値nを反転した値を表示せよ。(123→321)\n'),
　　催促付き整数入力('1-2を選択してください : ',_整数2),
　　目標選択(_整数2,_整数).

目標選択(1,_数値n) :-
　　'数値nを一つ入力し、各桁の和を求める'(_数値n,_各桁の和),
　　write_formatted('各桁の和は%tです\n',[_各桁の和]).
目標選択(2,_数値n) :- '数値nを反転した値'を表示する'(_数値n).

'数値nを一つ入力し、各桁の和を求める'(_数値n,_各桁の和) :-
　　number_codes(_数値n,L),
　　findsum(U,(member(A,L),U is A-48),_各桁の和).

'数値nを反転した値'を表示する'(_数値n) :-
　　'数値nを反転した値'(_数値n,_数値nを反転した値),
　　write_formatted('数値を反転した値は%tです\n',[_数値nを反転した値]).

'数値nを反転した値'(_数値n,_数値nを反転した値) :-
　　number_codes(_数値n,L1),
　　reverse(L1,L2),
　　number_codes(_数値nを反転した値,L2).

http://pc12.2ch.net/test/read.cgi/tech/1259990485/701
# 文字列をn文字ずつ＆1文字ずつに分割したいのですが
# x = "ABCDEFGHIJKLMNOPQRSTUVWXY"
# x = x.scan(/.{5}/)
# x.collect!{|y|y.scan(/./)}
# p x
# =>[["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"]]
# みたいに書くと都度、正規表現によるマッチが行われるので遅いです
# もっと高速に実行する方法があったら教えてください。よろしくお願いします

>>280
% Prolog

'文字列をn文字ずつ＆1文字ずつに分割'(_文字列,N文字ずつ,L) :-
　　atom_chars(_文字列,Chars),
　　'N個組'(N文字ずつ,Chars,L).

'N個組'(_,[],[]) :- !.
'N個組'(N,L,[U|R]) :-
　　先頭からN個(N,L,U,R1),
　　'N個組'(N,R1,R).

先頭からN個(_,[],[],[]) :- !.
先頭からN個(0,L,[],L) :- !.
先頭からN個(N,[A|R1],[A|R2],R) :-
　　M is N - 1,
　　先頭からN個(M,R1,R2,R).

>>280
使用言語：J

a=:'ABCDEFGHIJKLMNOPQRSTUVWXY'
f=:dyad def ';/&.> (-x)<\y'
5 f 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||
|+-+-+-+-+-+|+-+-+-+-+-+|+-+-+-+-+-+|+-+-+-+-+-+|+-+-+-+-+-+|
+-----------+-----------+-----------+-----------+-----------+
7 f 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||
|+-+-+-+-+-+-+-+|+-+-+-+-+-+-+-+|+-+-+-+-+-+-+-+|+-+-+-+-+|
+---------------+---------------+---------------+---------+

>>276
使用言語：J

g=:monad def '+/"."0":y'
h=:monad def '|.&.":y'
f=:monad define
smoutput ('各桁の和＝',":g y),:'反転値　＝',":h y
)

f 123
各桁の和＝6
反転値　＝321

http://pc12.2ch.net/test/read.cgi/tech/1260532772/834
# [2010/01/15 19:27:07] リュック: 【質問テンプレ】
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： http://ime.nu/www.dotup.org/uploda/www.dotup.org563734.zip.html
#　[2] のコピー: http://prolog.asia/html/prolog/c133_834.html

http://pc12.2ch.net/test/read.cgi/tech/1260532772/827
# 下記の機能を備えた極めて単純なデータベースシステムであるカード型データベースシステムの構築を考える。
# 課題7-1
# 下記のような方針でプログラムを作成せよ。
# 新しい科目を登録する機能
# すでに登録されている科目を修正（更新）する機能
# 登録科目のソート（並び替え）を行う機能
# 登録科目の一部分のみを検索して取り出し、表示する機能
# 登録科目から、卒業までに必要な単位を計算し、表示する機能
# データベースファイルの仕様
# データベースファイルについては、本格的なデータベースになると、アクセス性や
# 安定性など様々な要求を満たす必要があるが、ここでは最も単純なテキストファイルとする。
# さらに、書き込みをfprintfで、読み込みをfscanfで行えるように、 1行中に、
# それぞれの項目（フィールド）がスペースで区切られているようなファイルとする。
# なお、この場合、それぞれの項目はスペースを含んでいけないこととなる。
# 履修科目データベースシステムの例においては、例えば、
# 単位の種類（必修、選択必修など）、単位数、年次、前期か後期か、再履修かどうか、成績の6項目を含むこととする。
# ここで、いくつかの選択肢から選択するものについては、数字で置き換えることとする。
# このような仕様に基づいたファイルの例は以下のようなものになる。ここでは、ファイル名は、"ユーザ名_kamokudb.txt"とする。

>>277
% Prolog

'二次方程式ax^2+bx+c=0の解を求める'(0,0,0,_) :- !.
'二次方程式ax^2+bx+c=0の解を求める'(0,0,C,不能) :- \+(C==0),!.
'二次方程式ax^2+bx+c=0の解を求める'(0,B,C,一次方程式) :- \+(B==0),!.
'二次方程式ax^2+bx+c=0の解を求める'(A,B,C,_解) :-
　　_判別式の値 is (B ^ 2 - 4 * A * C),
　　'二次方程式ax^2+bx+c=0の解判定'(_判別式の値,A,B,C,_解).

'二次方程式ax^2+bx+c=0の解判定'(_判別式の値,_,_,_,虚解) :- _判別式の値 < 0,!.
'二次方程式ax^2+bx+c=0の解判定'(_判別式の値,A,B,C,_解) :-
　　_解 is ((-1) * B + sqrt(_判別式の値)) / ( 2 * A ).
'二次方程式ax^2+bx+c=0の解判定'(_判別式の値,A,B,C,_解) :-
　　_解 is ((-1) * B - sqrt(_判別式の値)) / ( 2 * A ).

>>269
% Prolog (その一)

:- op(350,xf,円).
お客様データベース('長石 輝',ホワイトプラン通話料,2130).
お客様データベース('長石 輝',ホワイトプランメールウェブ利用料金,0).
お客様データベース('長石 輝',パケット使用量,47310).

iphoneのご利用料金(_お客様名,_ご利用料金 円) :-
　　お客様データベース(_お客様名,ホワイトプラン通話料,_通話料),
　　お客様データベース(_お客様名,ホワイトプランメールウェブ利用料金,_メール
ウェブ利用料金),
　　お客様データベース(_お客様名,パケット使用量,_パケット使用量),
　　'ホワイトプラン(i)'(_通話料,_メールウェブ利用料金,_ホワイトプラン料金
円),
　　パケット料金(_パケット使用量,_パケット料金 円),
　　_ご利用料金 is _ホワイトプラン料金 + _パケット料金.

'ホワイトプラン(i)'(_ホワイトプラン料金 円) :-
　　ホワイトプラン基本使用料・通話料(_通話料 円,_基本使用料・通話料 円),
　　ホワイトプランメールウェブ利用料金(_メールウェブ利用料金 円),
　　_ホワイトプラン料金 is _基本使用料・通話料 + _メールウェブ利用料金,!.

ホワイトプラン基本使用料・通話料(_通話料 円,_基本使用料・通話料 円) :-
　　_基本使用料・通話料 is 980 + _通話料.

>>269
% Prolog

ホワイトプラン基本使用料・通話料(_通話料 円,_基本使用料・通話料 円) :-
　　_基本使用料・通話料 is 980 + _通話料.

ホワイトプランメールウェブ利用料金(0 円).

パケット料金(_パケット,_パケット料金 円) :-
　　'S!ベーシックパック(i)'(_パケット料金_1 円),
　　パケット定額フル(_パケット,_パケット料金_2 円),
　　_パケット料金 is _パケット料金_1 + _パケット料金_2,!.

'S!ベーシックパック(i)'(315 円).

パケット定額フル(_パケット,1029 円) :- _パケット =< 12250,!.
パケット定額フル(_パケット,_パケット料金 円) :-
　　_パケット > 12250,
　　_パケット =< 71250,
　　_パケット料金 is (_パケット - 12250) * 0.084 + 1029,!.
パケット定額フル(_パケット,5985 円) :- _パケット > 71250,!.

>>258
% Prolog

重み付け平均をRLにセット(AL,RL) :-
　　_重みならび = [1,3,4,3,1],
　　sum(_重みならび,_重み合計),
　　list_nth(N-2,AL,A_2),
　　list_nth(N-1,AL,A_1),
　　list_nth(1,AL,A1),
　　list_nth(2,AL,A2),
　　append([A_2,A_1|AL],[A1,A2],AL2),
　　N2 is N + 2,
　　重み付け平均をRLにセット(3,N2,_重みならび,_重み合計,AL2,RL).

重み付け平均をRLにセット(M,N,_重みならび,_重み合計,AL,[]) :- M > N,!.
重み付け平均をRLにセット(M,N,_重みならび,_重み合計,AL,[_重み付け平均|R]) :-
　　findall(B,(for(M-2,U,M+2),list_nth(U,AL,B)),L1),
　　重み付け平均(L1,_重みならび,_重み合計,0,_重み付け平均),
　　M2 is M + 1,
　　重み付け平均をRLにセット(M2,N,_重みならび,_重み合計,AL,R).

重み付け平均([A|R1],[B|R2],_重み合計,S1,_重み付け平均) :-
　　_重み付け平均 is S1 / _重み合計,!.
重み付け平均([A|R1],[B|R2],_重み合計,S1,_重み付け平均) :-
　　S2 is S1 + A * B,
　　重み付け平均(R1,R2,_重み合計,S2,_重み付け平均).

>>258
使用言語：J

f=:dyad def '(+/x)%~+/"1 x*(i.#y)|."0 1 y'

1 3 4 3 1 f 1 2 3 4 5
1.25 3.75 5 3.75 1.25

http://pc12.2ch.net/test/read.cgi/tech/1260532772/841
# [1] 授業単元： コンピュータシミュレーション
# [2] 問題文(含コード&リンク)：円盤状に分布させた質点に回転の初期条件をあたえたいのですが、
# 中心からの距離、位置により速度の大きさと向きが変わるのでどのようにおけばいいのかお願いします。
#

>>231
% Prolog

九九表を作り，テキストファイルに書き出す(_テキストファイル) :-
　　九九表を作り(_九九表),
　　tell(_テキストファイル),
　　書き出す(_九九表),
　　told.

九九表を作り(M,N,[]) :- M > N,!.
九九表を作り(M,N,[L|R]) :-
　　findall(K,(for(1,J,9),K is J * M),L),
　　M2 is M + 1,
　　九九表を作り(M2,N,R).

テキストファイルに書き出す(_テキストファイル,_ならび) :-
　　tell(_テキストファイル),
　　書き出す(_ならび),
　　told.

書き出す([]) :- !.
書き出す([L|R]) :-
　　concat_atom(L,' ',S),
　　write_formatted('%t\n',[S]),
　　書き出す(R).

>>256
% Prolog (その一)
標準入力から読み込んだテキストファイルを辞書順に整列して標準出力する :-
　　標準的整列ルール(32,127,_標準的整列ルール),
　　例外的整列ルール(_例外的整列ルール),
　　get_lines(user_input,Lines),
　　concat_atom(Lines,' ',S),
　　split(S,[' '],_語彙ならび),
　　辞書順整列(_語彙ならび,_標準的整列ルール,_例外的整列ルール,[],_辞書順に整列された語彙ならび),
　　語彙ならびを標準出力する(_語彙ならび).

語彙ならびを標準出力する([]).
語彙ならびを標準出力する([_語彙|R]) :-
　　write_formatted('%t\n',[_語彙]),
　　語彙ならびを標準出力する(R).

標準的整列ルール(M,N,[]) :- M > N,!.
標準的整列ルール(M,N,[A|R]) :-
　　\+((M >=97,M =< 122)),
　　char_code(A,M),
　　M2 is M + 1,
　　標準的整列ルール(M2,N,R),!.
標準的整列ルール(M,N,[A,B|R]) :-
　　M >= 65,M =< 90,
　　M32 is M + 32,
　　char_code(A,M),char_code(B,M32),
　　M2 is M + 1,
　　標準的整列ルール(M2,N,R),!.

>>293 訂正
% Prolog この定義の一番最後は _辞書順に整列された語彙ならび　でないといけない。
標準入力から読み込んだテキストファイルを辞書順に整列して標準出力する :-
　　標準的整列ルール(32,127,_標準的整列ルール),
　　例外的整列ルール(_例外的整列ルール),
　　get_lines(user_input,Lines),
　　concat_atom(Lines,' ',S),
　　split(S,[' '],_語彙ならび),
　　辞書順整列(_語彙ならび,_標準的整列ルール,_例外的整列ルール,[],_辞書順に整列された語彙ならび),
　　語彙ならびを標準出力する(_辞書順に整列された語彙ならび).

>>192
% Prolog
現在の対ドル為替レート(92.69).

日本円をドルに変換する(_日本円,_ドル,_セント) :-
　　現在の対ドル為替レート(_現在の為替レート),
　　_ドル is truncate(float_integer_part(_日本円 / _現在の為替レート)),
　　_セント is truncate(float_fractional_part(_日本円 / _現在の為替レート) * 100).

日本円をドルとセントに変換して金種を計算する(_日本円,_ドルの金種,_セントの金種) :-
　　日本円をドルに変換する(_日本円,_ドル,_セント),
　　ドルの金種計算(_ドル,[100,50,20,10,5,2,1],_ドルの金種),
　　セントの金種計算(_セント,[50,25,10,5,1],_セントの金種).

ドルの金種計算(_,[],[]) :-
ドルの金種計算(D,[_金種|R1],[[_金種,_枚数]|R2]) :-
　　_枚数 is truncate(D // _金種),
　　D2 is truncate(D mod _金種),
　　ドルの金種計算(D2,R1,R2).

セントの金種計算(_,[],[]) :-
セントの金種計算(C,[_金種|R1],[[_金種,_枚数]|R2]) :-
　　_枚数 is truncate(C // _金種),
　　C2 is truncate(C mod _金種),
　　セントの金種計算(C2,R1,R2).

>>257
% Prolog 問題3 これもこれまで何度も定義された。

行列の転置([[]|_],[]) :- !.
行列の転置(_副行列,[_第一要素ならび|R]) :-
　　第一要素と残り要素の収集(_副行列,_第一要素ならび,_残り要素ならび),
　　行列の転置(_残り要素ならび,R),!.

第一要素と残り要素の収集([],[],[]) :- !.
第一要素と残り要素の収集([[A|R1]|R2],[A|R3],[R1|R4]) :-
　　第一要素と残り要素の収集(R2,R3,R4).

http://pc12.2ch.net/test/read.cgi/tech/1260532772/843
# [1] 授業単元：計算機基本
# [2] 問題文(含コード&リンク)：
# 1から10までの整数の2乗の和 1^2 + 2^2 + 3^2 + ... +8^2 + 9^2 + 10^2 を求めるプログラムを作ってみましょう。
# 途中経過も表示してください。
# 例：1^2 + 2^2 =
# 1^2 + 2^2 + 3^2 =
# ....

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

# 基本課題 2a（数式の読み込みと表示）
# 課題 2a と 2b では，算術式を読み，表示し，値を求めるプログラムを作る．
# 限られた時間内で数式処理の本質部分を効率よく学ぶために，
# 入力できる算術式の構文を，次の BNF で定めるものに限る．
#
# 定数 ::= 0 | 1 | … | 9
# 変数 ::= a | b | … | z | A | B | … | Z
# 算術式 ::= 定数
# | 変数
# | (算術式+算術式)
# | (算術式*算術式)
#
# つまり，１桁の定数や１文字の変数の和や積からなる式が入力である．
#
# 入力された算術式を読み込み，２分木データとして格納し，そのデータをもとに
# 入力と同じ算術式を表示する，という処理を繰り返すプログラムを作れ．
#
# 次の要求を満たすものを作り，仕様の不明確な部分は各自で詳細化すること．
#
# ・算術式は標準入力から読む
# ・２つの算術式の区切りは１つの空白 (間隔文字や改行文字など) とする
# ・結果は標準出力に書く
# ・構文に合わない算術式を読んだらプログラムを終了する

# ●基本課題 2b（数式の値の計算）
#
# 課題 2a のプログラムに，算術式の値を計算して表示する機能を追加せよ．
# ただし，変数の値は全て１であるとして，式の値を求めること．
#
# 例えば，入力が (2*3) と (x+(y+z)) の場合，次のような出力をすればよい．
# show: に続いて入力された算術式を，eval: に続いて算術式の値を表示している．
#
# (2*3) ←入力
# show: (2*3)
# eval: 6
#
# (x+(y+z)) ←入力
# show: (x+(y+z))
# eval: 3
#
# まず，算術式の値を求める関数 eval_exp()（exp.c にある）を完成させる．
# 十分な数の検査データを使って動作の正しさを確かめよ．

# ●基本課題 2c（数式データの基本操作）
#
# 算術式の値を変えずに括弧をくくり直す簡単な式変形を考える．例えば，式
#
# (1+(2+3))
# (a*(b*c))
# ((i*x)+((j*y)+(k*z)))
#
# の括弧を左にくくり直すと，それぞれ，次の式になる．
#
# ((1+2)+3)
# ((a*b)*c)
# (((i*x)+(j*y))+(k*z))
#
# 括弧を左にくくり直せる (Ａ+(Ｂ+Ｃ)) や (Ａ*(Ｂ*Ｃ)) の形の算術式を
# ((Ａ+Ｂ)+Ｃ) や ((Ａ*Ｂ)*Ｃ) の形にする式変形は，式に対応する木を
# 「左に転回」する変形と捉えられる．

>>297
% Prolog

'1から10までの整数の2乗の和 1^2 + 2^2 + 3^2 + ... +8^2 + 9^2 + 10^2 を求める'(_経過,_和) :-
　　'1から10までの整数の2乗の和 1^2 + 2^2 + 3^2 + ... +8^2 + 9^2 + 10^2 を求める'(1,[],_経過,0,_和).

'1から10までの整数の2乗の和 1^2 + 2^2 + 3^2 + ... +8^2 + 9^2 + 10^2 を求める'(M,_経過,_経過,_和,_和) :- M > 10,!.
'1から10までの整数の2乗の和 1^2 + 2^2 + 3^2 + ... +8^2 + 9^2 + 10^2 を求める'(M,_経過1,_経過,S1,_和) :-
　　M =< 10,
　　concat_atom([M,'^2'],U),
　　append(_経過1,[U],_経過11),
　　concat_atom(_経過11,'+',_経過),
　　_和 is truncate(M ^ 2 + S1).
'1から10までの整数の2乗の和 1^2 + 2^2 + 3^2 + ... +8^2 + 9^2 + 10^2 を求める'(M,_経過1,_経過,S1,_和) :-
　　M =< 10,
　　concat_atom([M,'^2'],U),
　　append(_経過1,[U],_経過2),
　　S2 is truncate(M ^ 2 + S1),
　　M2 is M + 1,
　　'1から10までの整数の2乗の和 1^2 + 2^2 + 3^2 + ... +8^2 + 9^2 + 10^2 を求める'(M2,_経過2,_経過,S2,_和).

>>297
ruby
sum=0;array=[]
for i in 1..10
sum+=i**2
array.push (i.to_s(10)+"^2")
puts array.join(" + ") + " = " + sum.to_s(10)
end

>>297
使用言語：Io

なんか前にやった問題だなあと、ながめていたらrubyによる解答が
書き込まれた。これを参考にもう一度やってみた。

Io> s:=0;a:="";for(i,1,10,writeln(a=a .. i .. "^2"," = ",s=s+i*i);a=a .. " + ")

>>297
;; Common Lisp ひさしぶりに挑戦
(dotimes (n 10)
(let (lst)
(dotimes (i (+ n 1)) (push (+ i 1) lst))
(setf lst (reverse lst))
(format t "~A = ~A~%"
(reduce #'(lambda (x y) (concatenate 'string x " + " y))
(map 'list #'(lambda (x) (concatenate 'string (princ-to-string x) "^2")) lst))
(reduce #'+ (map 'list #'(lambda (x) (* x x)) lst)))))

>>297
使用言語：maxima

for i thru 10 do printf(true,"~{~a^2~^ + ~} = ~a~%",a:makelist(j,j,1,i),lsum(k*k,k,a));

http://pc12.2ch.net/test/read.cgi/tech/1260532772/864
# [1] 授業単元： プログラミング演習 (木構造と数式処理)
# [2] 問題文(含コード&リンク)：
#
# 算術式の値を変えずに括弧をくくり直す簡単な式変形を考える．例えば，式
#
# (1+(2+3))
# (a*(b*c))
# ((i*x)+((j*y)+(k*z)))
#
# の括弧を左にくくり直すと，それぞれ，次の式になる．
#
# ((1+2)+3)
# ((a*b)*c)
# (((i*x)+(j*y))+(k*z))
#
# 括弧を左にくくり直せる (Ａ+(Ｂ+Ｃ)) や (Ａ*(Ｂ*Ｃ)) の形の算術式を((Ａ+Ｂ)+Ｃ) や ((Ａ*Ｂ)*Ｃ) の形にする式変形は，式に対応する木を
# 「左に転回」する変形と捉えられる
#
# この操作を実行する関数 rotate_left_exp()を完成させてください。
# 括弧をくくり直すと値の変わる (8+(8*8)) のような式や，括弧をくくり直せる部分が内側にある (a+(b*(c*d))) のような式は，
# 変形しないこと．

>>297　訂正
% Prolog 一引数増やします。
'1から10までの整数の2乗の和 1^2 + 2^2 + 3^2 + ... +8^2 + 9^2 + 10^2 を求める'(M,_経過,_和) :-
　　'1から10までの整数の2乗の和 1^2 + 2^2 + 3^2 + ... +8^2 + 9^2 + 10^2 を求める'(1,M,[],_経過,0,_和).

'1から10までの整数の2乗の和 1^2 + 2^2 + 3^2 + ... +8^2 + 9^2 + 10^2 を求める'(M,M,_経過,_経過,_和,_和) :- M > 10,!.
'1から10までの整数の2乗の和 1^2 + 2^2 + 3^2 + ... +8^2 + 9^2 + 10^2 を求める'(M,M,_経過1,_経過,S1,_和) :-
　　M =< 10,
　　concat_atom([M,'^2'],U),
　　append(_経過1,[U],_経過11),
　　concat_atom(_経過11,'+',_経過),
　　_和 is truncate(M ^ 2 + S1).
'1から10までの整数の2乗の和 1^2 + 2^2 + 3^2 + ... +8^2 + 9^2 + 10^2 を求める'(M,MX,_経過1,_経過,S1,_和) :-
　　M =< 10,
　　concat_atom([M,'^2'],U),
　　append(_経過1,[U],_経過2),
　　S2 is truncate(M ^ 2 + S1),
　　M2 is M + 1,
　　'1から10までの整数の2乗の和 1^2 + 2^2 + 3^2 + ... +8^2 + 9^2 + 10^2 を求める'(M2,MX,_経過2,_経過,S2,_和).

>>308 (>>297)
% Prolog これで以下のように使います。

?- '1から10までの整数の2乗の和 1^2 + 2^2 + 3^2 + ... +8^2 + 9^2 + 10^2 を求める'(N,S,_和),write_formatted('%t=%t\n',[S,_和]),N>=10.
1^2=1
1^2+2^2=5
1^2+2^2+3^2=14
1^2+2^2+3^2+4^2=30
1^2+2^2+3^2+4^2+5^2=55
1^2+2^2+3^2+4^2+5^2+6^2=91
1^2+2^2+3^2+4^2+5^2+6^2+7^2=140
1^2+2^2+3^2+4^2+5^2+6^2+7^2+8^2=204
1^2+2^2+3^2+4^2+5^2+6^2+7^2+8^2+9^2=285
1^2+2^2+3^2+4^2+5^2+6^2+7^2+8^2+9^2+10^2=385

N = 10,
S = '1^2+2^2+3^2+4^2+5^2+6^2+7^2+8^2+9^2+10^2',
_和 = 385.

>>308 (>>297)
% Prolog または、次のように利用もします。

?- '1から10までの整数の2乗の和 1^2 + 2^2 + 3^2 + ... +8^2 + 9^2 + 10^2 を求める'(N,S,_和).

N = 1,
S = '1^2',
_和 = 1;
N = 2,
S = '1^2+2^2',
_和 = 5;
N = 3,
S = '1^2+2^2+3^2',
_和 = 14;

<中略>

N = 9,
S = '1^2+2^2+3^2+4^2+5^2+6^2+7^2+8^2+9^2',
_和 = 285;
N = 10,
S = '1^2+2^2+3^2+4^2+5^2+6^2+7^2+8^2+9^2+10^2',
_和 = 385;
no.
?-

http://pc11.2ch.net/test/read.cgi/db/1252492296/445
# MySQL 5.1での質問です。
#
# A B C
# 1 q name1
# 2 w name2
# 3 e name3
# 4 q name4
# 5 t name5
#
# 上記テーブルのB列の重複を除いたA,B,C列がほしい場合
#
# SELECT DISTINCT B FROM table_name;
#
# ではB列の重複を除くだけで他の列がとれません。他の列も併せて取得する場合はど
のような解決策がありますか？
#
# 望んでる結果は以下のものです。
#
# A B C
# 1 q name1
# 2 w name2
# 3 e name3
# 5 t name5
#

ttp://pc12.2ch.net/test/read.cgi/tech/1260532772/866
#
# 【質問テンプレ】
# [1] 授業単元：C言語演習
# [2] 問題文(含コード&リンク)： コマンド引数を使用して
# 以下のように指定した文字列中の指定番号の文字を表示するプログラムを作成せよ。
#
# 例：./prg1 abcde 1
# char 1 is "a"
# ./peg1 abcdef123456 10
# char 10 is "4"
#
# エラー処理もしっかり行うこと。

>>311
使用言語：J

A=:,.1;2;3;4;5
B=:'q';'w';'e';'q';'t'
C=:,.'name1';'name2';'name3';'name4';'name5'

A,.B,.C
+-+-+-----+
|1|q|name1|
+-+-+-----+
|2|w|name2|
+-+-+-----+
|3|e|name3|
+-+-+-----+
|4|q|name4|
+-+-+-----+
|5|t|name5|
+-+-+-----+

(~:B)# A,.B,.C
+-+-+-----+
|1|q|name1|
+-+-+-----+
|2|w|name2|
+-+-+-----+
|3|e|name3|
+-+-+-----+
|5|t|name5|
+-+-+-----+

http://pc12.2ch.net/test/read.cgi/tech/1260532772/881
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10376.txt
#
# 連立１次方程式の一般的な数値解法にはガウスの単純消去法がある。
# 下記の連立１次方程式の解法をC言語で表せ。
#
# x1 + 5x2 + x3 = 2
# 3x1 + 4x2 = 2
# 9x1 +10x2 + 4x3 = 8

http://pc12.2ch.net/test/read.cgi/tech/1260532772/881
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10376.txt
#
# 問題文の構造が大きすぎてコピーできません。[2]のリンクを各自で見てください。

>>313
解説お願い。

>>315 は>>314と同じものになってしまいました。構造が多くてコピーできなかったのは
以下の問題です。
http://pc12.2ch.net/test/read.cgi/tech/1260532772/885
# [1] 授業単元：プログラミング（大学講義）
# [2] 問題文
# ハングマンを作成せよ。
# http://ime.nu/ipl.sfc.keio.ac.jp/text/comp-prog-2007-4/main_c9.html#doc1_id2542
# http://ime.nu/ipl.sfc.keio.ac.jp/text/comp-prog-2007-4/main_c10.html#doc1_id2748
#

>>316
「~.」が通常のuniqですが、AとCを道連れにするするために
「~:」を使いました。これは、いきなりuniqせずに残す要素を1で
削除する要素を0で表したリストを返します。
「#」はコピーなんですが、1と0のリストを左引数に、操作するデータ
を右引数にすると1に対応するデータだけを返します。
B=:,.'q';'w';'e';'q';'t'
~. B
+-+
|q|
+-+
|w|
+-+
|e|
+-+
|t|
+-+

~: B
1 1 1 0 1

1 1 1 0 1 # B
+-+
|q|
+-+
|w|
+-+
|e|
+-+
|t|
+-+

>>318
「~:」によって、どうして、
01111 ではなく 11101 の選択になるのですか？

http://pc12.2ch.net/test/read.cgi/tech/1260532772/894
# お願いします
# [1] 授業単元： プログラミング演習�
# [2] 問題文(含コード&リンク)：
# Printfを作る。
# %d, %c, %sのみサポートする。

>>319
J言語のuniqは重複した要素の内、最初にあらわれたものを
残すようです。

http://pc12.2ch.net/test/read.cgi/tech/1258320456/85
# 【課題】
# 同じ長さのリストA,Bがある。Aはソート対象のデータ、Bは比較用の値が入っている。
# A,Bの2つの引数をとり、Bの値が昇順になるようにAをソートする関数を定義しなさい。
# 引数のリストは破壊しても良く、ソート結果は戻り値・引数Aを上書きのどちらでも良い。
# 処理の早いものには追加点を与える。
#

>>321
ご丁寧な回答に感謝します。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/911
# お願いします
# [1] 授業単元：電子演算機演習
# [2] 問題文(含コード&リンク)：
# 　２次元の文字配列が、main関数内において次の詞で初期化（空白行も含める）されている。
# 例によって、初期化に用いられた詞の文字数や行数などはわかっていないものとする。
#
# 　（１）関数NumOfCharで総文字数（空白以外）を、（２）関数NumOfWordで単語数を、（３）関数
# 　NumOfLineで行数（空白行は数えない。また、空白行が２行以上続くことはない）を、（４）main
# 　関数内でキーボードから一文字入力し、関数NumOfCoinで入力した文字と一致する文字数を数えて、
# 　main関数内でそれらの数を表示する。文字列に小細工をしないこと（単語：空白又は改行から空白
# 　又は改行まで）

http://pc12.2ch.net/test/read.cgi/tech/1248012902/728
# 【 課題 】国旗を表示するプログラム（日の丸、星条旗、ユニオンジャック等）を作れ。 指定された国旗を画面に表示する。少なくても8種類以上。 国旗の指定にはメニューとかボタンとかを表示して、選択させること。
# 国旗は図形として描くこと。写真を貼り付けたりしては駄目。

http://pc12.2ch.net/test/read.cgi/tech/1262163854/238
# Repl-Aceというテキスト置換ツールを使っているんですが、
#
# 1月
# ・1日
# ・2日
# ・3日
# 2月
# ・1日
# ・2日
# ・3日
#
# といったテキストを、
#
# 1月1日
# 1月2日
# 1月3日
# 2月1日
# 2月2日
# 2月3日
#
# といったように置換することができず困っています。
# 単純な文字の置換や簡単な正規表現は理解できるのですが、
# 1月から2月までの「・」を「1月」に置換、2月から3月までの「・」を「2月」に置換、3月から（ry
# を一気に行えるような正規表現ってありますか？

http://pc12.2ch.net/test/read.cgi/tech/1258320456/85
# 【課題】
# 同じ長さのリストA,Bがある。Aはソート対象のデータ、Bは比較用の値が入っている。
# A,Bの2つの引数をとり、Bの値が昇順になるようにAをソートする関数を定義しなさい。
# 引数のリストは破壊しても良く、ソート結果は戻り値・引数Aを上書きのどちらでも良い。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/922
# visual studioのwindowsフォームアプリケーション　visual C++のプログラミングについて質問です！！
# かなり急いでます。
# チェックボックスを５個とボタン１個を使いアンケートみたいなプログラムを作りたいのですができません。
#
# 内容としてはチェックの数で表示される答えを違うようにしたいのです。
# ０〜１個つけたら良い
# ２〜３個つけたら普通
# ４〜５個つけたら悪い
# みたいな感じで最後にボタンを押したら評価がでてくるというものです。
# すべてのプログラムを教えてください！！

>>326
% Prolog

'1月から2月までの「・」を「1月」に置換、2月から3月までの「・」を「2月」に置換、
3月から...'(File) :-
　　get_lines(File,Lines),
　　月表示行まで読み飛ばし(Lines,R,_月),
　　'.を月表示に置換'(Lines,_月,L),
　　ならびを行表示(L).

'.を月表示に置換'([],_,[]) :- !.
'.を月表示に置換'([A|R1],_月,X) :-
　　sub_atom(A,_,1,_,'月'),
　　split(A,[月],[_月2|_]),
　　'.を月表示に置換'(R1,_月2,X).
'.を月表示に置換'([A|R1],_月,[B|R2]) :-
　　sub_atom(A,0,1,_,'.'),
　　concat_atom([_月,A],B),
　　'.を月表示に置換'(R1,_月,R2).

月表示行まで読み飛ばし(Lines,Lines2,_月) :-
　　append(_,[A|Lines2],Lines),
　　sub_atom(A,_,1,_,'月'),
　　split(A,[月],[_月|_]),!.

http://pc12.2ch.net/test/read.cgi/tech/1248012902/730
# 【　課題　】http://ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/881.zip
# Kadai.javaを以下のステップに沿って改めなさい。
# ファイル名およびクラス名はステップに沿ってKadai1,Kadai2というようにKadai+数字としなさい。
#
# Step1.
# 「入力」が押されると、テキストフィールドに入力されている文字とチェックボック>ス の状態を読み取って「名前，出席する(or しない)，10000円(or 0円)」と、氏名、同窓 会の出欠、参加費をカンマ区切りでコマンドプロンプトに出力する機能を追加しなさい 。
#
# Step2.
# 「キャンセル」が押されるとテキストフィールドをクリアし、(もしチェックボックスにチェックされていれば)チェックを外す機能を追加しなさい。
#
# Step3.
# Step1と同じ内容をファイル「出席.txt」に書き込む(追い書き)する機能を追加しなさい。
#
# Step4.
# 右上の「×」ボタンを押す事でプログラムを終了する機能を追加しなさい。keizo@keiizo98:~/Desktop$

http://pc12.2ch.net/test/read.cgi/tech/1260532772/934
# [1]授業単元：C言語実習（専門学校：選択授業）
# [2]課題：
# コマンドライン引数に与えられた英数字からなる文字列を、長さが長いものが先、同じ長さのものどう
# しでは辞書に記載される場合に先頭のほうに書かれるものが先に出力されるように出力するCを作る。
# 引数が与えられてない場合は、何も出力しない。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/942
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10378.txt
# リスト操作関数を作成する問いが5題ある。なお、ここで扱うリストは、ASCII文字を要素とする、頭を持った連結リスト（「文字リスト」と呼ぶ）である。
#
# ●問1．文字リストを作成する関数と印字する関数
#
# 与えられた文字列の各文字を要素とする文字リストを作成し返す関数make_clistと、与えられた文字リスト
# の内容を印字する関数print_clistを作成せよ。
#
# 　【問1.については過去ログ等を調べつつ解答を導き出すことができました。コードを最下方に載せます。】
#

http://pc12.2ch.net/test/read.cgi/tech/1260532772/942
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10378.txt
# ●問2.リストの内容を比較する関数
#
# 　与えられた二つのリストに含まれる文字の並びを辞書式順序(※)で比較し、第一のリストの方が小さければ負の
# 値、大きければ正の値、等しければ0を返す関数compareを作成せよ。
#

http://pc12.2ch.net/test/read.cgi/tech/1260532772/942
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10378.txt
# ●問3.リストの一部を取り除く関数
#
# 　与えられた文字リストの先頭から見ていき、要素が'<'なら自身と(あれば)直前の要素を、'>'なら自身
# と(あれば)直後の要素を取り除く関数editを作成せよ。
#

http://pc12.2ch.net/test/read.cgi/tech/1260532772/942
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10378.txt
# ●問4.リストの一部を別のリストの内容で置き換える関数
#
# 　引数として三種のリストが与えられると、第一のリスト内に含まれる第二のリストに一致する部分を第三の
# リストに置き換える関数replaceを作成せよ。ただし新たにリストを作成するのではなく、与えられたリスト
# の変形で実現すること。一度置き換えた部分を再び置き換えの対象としなくてよい。また関数の戻り値として
# 置き換えを行った回数を返すこと。

http://pc12.2ch.net/test/read.cgi/tech/1260532772/942
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10378.txt
# ●問5.複数回出現する要素からなるリストを返す関数
#
# 　与えられた文字リスト中で複数回現れる文字を残して得られるリストを作成する関数multipleを作成せよ。
# ただし新たにリストを作成するのではなく、与えられたリストの変形で実現すること。また複数回現れる同種
# の文字は、そのいずれか1つだけを残すこと。

>>327
A=:'chihayafuru';'yothubato';'tomehane'
B=:7;9;6
mysort=: /:

mysort B　　　単項演算子として使うと並べ替えるための指標（0オリジン)を返す。
2 0 1

A mysort B　　二項演算子として使うと右引数のデータでつくった指標で左引数のデータを並べ替える。
+--------+-----------+---------+
|tomehane|chihayafuru|yothubato|
+--------+-----------+---------+

>>312
% Prolog

program :-
　　user_parameters(L),
　　L = [S,A|_],
　　atom_to_term(A,N,_),
　　integer(N),
　　sub_atom(S,N,1,_,X),
　　write_formatted('Char %t is "%t"\n',[N,X]),
　　halt.

>>331
--luaで。　優先順位は、長さ＞大文字区別無し辞書＞バイナリ
function f(a,b)
if a:len()==b:len() then
if a:lower()==b:lower() then return a<b end
return a:lower()<b:lower()
end
return a:len()>b:len() and true or false
end
t={}
for i=1,#arg do
table.insert(t,arg[i])
end
print("before") print(unpack(t))
table.sort(t,f)
print("after") print(unpack(t))

ふらっとC#からきました。
宿題ではないんですが、C#でマルコフ連鎖で人工無脳を作りたいのです。
文章を単語に分けたあと(ここまではできてます)、それを配列にいれるんですか?
Rubyだとこう書くらしいんだけど、これをC#だとどう書けばいいんでしょう?
分かち書きにはChasenを使っています。
よろしくアドバイスお願いします。

# マルコフ連鎖で要約
t1 = data[0]['head']
t2 = data[0]['middle']
new_text = t1 + t2
while true
_a = Array.new
data.each do |hash|
_a.push hash if hash['head'] == t1 && hash['middle'] == t2
end

break if _a.size == 0
num = rand(_a.size) # 乱数で次の文節を決定する
new_text = new_text + _a[num]['end']
break if _a[num]['end'] == "EOS"
t1 = _a[num]['middle']
t2 = _a[num]['end']
end

http://d.hatena.ne.jp/zariganitosh/20090628/1246186477

http://pc12.2ch.net/test/read.cgi/tech/1260532772/977
# [1] 授業単元：C言語
# [2] 問題文(含コード&リンク)：異なる自然数p,qと、もう一つの自然数dを入力する。
# d以下の自然数kのうちで、k=mp+nqと表すことの出来るもの(m,nは自然数)を小さい順に表示し、
# 最後にその個数を表示するプログラムを作成せよ。入力する数字はp、q、dの順とする
#
# 実行例
# 3 5 10
# 3 5 6 8 9 10
# 合計で6個あります

http://pc12.2ch.net/test/read.cgi/tech/1260532772/963
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)： http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10384.txt
# 括弧をすべて左にくくり直す式変形に加えて，分配法則を使って + を * の 外側へとくくり出す式変形をするプログラムを作ってください．
# ファイル exp.c に，+ を * の外側にくくり出す式変形をする 関数 dist_prod_exp() を作ること．
# 例えば，算術式 ((x+1)*(y+a)) の＋を外にくくり出し，括弧を左にくくり直すことで， 次の式が順に得られればよい．
# ((x+1)*(y+a))
# (((x*y)+(1*y))+((x*a)+(1*a)))
# ((((x*y)+(1*y))+(x*a))+(1*a))
#
# 分配法則を使う順序によっては，結果の式の形が変わる．((Ａ+Ｂ)*(Ｃ+Ｄ)) の形の式は，* の左の式 (Ａ+Ｂ) を先に分配すると (((Ａ+Ｂ)*Ｃ)+((Ａ+Ｂ)*Ｄ))
# になり，右の式 (Ｃ+Ｄ) を先に分配すると ((Ａ*(Ｃ+Ｄ))+(Ｂ*(Ｃ+Ｄ))) になる． 同じ位置で２通りに分配できる場合，この課題では，左の式の分配を優先する．
# ２分木の節を格納するためのデータ構造（Tree 型）を，次のように定義する．
#
# typedef struct _tree {
# char node; /* 節のデータ (1文字) */
# struct _tree *left; /* 左の子へのポインタ */
# struct _tree *right; /* 右の子へのポインタ */
# } Tree;

http://pc12.2ch.net/test/read.cgi/tech/1260532772/961
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： 4行4列のint型の行列を、転置するプログラムを作成し、
# 動作の確認のため、転置前と転置後 の行列の内容を表示するようにせよ。

>>343
% Prolog

'4行4列のint型の行列を、転置する'([[A1,A2,A3,A4],[B1,B2,B3,B4],[C1,C2,C3,C4],[D1,D2,D3,D4]],[[A1,B1,C1,D1],
A2,B2,C2,D2],[A3,B3,C3,D3],[A4,B4,C4,D4]]).

>>343
% Prolog "["がひとつ抜けた。これが答えといえるかどうか。

'4行4列のint型の行列を、転置する'([[A1,A2,A3,A4],[B1,B2,B3,B4],[C1,C2,C3,C4],[D1,D2,D3,D4]],[[A1,B1,C1,D1],[A2,B2,C2,D2],[A3,B3,C3,D3],[A4,B4,C4,D4]]).

少なくともint型の検査はできていない。

>>343
使用言語：J

a=:i.4 4
a
0 1 2 3
4 5 6 7
8 9 10 11
12 13 14 15

,./a　　　　　各行を「,.」で連結すると転置になる
0 4 8 12
1 5 9 13
2 6 10 14
3 7 11 15

|:a　　　　　　「|:」は組み込みの転置演算子
0 4 8 12
1 5 9 13
2 6 10 14
3 7 11 15

>>341
使用言語：J

f=:monad define
'p q d'=.y
a=./:~~.,(p*i.d)+/q*i.d
b=.}.(d>:a)#a
smoutput b
smoutput '合計で',(":#b),'個あります'
)

f 3 5 10
3 5 6 8 9 10
合計で6個あります

http://pc12.2ch.net/test/read.cgi/tech/1263824755/14
# [1] 授業単元： プログラミング演習�
# [2] 問題文(含コード&リンク)：
# 終了時、xとB、まらはAとHの内積のどちらかが０のプログラム。
# （xを入力→Hを設定）
# AとBはそれぞれHやxの最小多項式の係数となるはず。
# X1=(x1,...,xn)の転置行列;
# H=(X1,...,Xt);

>>347
プログラムというのは何をするのかを示すことなのではないか？

http://pc12.2ch.net/test/read.cgi/tech/1263824755/22
# [1] 授業単元： プログラミング
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10392.txt
#
# 練習問題１＊
# 　以下に示すプログラムは、リストを操作するプログラムの一部である。このプログラムに、ジストの指定した位置（末尾以外）にノードを挿入する関数insert_nodeと、
# リストの指定した位置のノードを削除する関数delete_nodeを追加し、プログラムを完成させよ。
# 　insert_nodeは引致として挿入位置の情報リストの何番目のノードかという情報）とデータ（文字列）を受け取るも
# のとする。また、挿入位置に元々あったノードは、新しく挿入するノードの次の要素となるものとする。
# 　リストの先頭ノードとして挿入される場合にも正しく動くようにすること。
# 　delete_nodeは、引数として削除位置の情報を受け取る。リストの先頭のノード、最後のノード、途中のノードが削除されたときにそれぞれ正しく動くようにすること。
# また、ノードが１個しかない場合にも正しく動＜ようにすること。

>>350
この問いかけはどう受け取ればいいのでしょうか。
「あなたの書き込みは組み込み機能の紹介で
プログラムじゃないよ」ということですか？

>>352
半分は自問。
http://pc12.2ch.net/test/read.cgi/tech/1263289291/　の第一夜を書いたのは
私です。このスレの最後に書き込まれた
>>第二夜?は第一夜とは正反対の主張の方と考えてよいのでしょうか？
を読んで書いてみたのが>>345です。>>347は説明的で冗長な>>345の対極にあるかなと思い、
さらに>>350で問いかけました。
私は、オペレータを知らないとそのプログラムの意味がわからない(APL的)ことは、
関数型言語の欠点ではないかと思っています。

補足。説明を論理式で書き表すことができるならば、その論理式が
すなわちプログラムである。というのがPrologの"売り"なんですね。
上の論理式の部分を数式に置き換えて、はたして本当にその数式が
"説明"になっているかということを問題にしているのです。常に
完全に理解している事が前提になっているのではないか、と。

>>354
プログラムを使うためのもの見るか、理解するためのものと見るかという違いかな。
このスレの魅力は議論を排除してプログラムコードが並んでいるところだから、
ここではあまりやって欲しくはないが、興味深いテーマではあるね。

>>353

>私は、オペレータを知らないとそのプログラムの意味がわからない(APL的)ことは、
>関数型言語の欠点ではないかと思っています。

知らないとわからないのは、あたりまえです。
手続き型言語をひとつ覚えると他の手続き型言語のコードがなんとなくわかる
気がするのは前提とする知識がほとんど同じだからじゃないでしょうか。

http://pc12.2ch.net/test/read.cgi/tech/1260922392/22
# 次のゲームを考える
# ・二人のプレイヤーA、Bにそれぞれ持ち点ｍ点を与える
# ・コイントスをして表が出たらAからBへ、裏が出たらBからAへ、１点渡す
# ・コイントスをくりかえして先に持ち点がなくなったほうが負け
#
# 一個の自然数ｍをキーボード入力から読み取ってこのゲームをたとえば１０００ゲーム繰り返して、
# 平均何回のコイントスで勝負がつくか、シュミレーションして求めるプログラムを作成してください。
# ただしコイントスを10000回繰り返しても勝負がつかない場合があるかもしれないので、それは回数オーバーとして別にカウントしてください。
#

http://pc12.2ch.net/test/read.cgi/tech/1200175247/797
# 質問です！
# 文字列を受け取ってスペースと記号を削除した文字列を返すメソッドを作りたいんですが
# どうすればいいでしょうか？
# ちなみに条件はgsubメソッドをつかうこと
# 記号は全角も半角も含む（","とか"。"とか"?"とか"？"とか）
# どなたかお願いします
#

>>358
% Prolog

文字列を受け取ってスペースと記号を削除した文字列を返す(_文字列,_スペースと記号を削除された文字列) :-
　　atom_codes(_文字列,Codes),
　　文字コードならびからスペースと記号を削除する(Codes,Codes2),
　　atom_codes(_スペースと記号を削除された文字列,Codes2).

文字コードならびからスペースと記号を削除する([],[]) :- !.
文字コードならびからスペースと記号を削除する([A|R1],X) :-
　　全角記号範囲(_コード下限,_コード上限),
　　A >= _コード下限,A =< _コード上限,
　　文字コードならびからスペースと記号を削除する(R1,X),!.
文字コードならびからスペースと記号を削除する([A|R1],X) :-
　　半角記号範囲(_コード下限,_コード上限),
　　A >= _コード下限,A =< _コード上限,
　　文字コードならびからスペースと記号を削除する(R1,X),!.
文字コードならびからスペースと記号を削除する([A|R1],[A|R2]) :-
　　文字コードならびからスペースと記号を削除する(R1,R2),!.

全角記号範囲(41376,41726).

半角記号範囲(32,47).
半角記号範囲(58,64).
半角記号範囲(91,96).

>>358
使用言語：J

f=:-.&(ucp&',.?、。？')

a=:ucp'a,い、b?ろ？c.は。'
f a
aいbろcは

>>358
使用言語：J

NB.f=:-.&(ucp&',.?、。？')間違えたので、訂正します。ucpの後ろの&はいりませんでした。

f=:-.&(ucp',.?、。？')

a=:ucp'a,い、b?ろ？c.は。'

f a
aいbろcは

http://pc12.2ch.net/test/read.cgi/tech/1263824755/31
# [1] プログラミング実習
# [2] http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10397.txt
#
# 以下に示すプログラムは、リストを操作するプログラムの一部である。この
# プログラムに、リストの指定した位置（末尾以外）にノードを挿入する関数insert_nodeと、
# リストの指定した位置のノードを削除する関数delete_nodeを追加し、プログラムを完成させよ。
# insert_nodeは引数として挿入位置の情報（リストの何番目かという情報）とデータ（文字列）を受け取るものとする。
# また、挿入位置にもともとあったノードは、新しく挿入するノードの次の要素となるものとする。
# リストの先頭ノードとして挿入される場合も正しく動作するようにすること。
# delete_nodeは、引数として削除位置の情報を受け取る。リストの先頭のノード、
# 最後のノード、途中のノードが削除されたときにそれぞれ正しく動くようにすること。
# また、ノードが一個しかない場合も正しく動くようにすること。

http://pc12.2ch.net/test/read.cgi/tech/1248012902/755
# 【　課題　】インターネット書店を作成せよ
# 　　　　　　＜条件＞
# 　　　　　　・画面サイズ→VGAとする
# 　　　　　　・書籍は５ジャンル１５０冊
# 　　　　　　・１回の注文で５種類まで書籍を注文可能
# 　　　　　　・書籍の値段は２０円単位とし、書籍の値段は自由
# 　　　　　　・書籍価格の合計金額の２％のポイントが与えられる。（ただし、ポイントは第一ジャンルは２倍、第二ジャンルは３倍になる）
# 　　　　　　・注文終了後、注文確認画面で注文と支払い代金、獲得ポイントが確認できる。（支払い代金とは、注文図書の合計金額と消費税の和）
# 　　　　　　・貯まったポイントを併用して支払いが可能（ポイントの価値は、１ポイント１円）
# 　　　　　　・書籍の発送は電子メールの添付ファイルで行う（発送は出来なくてよい）
# 　　　　　　・ソフトキーボードのみ使用可能
#
# 【　補足　】実用的な画面インタフェースでは取消機能が必要であるが、ここでは取消機能については
# 　　　　　　考えなくてよい。
# 　　　　　　また、ユーザーは正しい操作を行うものと仮定して良い。

>>362 は >>351 と同じ問題でした。

>>357
% Prolog (その一)

一個の自然数ｍをキーボード入力から読み取ってこのゲームをたとえば１０００ゲーム
繰り返して、平均何回のコイントスで勝負がつくか、シュミレーションして求める(_平
均コイントス数) :-
　　催促付き整数入力('A,Bが持つコイン数を入力してください :',M),
　　このゲームをたとえば１０００ゲーム繰り返して、平均何回のコイントスで勝負が
つくか(1,M,_無効ゲーム数,_平均コイントス数),!.

このゲームをたとえば１０００ゲーム繰り返して、平均何回のコイントスで勝負がつく
か(M,_無効ゲーム数,_平均コイントス数) :-
　　このゲーム(1,M,_有効コイントス総数,_無効ゲーム数),
　　\+(_無効ゲーム数 = 1000),
　　_平均コイントス数 is _有効コイントス総数 / (1000 - _無効ゲーム数).

このゲーム(N,_,0,0) :- N > 1000,!.
このゲーム(N,M,_コイントス総数,_無効ゲーム数) :-
　　コイントスシミュレーション(1,M,M,_トス数),
　　N2 is N + 1,
　　このゲーム(N,_,_コイントス総数の二,_無効ゲーム数),
　　_コイントス総数 is _コイントス総数の二 + _トス数,!.
このゲーム(N,M,_コイントス総数,_無効ゲーム数) :-
　　N2 is N + 1,
　　このゲーム(N,M,_コイントス総数,_無効ゲーム数の一),
　　_無効ゲーム数 is _無効ゲーム数の一 + 1,!.

>>357 改行位置を間違えたので書き直し。
% Prolog (その一)

一個の自然数ｍをキーボード入力から読み取ってこのゲームをたとえば１０００ゲームを繰り返して、平均何回のコイントスで勝負がつくか、シュミレーションして求める(_平均コイントス数) :-
　　催促付き整数入力('A,Bが持つコイン数を入力してください :',M),
　　このゲームをたとえば１０００ゲーム繰り返して、平均何回のコイントスで勝負がつくか(1,M,_無効ゲーム数,_平均コイントス数),!.

このゲームをたとえば１０００ゲーム繰り返して、平均何回のコイントスで勝負がつくか(M,_無効ゲーム数,_平均コイントス数) :-
　　このゲーム(1,M,_有効コイントス総数,_無効ゲーム数),
　　\+(_無効ゲーム数 = 1000),
　　_平均コイントス数 is _有効コイントス総数 / (1000 - _無効ゲーム数).

このゲーム(N,_,0,0) :- N > 1000,!.
このゲーム(N,M,_コイントス総数,_無効ゲーム数) :-
　　コイントスシミュレーション(1,M,M,_トス数),
　　N2 is N + 1,
　　このゲーム(N,_,_コイントス総数の二,_無効ゲーム数),
　　_コイントス総数 is _コイントス総数の二 + _トス数,!.
このゲーム(N,M,_コイントス総数,_無効ゲーム数) :-
　　N2 is N + 1,
　　このゲーム(N,M,_コイントス総数,_無効ゲーム数の一),
　　_無効ゲーム数 is _無効ゲーム数の一 + 1,!.

>>357
% Prolog (その二)

コイントスシミュレーション(N,_,_,_) :- N > 10000,!,fail.
コイントスシミュレーション(N,A,B,N) :- コイントスをくりかえして先に持ち点がなくなったほうが負け(A,B,_),!.
コイントスシミュレーション(N,A1,B1,X) :-
　　コイントス(_表か裏か),
　　表が出たらAからBへ、裏が出たらBからAへ、１点渡す(表,A1,B1,A2,B2),
　　N2 is N + 1,
　　コイントスシミュレーション(N,A2,B2,X),!.

表が出たらAからBへ、裏が出たらBからAへ、１点渡す(表,A1,B1,A2,B2) :- A2 is A1 -1,B2 is B1 + 1,!.
表が出たらAからBへ、裏が出たらBからAへ、１点渡す(裏,A1,B1,A2,B2) :- B2 is B1 -1,A2 is A1 + 1,!.

コイントスをくりかえして先に持ち点がなくなったほうが負け(0,_,'Aの負け').
コイントスをくりかえして先に持ち点がなくなったほうが負け(_,0,'Bの負け').

コイントス(_表か裏か) :- N is (random mod 2) + 1,list_nth(N,[表,裏],_表か裏か).

>>351
% Prolog

'リストの指定した位置（末尾以外）にノードを挿入する'(_指定した位置,Node,_リスト,_挿入されたリスト) :-
　　insert_node(_指定した位置,Node,_リスト,_挿入されたリスト).

insert_node(_,_,[],_) :- !,fail.
insert_node(0,Node,_リスト,[Node|_リスト]) :- !.
insert_node(_指定した位置,Node,[A|R1],[A|R2]) :-
　　_指定した位置の一 is _指定した位置 - 1,
　　insert_node(_指定した位置の一,Node,R1,R2).

リストの指定した位置のノードを削除する(_指定した位置,_リスト,_指定した位置のノードが削除されたリスト) :-
　　delete_node(_指定した位置,_リスト,_指定した位置のノードが削除されたリスト).

delete_node(1,[_|R],R) :- !.
delete_node(_指定した位置,[A|R1],[A|R2]) :-
　　_指定した位置の一 is _指定した位置 - 1,
　　delete_node(_指定した位置の一,R1,R2).

>>332
% Prolog

与えられた文字列の各文字を要素とする文字リストを作成し返す(_文字列,_各文字を要素とする文字リスト) :-
　　make_clist(_文字列,_各文字を要素とする文字リスト).

make_clist(_文字列,_各文字を要素とする文字リスト) :-
　　sub_atom(_文字列,_,_文字列の長さ,_,_文字列),
　　make_clist(0,_文字列の長さ,_文字列,_各文字を要素とする文字リスト).

make_clist(N,N,_文字列,[]) :- !.
make_clist(N,_文字列の長さ,_文字列,[_文字|R]) :-
　　sub_atom(_文字列,N,1,_,_文字),
　　N2 is N + 1,
　　make_clist(N2,_文字列の長さ,_文字列,R).

与えられた文字列の各文字を要素とする文字リストの内容を印字する(_文字リスト) :-
　　print_clist(_文字リスト).

print_clist([]).
print_clist([_文字|R]) :-
　　put_char(_文字),
　　print_clist(R).

>>333
% Prolog

'与えられた二つのリストに含まれる文字の並びを辞書式順序(※)で比較し、第一のリストの方が小さければ負の値、大きければ正の値、等しければ0を返す'(_文字リスト_1,_文字リスト_2,_返り値) :-
　　compare(_文字リスト_1,_文字リスト_2,_返り値).

compare([],[],0).
compare([],[_|_],-1).
compare([_|_],[],1).
compare([A|_],[B|_],-1) :-
　　char_code(A,CodeA),CodeA >= 65,CodeA =< 90,
　　char_code(B,CodeB),CodeB >= 97,CodeB =< 122,
　　CodeC is CodeB - 32,
　　CodeC >= CodeA,!.
compare([A|_],[B|_],1) :-
　　char_code(A,CodeA),CodeA >= 97,CodeA =< 122,
　　char_code(B,CodeB),CodeB >= 65,CodeB =< 90,
　　CodeC is CodeA - 32,
　　CodeC =< CodeA,!.
compare([A|_],[B|_],-1) :- A @< B,!.
compare([A|_],[B|_],1) :- A @> B,!.
compare([A|R1],[A|R2],X) :-
　　compare(R1,R2,X).

>>334
% Prolog

'与えられた文字リストの先頭から見ていき、要素が"<"なら自身と(あれば)直前の要素を、">"なら自身と(あれば)直後の要素を取り除く'(_文字リスト,_編集された文字リスト) :-
　　edit(_文字リスト,_編集された文字リスト).

edit([],[]).
edit([_,'<'|R1],R2) :- edit(R1,R2),!.
edit(['>',_|R1],R2) :- edit(R1,R2),!.
edit([A|R1],[A|R2]) :- edit(R1,R2).

>>335
% Prolog の場合与えられたリストの変形(破壊代入)は使えない。

引数として三種のリストが与えられると、第一のリスト内に含まれる第二のリストに一致する部分を第三のリストに置き換える(_リスト_1,_リスト2,_リスト_3,L) :-
　　replace(_リスト_1,_リスト_2,_リスト_3,L).

replace(L1,L2,L3,L) :-
　　append(L0,L2,L4,L1),
　　append(L0,L3,L4,L).

>>336
% Prolog リストの変形では得られない点は同じ。

与えられた文字リスト中で複数回現れる文字を残して得られるリストを作成する(_文字リスト,_複数回現れる文字を残して得られるリスト) :-
　　multiple(_文字リスト,_複数回現れる文字を残して得られるリスト).

multiple(_文字リスト,_複数回現れる文字を残して得られるリスト) :-
　　findall(_文字,(append(L1,[_文字|L2],_文字リスト),\+(member(_文字,L1)),member(_文字,L2)),_複数回現れる文字を残して得られるリスト).

http://pc12.2ch.net/test/read.cgi/tech/1263824755/33
# [1] プログラミング基礎実習
# [2] 文字列strを逆順に格納する関数("SEC"を受け取ったら"CES"とする)
# void rev_string(char str[]){ /*…*/ }
# を作成せよ。

>>374
% Prolog 全然、説明的でない例

'文字列strを逆順に格納する'(_Str,Rstr) :-
　　rev_string(Str,Rstr).

rev_string(Str,Rstr) :-
　　sub_atom(Str,_,Len,_,Str),
　　findall(Char,(for(0,N,Len-1),sub_atom(Str,_,1,N,Char)),L),
　　concat_atom(L,Rstr).

>>374
% Prolog ふつうは

'文字列strを逆順に格納する'(_Str,Rstr) :-
　　rev_string(Str,Rstr).

rev_string(Str,Rstr) :-
　　atom_chars(Str,Chars),
　　rev_string(Chars,[],RChars),
　　atom_chars(Rstr,RChars).

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

http://pc12.2ch.net/test/read.cgi/tech/1263824755/38
# 長くなったのでうｐロダお借りしました。
#
# 問題１
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10399.txt
# コピーさせていただきました http://nojiriko.asia/data/10399.txt

http://pc12.2ch.net/test/read.cgi/tech/1263824755/38
# [1] 授業単元：応用プログラミング
# [2] 問題文(含コード&リンク)：
# 直方体のデータが格納されたファイルを取り扱うプログラムを実装したい。
# プログラムリスト中に必要な関数を実装し、プログラムを完成させよ。尚、プログラムは以下の前提条件（１）−（４）を満たすよう作成せよ。
# （１）新たに大域変数やクラス、クラス内のメンバ変数を宣言してはならない。
#（２）main関数を含む既存の関数、クラス内のメンバ変数は一切変更してはならない。
#（３）直方体のデータが一行毎に、直方体の名前、幅、奥行き、高さ、の順に、スペース区切りで格納されているファイルを読み込める。
#（４）最大２０個分のデータを読み込める。
#（５）初めに読み込むファイル名を入力した後、読み込んだデータ数を表示する。
#（６）（５）の表示後、以下に示す操作が繰り返し実行可能であること。
#　　　操作方法と出力の詳細については、実行例を参考にすること。
#　　　　（ア）データを読み込んだ順に表示する。
#　　　　（イ）体積、もしくは表面積の大きい順に表示する。
#　　　　（ウ）立方体、もしくは正四角柱のみを表示する。
#　　　　（エ）直方体を１個指定し、３辺の長さ（幅、奥行き、高さ）を指定した倍率だけ伸縮する。

昨日から悩んでいること。出題が
# 与えられた文字列の各文字を要素とする文字リストを作成し返す関数make_clistと、与えられた文字リスト
# の内容を印字する関数print_clistを作成せよ。
の場合、導入述語名は

'与えられた文字列の各文字を要素とする文字リストを作成し返す関数make_clistと、与えられた文字リストの内容を印字する関数print_clistを作成せよ'(_文字リスト_1,_文字リスト_2,_返り値) :-
　　make_list(_文字リスト_1,_文字リスト_2,_返り値).

であるべきか、あるいは、>>370のように、
'与えられた二つのリストに含まれる文字の並びを辞書式順序(※)で比較し、第一のリストの方が小さければ負の値、大きければ正の値、等しければ0を返す'(_文字リスト_1,_文字リスト_2,_返り値) :-
　　compare(_文字リスト_1,_文字リスト_2,_返り値).

とした方がよいか・・。　前の方の定義だと引数を持っていることが不自然かなと思い採用しなかった。

>>379
二番目の定義が次の問題になってしまった。結果として意味不明。
make_clistがmake_listになってるところもあるし。>>379はなかったことにしてください。

>>341
% Prolog

'異なる自然数p,qと、もう一つの自然数dを入力する。d以下の自然数kのうちで、k=mp+nqと表すことの出来るもの(m,nは自然数)を小さい順に表示し、最後にその個数を表示する' :-
　　'異なる自然数p,qと、もう一つの自然数dを入力する'(_p,_q,_d),
　　findall(K,'d以下の自然数kのうちで、k=mp+nqと表すことの出来るもの(m,nは自然数)を小さい順に集め'(_p,_q,_d,L),
　　concat_atom(L,' ',S),
　　write_formatted('%t\n',[S]),
　　length(L,_その個数),
　　write_formatted('合計で%t個あります\n',[_その個数]),!.

'異なる自然数p,qと、もう一つの自然数dを入力する'(_p,_q,_d) :-
　　get_line(Line),
　　split(Line,[' '],[_p,_q,_d]),!.

'd以下の自然数kのうちで、k=mp+nqと表すことの出来るもの(m,nは自然数)を小さい順に集め'(_p,_q,_d,_kならび) :-
　　findall(N,for(0,N,10),L1),
　　findall(_k,(for(0,_k,_d),順列(L1,2,[_m,_n]),'d以下の自然数kのうちで、k=mp+nqと表すことの出来るもの'(_p,_q,_d,_m,_n,_k)),_kならび),!.

'd以下の自然数kのうちで、k=mp+nqと表すことの出来るもの'(_p,_q,_d,_m,_n,_k) :-
　　_k is _p * _m + _q * _n,
　　_k =< _d,!.

>>381 訂正
% Prolog

'異なる自然数p,qと、もう一つの自然数dを入力する。d以下の自然数kのうちで、k=mp+nqと表すことの出来るもの(m,nは自然数)を小さい順に表示し、最後にその個数を表示する' :-
　　'異なる自然数p,qと、もう一つの自然数dを入力する'(_p,_q,_d),
　　'd以下の自然数kのうちで、k=mp+nqと表すことの出来るもの(m,nは自然数)を小さい順に集め'(_p,_q,_d,L),
　　'表示し'(L),
　　最後にその個数を表示する(L),!.

表示し(L) :-
　　concat_atom(L,' ',S),
　　write_formatted('%t\n',[S]),!.

最後にその個数を表示する(L) :-
　　length(L,_その個数),
　　write_formatted('合計で%t個あります\n',[_その個数]),!.

'異なる自然数p,qと、もう一つの自然数dを入力する'(_p,_q,_d) :-
　　get_line(Line),
　　split(Line,[' '],[_p,_q,_d]),!.

'd以下の自然数kのうちで、k=mp+nqと表すことの出来るもの(m,nは自然数)を小さい順に集め'(_p,_q,_d,_kならび) :-
　　findall(N,for(0,N,10),L1),
　　findall(_k,(for(0,_k,_d),順列(L1,2,[_m,_n]),'d以下の自然数kのうちで、k=mp+nqと表すことの出来るもの'(_p,_q,_d,_m,_n,_k)),_kならび),!.

'd以下の自然数kのうちで、k=mp+nqと表すことの出来るもの'(_p,_q,_d,_m,_n,_k) :-
　　_k is _p * _m + _q * _n,
　　_k =< _d,!.

http://pc12.2ch.net/test/read.cgi/tech/1248012902/771
# 【　課題　】
# サーバとクライアントでの間で文字列を送り合うプログラムをつくれ。
# ただし、以下の条件を満たすようにすること。
# アドレス、ポート、名前、文字列はキーボード入力し、お互いに自由に指定できるようにする。
# クライアントで quit が入力された場合、クライアントは接続を切りプログラムを終了し、
# サーバは接続が切られたら、次のクライアントの接続を待つ
# サーバで quit が入力された場合、サーバは接続を切り、次のクライアントの接続を待ち、
# クライアントは接続が切られたらプログラムを終了する
# エンターキーのみが入力された場合は、文字列を送らずもう一度文字列を入力させて、
# その文字列を送るようにする。

http://pc12.2ch.net/test/read.cgi/tech/1263824755/74
# [1] 授業単元：プロトタイプ宣言
# [2] 問題文(含コード&リンク)：『私は○○です』と表示する関数を作成して
# main関数でそれを三回呼び出して、画面に三回出力プログラムを作成せよ。
# 表示のための関数の名前は『display_name』とせよ
#

>>384
% Prolog programがmainにあたる。

display_name :-
　　write('私は○○です\n').

program :-
　　for(1,N,3),display_name,N=3,halt.

>>384

このプログラムのドコが「説明を論理式で書き表すことができるならば、
その論理式がすなわちプログラムである」のだろうか。

アンカミス
X:>>384 --> O:>>385

http://pc12.2ch.net/test/read.cgi/tech/1263824755/77
# [1] 授業単元：プログラミング実習
# [2] 問題文:クラスタリングk-means法
# １、初期値として、クラスタ数および初期のデータ分割を与える。
# 　２、データ分割に基づき各分割の重心を求める。
# 　　　さらに、重心と各事例データとの距離を求める
# 　３、各事例を最も近いクラスタに割り当てる。
# 　４、上記の割り当てが前回と同じであれば終了。
# 　　　更新があれば２に戻る

http://pc12.2ch.net/test/read.cgi/tech/1263824755/79
# [1] 授業単元：応用プログラミング
# [2] 問題文(含コード&リンク)：
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10409.txt
#
# 直方体のデータが格納されたファイルを取り扱うプログラムを実装したい。
# プログラムリスト中に必要な関数を実装し、プログラムを完成させよ。尚、プログラムは以下の前提条件（１）−（４）を満たすよう作成せよ。
#　（１）新たに大域変数やクラス、クラス内のメンバ変数を宣言してはならない。
#　（２）main関数を含む既存の関数、クラス内のメンバ変数は一切変更してはならない。
#　（３）直方体のデータが一行毎に、直方体の名前、幅、奥行き、高さ、の順に、スペース区切りで格納されているファイルを読み込める。
#　（４）最大２０個分のデータを読み込める。
#　（５）初めに読み込むファイル名を入力した後、読み込んだデータ数を表示する。
#　（６）（５）の表示後、以下に示す操作が繰り返し実行可能であること。
#　　　操作方法と出力の詳細については、実行例を参考にすること。
#　　　　（ア）データを読み込んだ順に表示する。
#　　　　（イ）体積、もしくは表面積の大きい順に表示する。
#　　　　（ウ）立方体、もしくは正四角柱のみを表示する。
#　　　　（エ）直方体を１個指定し、３辺の長さ（幅、奥行き、高さ）を指定した倍率だけ伸縮する。

>>386 >>387

>>382 の方ではなくて？ これは結構苦闘してる。
>>385 は「説明を論理式で書き表すことができるならば、その論理式がすなわちプログラムである」の
意識の全くないプログラムだけど。題意もつかめなかった。

>>386

>>385 は
# prolog -e 私は○○です.pro
私の名前は○○です
#
と表示されるためには、mainではなく、述語名がprogramである必要が
あることを示すために書いたコードです。

すみません。私の名前は○○ですを3回繰り返すのを忘れました。

>>384
% Prolog この問題は編集を余儀なくされました。もっと素直な表現がありそう。

program :-
　　『私は○○です』と画面に表示する関数display_nameを三回呼び出して出力する,
　　終了.

『私は○○です』と画面に表示する関数display_nameを三回呼び出して出力する :-
　　display_name,
　　display_name,
　　display_name.

display_name :- write('私は私は○○です\n').

終了 :- halt.

--lua
function display_name()
print "私は私は○○です"
end
function main()
display_name()
display_name()
display_name()
end
main()

>>379 でそれに関することを書きたかったのですが、
># [2] 問題文(含コード&リンク)：『私は○○です』と表示する関数を作成して
># main関数でそれを三回呼び出して、画面に三回出力プログラムを作成せよ。
># 表示のための関数の名前は『display_name』とせよ

「関数を作成して」あたりを切り落としたくないのですが、述語名に取り込む
方法が今のところ見つからない。

function display_name(name)
print("私は私は"..name.."です")
end
function main()
name=io.read()
display_name(name)
name=io.read()
display_name(name)
name=io.read()
display_name(name)
end
main()

>>395 これではだめかいwww

program :-
　　『私は○○です』と表示する関数を作成してmain関数でそれを三回呼び出して、画
面に三回出力プログラムを作成せよ .

『私は○○です』と表示する関数を作成してmain関数でそれを三回呼び出して、画面に
三回出力プログラムを作成せよ :-
　　『私は○○です』と表示する関数を作成して ,
　　main.

『私は○○です』と表示する関数を作成して　:-
　　assertz((display_name :- write('私は○○です\n'))).

main :- display_name,display_name,display_name.

>>389　の　http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10409.txt
には大量の実行例とデータが載っています。2レスに分けて掲載します。
# [実行例]
# ファイル名を入力して下さい => data.txt
# 5個のデータを読み込みました.
# 1: 入力順に表示 2: 整列 3: 探索 4: 拡大・縮小 0: 終了
# 何をしますか？ => 1
# No. Name Width Depth Height Volume Area
# [ 1] A 1 2 3 6 22
# [ 2] B 3 3 3 27 54
# [ 3] C 3 2 1 6 22
# [ 4] D 2 2 2 8 24
# [ 5] E 5 1 5 25 70
# 1: 入力順に表示 2: 整列 3: 探索 4: 拡大・縮小 0: 終了
# 何をしますか？ => 1
# 何順に整列しますか？(0:体積 1:表面積) => 0
# No. Name Width Depth Height Volume Area
# [ 2] B 3 3 3 27 54
# [ 5] E 5 1 5 25 70
# [ 4] D 2 2 2 8 24
# [ 1] A 1 2 3 6 22
# [ 3] C 3 2 1 6 22

# 1: 入力順に表示 2: 整列 3: 探索 4: 拡大・縮小 0: 終了
# 何をしますか？ => 3
# 何を探索しますか？(0:体積 1:表面積) => 1
# No. Name Width Depth Height Volume Area
# [ 2] B 3 3 3 27 54
# [ 4] D 2 2 2 8 24
# [ 5] E 5 1 5 25 70
# 1: 入力順に表示 2: 整列 3: 探索 4: 拡大・縮小 0: 終了
# 何をしますか？ => 4
# どの直方体ですか？(1〜5) => 1
# 何倍しますか？ => 1.5
# 1: 入力順に表示 2: 整列 3: 探索 4: 拡大・縮小 0: 終了
# 何をしますか？ => 1
# No. Name Width Depth Height Volume Area
# [ 1] A 1.5 3 4.5 20.25 49.5
# [ 2] B 3 3 3 27 54
# [ 3] C 3 2 1 6 22
# [ 4] D 2 2 2 8 24
# [ 5] E 5 1 5 25 70
# 1: 入力順に表示 2: 整列 3: 探索 4: 拡大・縮小 0: 終了
# 何をしますか？ => 0
# 終了します.

# データファイル
# A 1 2 3
# B 3 3 3
# C 3 2 1
# D 2 2 2
# E 5 1 5

>>384
使用言語：J

display_name=:[: smoutput '私は○○です。'"_
main=:display_name^:(3)

main ''
私は○○です。
私は○○です。
私は○○です。

http://pc12.2ch.net/test/read.cgi/tech/1263824755/83
# [1]プログラミング演習(大学専門過程演習授業）
# [2] コマンドライン引数で与えられたテキストファイルを読み込み
# 空行でなければ、その行に含まれているスペース、タブを
# 除去したものを標準出力するプログラム。但し英数字と"_"で
# 構成される文字列同士の間には一つのスペースは残す。
# ",'で囲まれた部分に関してはスペース、タブはそのまま残す
# "で囲まれた部分について最後の文字が¥であってはならない。
# 'で囲まれた部分について最後の文字が¥であってはならない。
# （テキストファイルの空行と余計な空白／タブを除去する
# プログラムでクオテーションに配慮したもの）

http://pc12.2ch.net/test/read.cgi/tech/1263824755/91
# [1] 授業単元:情報処理
# [2] 問題文:
#
# 問１　キーボードから３個の実数（整数でない）値を１行に１組として計５組入力し、
# ファイル（ファイル名data1.txt）に保存する。
#
# 問２
# 　問１で作ったファイルから実数値を読み込み、総合計と各組の実数の平均を求める

# ただし、ファイルに書かれている組の数は不明とする。

http://pc12.2ch.net/test/read.cgi/tech/1263824755/93
# [1] 授業単元：プロトタイプ宣言
# [2] 問題文(含コード&リンク)：
# 次の式を以下の条件(値)に基づいて計算.表示するプログラムを作成せよ。ただし式は簡単化せずそのままプログラムすることとして、更に表示するときは計算の答えと合� 錣擦鴇魴�値)も表示して分かりやすくせよ。
#
# 計算する式
# {(a+b)c-a(b-c)}/{(c/b)a+abc-ca}
#
# 条件1
# a=3 b=4 c=2
# a=3 b=4.3 c=2.5
# a=32.6 b=57.82 c=2.543
#
# この問題を、
# 式の分だけを関数化した場合
# 式と出力部分を関数化した場合
# の2つの場合でプログラムを作成せよ

http://pc12.2ch.net/test/read.cgi/tech/1263824755/94
# [1] C
# [2]
# 反復列　x_n+1=a*x_n(1-x_n),0<=a<=4,0<=x<=1
# に対して、x_nが1周期（不動点）、2周期、4周期、8周期、16周期
# をもつaの範囲について、プログラムを作成して確かめよ。
# ※
# ○周期というのはaがある値のとき、○個の解で振動するという意味です※

http://pc12.2ch.net/test/read.cgi/tech/1263824755/95
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)：http://ime.nu/www.acm-japan.org/past-icpc/domestic2008/problems/all_ja.html
#
# 等しい合計点
#
# 太郎と花子はそれぞれカードを何枚か持っている．各カードには点数が書かれている．
# 太郎のカードと花子のカードを 1 枚ずつ交換して，それぞれの持つカードの合計点数が等しくなるようにしたい．
# どのカードとどのカードを交換したらよいか．
#
# ただし，カードを交換しなくても合計点数が等しい場合でも，必ずカードの交換を行うものとする．

http://pc12.2ch.net/test/read.cgi/tech/1248012902/778
# 【　課題　】1.任意のWEBページからhttp://ime.nu/で始まるハイパーリンクを抽出するプログラムの作成
# http://ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/901.java
# 2.任意のWEBページ10ページに含まれる単語のうち，上位10位の単語リストとその出現頻度
# http://ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/903.java
# 【　形態　】1. Javaアプリケーション(main()で開始)
# 【　GUI　 】制限なし
# 【　期限　】1/25
# 【　Ver　 】1.6.0_14
# 【　補足　】1.に関してはプログラムはあっていると思うのですがなぜか実行
# 　　　　　　できないので、実行できたら結果をコピペで教えてもらえたら嬉しいです
# 　　　　　　2.に関しては実行結果があるのですが、上から多い順に並んでいます
# 　　　　　　プログラムのどの部分でその並べ替えを行っているのか、またどんな
# 　　　　　　アルゴリズムを用いて並べ替えているのかを教えてもらえたら嬉しいです

http://pc12.2ch.net/test/read.cgi/tech/1263824755/102
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10419.zip
#
# ●問2.リストの一部を取り除く関数
#
# 　与えられた文字リストの先頭から見ていき、要素が'<'なら自身と(あれば)直前の要素を、'>'なら自身
# と(あれば)直後の要素を取り除く関数editを作成せよ。
# 　editは与えられたリスト自体を変形し、変形後のリストを返す。
#
# ●問3.いずれか一方のリストに含まれる要素からなるリストを返す関数
#
# 　引数として二種の文字リストが与えられると、いずれか一方のリストにのみ含まれる 要素を持つリストを新たに作成し返す関数exclusiveを作成せよ。
#

>>408 問2
使用言語：J

edit=:monad define
r=.y#~-.(+._1&|.)(<'>')=y
r#~-.(+.1&|.)(<'<')=r
)

]C=:;/'a<bcd>ef>ghi'
+-+-+-+-+-+-+-+-+-+-+-+-+
|a|<|b|c|d|>|e|f|>|g|h|i|
+-+-+-+-+-+-+-+-+-+-+-+-+
edit C
+-+-+-+-+-+-+
|b|c|d|f|h|i|
+-+-+-+-+-+-+

>>408 問3
使用言語：J

exclusive=:dyad def '(x -. y) , y -. x'

]A=:;/'abcdef'
+-+-+-+-+-+-+
|a|b|c|d|e|f|
+-+-+-+-+-+-+

]B=:;/'defghi'
+-+-+-+-+-+-+
|d|e|f|g|h|i|
+-+-+-+-+-+-+

A exclusive B
+-+-+-+-+-+-+
|a|b|c|g|h|i|
+-+-+-+-+-+-+

http://pc12.2ch.net/test/read.cgi/tech/1263824755/103
# [1] 授業単元：Cプログラミング演習２
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10420.txt
# （１） 指定した10 個の整数のうち，指定した数で割り切れる整数の個数を求めるプログラムを作成せよ．
# 以下の関数を利用すること．
# int div_enable(int *in, int num, int divisor)
# in 複数の整数値が格納された配列の（先頭）ポインタ
# num 入力値の数
# divisor 割り切れるかどうかの判定に使う除数
# 戻り値 入力値のうち, divisor で割り切れる整数の数
# 入力に関して
# キーボードから整数(被除数用)をスペース１つずつ空けて10 個入力して改行する．次に除数用
# の自然数を1 つ入力し，改行する．この一連の入力時，例題や解答例のような入力を促す文字
# 等は決して表示しないこと．
# 出力に関して
# 割り切れる整数の個数を数値のみ (+改行)を出力する．指定した数値・改行以外の文字等の出
# 力は一切行わないこと．

>>411
使用言語：J

div_enable=: dyad def '+/0=x|y'

]in=:>:i.10
1 2 3 4 5 6 7 8 9 10

3 div_enable in
3

http://pc12.2ch.net/test/read.cgi/tech/1263824755/103
# [1] 授業単元：Cプログラミング演習２
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10420.txt
# （２） 2 つの4×4 行列を2 次元配列に格納し，それらの積を求めるプログラムを作成せよ．以下の関数を
# 利用すること．
# void mult_array(int a0[4][4], int a1[4][4], int result[4][4])
# a0,a1 入力された行列の値が格納された2 次元配列のポインタ
# result 演算結果の行列の値が格納された2 次元配列のポインタ
# 戻り値 なし
# 入力に関して
# キーボードからまず，1 つめの行列の1 行目の4 つの整数をスペース1 つ開けて1 行で入力し，
# 改行する．以下同様に1 つめの行列の2 行目，3 行目，4 行目，2 つめの行列の1・・・4 行目
# を入力する．この一連の入力時，入力を促す文字等は決して表示しないこと．
# 出力に関して
# 1行目に結果の行列の1 行目をスペース1 つあけて特に整形せず数値のみ出力(+改行)，以下同
# 様に2 行目，3 行目，4 行目を特に整形せず数値のみ出力する．指定した数値・改行以外の文
# 字等の出力は一切行わないこと．

http://pc12.2ch.net/test/read.cgi/tech/1263824755/103
# [1] 授業単元：Cプログラミング演習２
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10420.txt
#
# （３） 平均値と中央値を求める関数を作成し，その関数を使用して平均値と中央値を出力するプログラム
# を作成せよ．関数は下記の通りとする．
# int median(int *in, int num)
# in 複数の整数値が格納された配列の（先頭）ポインタ
# num 入力値の数
# 戻り値 中央値
# int avg (int *in, int num)
# in 複数の整数値が格納された配列の（先頭）ポインタ
# num 入力値の数
# 戻り値 平均値(四捨五入した整数値, 負の場合丸め方は任意)
# 入力に関して
# キーボードから入力する整数の個数を入力し（最大で128 に対応すること）改行する．次に指
# 定した数の整数をスペース１つずつ開けて１行で入力し，改行する．この一連の入力時，例題
# や解答例のような入力を促す文字等は決して表示しないこと．
# 出力に関して
# 中央値 平均値(+改行)のみ出力．中央値と平均値の間はスペースを1 つ入れること．指定した
# 数値・改行以外の文字等の出力は一切行わないこと．

http://pc12.2ch.net/test/read.cgi/tech/1263824755/104
#
# 課題1 20 桁までの自然数の足し算と掛け算を浮動小数点演算を用いないで実施するプログラムlongcomp.c を
# 作成し、C のソースコードを提出しなさい。足し算は必須課題、掛け算はオプション課題です。
# 実行形式をlongcomp とした動作仕様は以下である1
# >./longcomp 12345678901234567890 + 12345678901234567890
# >12345678901234567890 + 12345678901234567890 = 24691357802469135780
# >./longcomp 1234567890 ＊ 1234567890
# >1234567890 ＊ 1234567890 = 1524157875019052100

http://pc12.2ch.net/test/read.cgi/tech/1263824755/105
#
# 課題2 b01, b001 のように二進数をb で始まるように表記する。二進数の集合を、できるだけ少ないノード数
# の二分木に分類するためには、二分木のノードに蓄積する二進数の桁数を可変にすることが有効である。
# こうすることで二進数表記した値（たとえばキーワードとか、位置とか、日付とか）に紐づけられたデータを少ない検索で見つけることができる。
# 扱う二進数の集合を、たとえば
# b00, b001, b0011, b00111, b1000, b11100, b0
# として、これらを図1に示すようにニ分木に分類して、帰りがけ（ポストオーダ）で次のように出力するプログラム(tree) を作成し、C のソースコードを提出しなさい。
# >./tree
# >1 1 1 0 0 000 1100 1 b
#

http://pc12.2ch.net/test/read.cgi/tech/1263824755/124
# [1] 授業単元： Cプログラミング入門
# [2] 問題文(含コード&リンク)： 入力された2つの文字列（日本語その他バイト文字は不可）
# を比較するプログラムを作成せよ。ただし、大文字小文字の違いは無視。単語間に連続して
# スペース・タブが複数入っていても単独のスペースとしない。
#
# [5] その他の制限： 文字列とポインタまでやってます。
# 入力に関して、キーボードから1つ目の文字列を1行で入力し、改行する。
# この時、入力を促す文字は一切表示しない。入力文字数は128文字まで。
# 出力に関して、一致すれば何も表示しない。不一致の場合は最初に不一致となる
# 入力1の文字と入力2の文字（1文字＋スペース＋1文字＋改行）を表示する。
# どちらかが末端の場合は代わりにスペースで埋める。

http://pc12.2ch.net/test/read.cgi/tech/1263824755/135
# [1] 授業単元：Ｃ言語
# [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10408.txt
#
# （１）複数の整数を平均値に近い順にソートするプログラムを作成せよ。
# 平均値は切り捨てして整数値で求めるものとし、平均値との距離が等しい
# 場合は値の小さな整数が優先されるものとする。
#
# 入力に関して

# キーボードからまず、入力する整数の個数を入力（最大で100とする）し、改行。
# 次に指定した数の整数をスペース1つ開けて1行で入力し、改行する。
# この時、入力を促す文字は一切表示しないこと。
# 出力に関して
# ソートした整数をスペース1つのみあけて1行で出力する（+改行）。指定した数改行
# 以外の出力は一切行わないこと。

http://pc12.2ch.net/test/read.cgi/tech/1263824755/137
# [1] 授業単元： プログラミング概論
# [2] 問題文："in_file"という名前のファイルの中に18個の整数データが空白や改行コードで区切られて並んでいると仮定した上で、
#　この入力ファイルの中のデータを1行に5個ずつきれいに並べて"out_file"という名前のファイルに
#　出力するＣプログラムを作成せよ。
# 入力ファイルの内容が
# -1111111111 2222222 333333 4444 55 6 7 8 9 0 1 2 3 4
# 5　　　　　　　　　6　　　　　　　　　　　7890123
# -5666
# の時には、例えば次のような内容を"out_file"に書き出す
# _-1111111111_____2222222______333333________4444__________55
# _________________6_______________7______________8_____________9___________0
# ________________ 1_______________2______________3_____________4___________5
# _________________6_____7890123________-5666
#

>>418
;; Common Lisp
(defun sort-ave (lst)
(let ((abs-ave (floor (abs (/ (reduce #'+ lst) (length lst))))))
(sort lst
#'(lambda (a b)
(let ((ax (abs (- (abs a) abs-ave))) (bx (abs (- (abs b) abs-ave))))
(if (= ax bx)
(< a b)
(< ax bx)))))))

(defun main ()
(let ((num (read)) lst)
(cond ((<= num 100)
(dotimes (i num)
(push (read) lst))
(format t "~{~A ~}~%" (sort-ave lst))))))

>>418
使用言語：J

f=:monad def '}.|:/:~|:y,:~|y-<.(+/%#)y'

f 0 7 8 9 2 2 5 5 5 3
3 5 5 5 2 2 7 0 8 9

http://pc12.2ch.net/test/read.cgi/tech/1263824755/143
# [1] データ構造とプログラミング
# [2]
# 演習問題4.5 逆ポーランド記法による入力文字列（空白で区切られている）に対して
、
# 16進数と10進数で答えを返すプログラムrpnを作りなさい。
# （入力例）rpn 5 2 + 7 *
# （出力例）0x31, 49(decimal)
#

http://pc12.2ch.net/test/read.cgi/tech/1263824755/147
# [1] 授業単元： C++
# [2] 問題文(含コード&リンク)：
# 2.
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10439.txt
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10436.txt
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10437.txt
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10438.txt
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10436.txt
↑pm1.txt
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10437.txt
# ↑pm2.txt
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10438.txt
# ↑pm3.txt
# というファイルがある。
# plus で始まる行の数値を足し，minus で始まる行の数値を引く。
# ファイルの最後まで計算した結果を表示するプログラムを作成せよ。
# データの数は実行前にはわからないものとする。

http://pc12.2ch.net/test/read.cgi/tech/1263824755/154
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)：http://ime.nu/www.acm-japan.org/past-icpc/domestic2008/problems/all_ja.html
# 等しい合計点
#
# 太郎と花子はそれぞれカードを何枚か持っている．
# 各カードには点数が書かれている．太郎のカードと花子のカードを 1 枚ずつ交換して，
# それぞれの持つカードの合計点数が等しくなるようにしたい．
# どのカードとどのカードを交換したらよいか．
#
# ただし，カードを交換しなくても合計点数が等しい場合でも，必ずカードの交換を行うものとする．
# Input
# 入力は，いくつかのデータセットからなる．各データセットは次の形式で与えられ
# n m
# s1
# s2
# ...
# 各データセットの最初の行は空白ひとつで区切られたふたつの数 n と m を含み，
# n は太郎のカードの枚数，m は花子のカードの枚数を表す．続く n+m 行には，
# 各カードの点数が 1 行にひとつずつ並ぶ．
# 最初の n 個の点数 (s1 から sn まで) は太郎のカードの点数，
# 残りの m 個の点数 (sn+1 から sn+m まで) は花子のカードの点数を表す．
# n および m は 100 以下の正の整数とし，カードの点数は 0 以上 100 以下の整数値とする．
# 入力の終わりは，空白ひとつで区切られたふたつの 0 を含む 1 行で示される．

>>423
使用言語：J

plus =:+
minus=:-
f=:monad def '+/".;._2(1!:1)y'

f <'pm3.txt'
_316

http://pc12.2ch.net/test/read.cgi/tech/1263824755/161
# [1] 授業単元： プログラミング演習（木構造と数式処理）
# [2] 問題文(含コード&リンク)：
#
# 累乗の計算の逆を行うプログラムを作ってください。
#
# 例
# x*x*xと入力されればx^3と画面に出力する。
#
# x*x*x*aなどの場合はx^3*aと出力されればよい。
#

>>413
使用言語：J

mult_array=: +/ .*

]A=:i.4 4
0 1 2 3
4 5 6 7
8 9 10 11
12 13 14 15

A mult_array A
56 62 68 74
152 174 196 218
248 286 324 362
344 398 452 506

>>419
使用言語：J

read=: 1!:1
wrire=: 1!:2
format=: 8!:2
a=: read <'in_file'
b=: '13.0'format ".each _5,\cutopen,,;._2 a
(,b,.LF)write<'out_file'

http://pc12.2ch.net/test/read.cgi/tech/1263824755/167
# 上の105ですが、もう一度質問させて頂きます。
# なぜなら、課題２対しての回答がないからです。
# 皆様よろしくお願いします。
#
# [1] データ構造とプログラミング
# [2]b01, b001 のように二進数をb で始まるように表記する。二進数の集合を、できるだけ少ないノード数
# の二分木に分類するためには、二分木のノードに蓄積する二進数の桁数を可変にすることが有効である。こう
# することで二進数表記した値（たとえばキーワードとか、位置とか、日付とか）に紐づけられたデータを少な
# い検索で見つけることができる。
# 扱う二進数の集合を、たとえば
# b00, b001, b0011, b00111, b1000, b11100, b0
# として、これらを図1に示すようにニ分木に分類して、帰りがけ（ポストオーダ）で次のように出力するプロ
# グラム(tree) を作成し、C のソースコードを提出しなさい。
# >./tree
# >1 1 1 0 0 000 1100 0 1 b
#

>>429
ごめんなさい。>>416に既出でした。

http://pc12.2ch.net/test/read.cgi/tech/1263824755/174
# [1] データ構造とプログラミング
# [2]
# リングバッファを使って、９個のキューを作り、データを追加したり、
# データを取り出すプログラムを完成させなさい。
# 以下の添付にあるプログラムを完成させろという課題です。
# http://ime.nu/www.geocities.jp/pegasus_violet/en5-2.pdf
# 演習問題5.2 リングバッファを使って、9 個のキュー(配列は10 元）を作り、
# データを追加したり(EnQue), データを取り出す（DeQue) プログラムを
# 完成させなさい29。プログラムの動作仕様は以下のようである。
# 1. 数字を入力するとキューが伸びる
# 2. d(deque) を入力するとfront を標準出力に出力
# 3. s(show) を入力するとキューを表示
# 4. キューがいっぱいだったらエラーメッセージを出す
# 5. q で終了

>>419
% Prolog ここまでするか、とお思いでしょうが・・
'入力ファイルの中のデータを1行に5個ずつきれいに並べて"out_file"という名前のファイルに出力する'(_整数ならび) :-
　　入力ファイルの中のデータ(_整数ならび),
　　最大桁数(_整数ならび,_最大桁数),
　　_整数表示桁 is _最大桁数 + 2,
　　concat_atom(['%',_整数表示桁,d],_表示フォーマット),
　　'1行に5個ずつきれいに並べて'(_整数ならび,_5個組整数ならび),
　　tell('out_file),
　　出力する(_5個組整数ならび,_表示フォーマット),
　　told.

入力ファイルの中のデータ(_整数ならび) :- '"in_file"という名前のファイルの中に18個の整数データが空白や改行コードで区切られて並んでいる'(_整数ならび),!.

'"in_file"という名前のファイルの中に18個の整数データが空白や改行コードで区切られて並んでいる'(_整数ならび) :-
　　get_lines('infile',Lines),
　　concat_atom(Lines,' ',S),
　　split(S,[' '],_整数ならび),
　　length(_整数ならび,18),!.

'1行に5個ずつきれいに並べて'(_整数ならび,_5個組整数ならび) :- 'N個組'(5,_整数ならび,_5個組整数ならび),!.

出力する([],_) :- !.
出力する([L|R],_表示フォーマット) :- '1行出力する'(L,_表示フォーマット),出力する(R,_整数表示桁).
出力する([L|R],_表示フォーマット) :-
　　'1行出力する'(L,_表示フォーマット),
　　出力する(R,_整数表示桁).

'1行出力する'([],_) :- write('\n'),!.
'1行出力する'([N|R],_表示フォーマット) :- write_formatted(_表示フォーマット,[N]),'1行出力する'(R,_表示フォーマット).

>>433 (>>432) 訂正
% Prolog 訂正するのを忘れていた。

出力する([],_) :- !.
出力する([L|R],_表示フォーマット) :- '1行出力する'(L,_表示フォーマット),出力する(R,_表示フォーマット).

>>374
使用言語：J

rev_string=: ,~/

rev_string 'SEC'
CES


|. 'SEC'
CES

>>418
% Prolog (その一) >>421の短さに唖然!

複数の整数を平均値に近い順にソートする(_整数ならび,_平均値に近い順に整列された
整数ならび) :-
　　'キーボードからまず、入力する整数の個数を入力（最大で100とする）し、改行'(_
入力する整数の個数),
　　指定した数の整数をスペース1つ開けて1行で入力する(_入力する整数の個数,_整数
ならび),
　　相加平均(_整数ならび,_平均値の一),
　　_平均値 is truncate(_平均値の一),
　　平均値からの隔たりによる整列(_平均値からの隔たりのならび,_平均値からの隔た
りを鍵として付加して整列された整数ならび),
　　整列した整数をスペース1つのみあけて1行で出力する(_平均値からの隔たりを鍵と
して付加して整列された整数ならび).

'キーボードからまず、入力する整数の個数を入力（最大で100とする）し、改行'(_入力
する整数の個数) :-
　　repeat,
　　get_integer(_入力する整数の個数),
　　_入力する整数の個数 =< 100,!.

指定した数の整数をスペース1つ開けて1行で入力する(_入力する整数の個数,_整数なら
び) :-
　　length(_整数ならび,_入力する整数の個数),
　　get_split_line([' '],_整数ならび).

>>418
% Prolog (その二) >>435は改行位置を間違えた行が数行あります。

平均値からの隔たりによる整列([X|Xs],_平均値,Ys) :-
　　U is X - _平均値,
　　平均値からの隔たりにより分割する(Xs,U,_平均値,Littles,Bigs),
　　平均値からの隔たりによる整列(Littles,_平均値,Ls),
　　平均値からの隔たりによる整列(Bigs,_平均値,Bs),
　　append(Ls,[X|Bs],Ys) .
平均値からの隔たりによる整列([],_,[]).

平均値からの隔たりにより分割する([X|Xs],Y,_平均値,[[U,X]|Ls],Bs) :-
　　U is X - _平均値,
　　U =< Y,
　　平均値からの隔たりにより分割する(Xs,Y,_平均値,Ls,Bs),!.
平均値からの隔たりにより分割する([X|Xs],Y,_平均値,Ls,[[U,X]|Bs]) :-
　　U is X - _平均値,
　　U > Y,
　　平均値からの隔たりにより分割する(Xs,Y,_平均値,Ls,Bs) .
平均値からの隔たりにより分割する([],Y,_,[],[]).

整列した整数をスペース1つのみあけて1行で出力する([]) :- !.
整列した整数をスペース1つのみあけて1行で出力する([[A,B]]) :- write_formatted('%t\n',[A]) :- !.
整列した整数をスペース1つのみあけて1行で出力する([[B,A]|R]) :-
　　write_formatted('%t ',[A]),
　　整列した整数をスペース1つのみあけて1行で出力する(R)