いろんな言語で宿題スレ

他の宿題スレで出された問題を各々好きな言語で解答して言語の良さを競い合うスレです。
なお、宿題スレが存在する言語についてはその言語のスレで解答してください。

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

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

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

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

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

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

C#,C＃の宿題片付けます。
http://pc12.2ch.net/test/read.cgi/tech/1197620454/

>>1=カス

% 宿題: http://pc12.2ch.net/test/read.cgi/tech/1153585095/38
% 言語: Prolog (IF/Prolog)
% 述語: modulus38/0, modulus38/3, get_integers/1

modulus38 :-
　write('数字列を入力してください:'),
　get_integers(L),
　modulus38(L,[],X),
　write_formatted('残った数字は: %t です\n',[X]).

modulus38([X],[],X).
modulus38([_],Y,X) :-
　modulus38(Y,[],X).
modulus38([A,B|R1],Y,X) :-
　C is (A+B) mod 10,
　modulus38([B|R1],[C|Y],X).

get_integers(L) :-
　findall(U,(repeat,get_code(C),(C==10,!,fail;U is C-48)),L).

>>3
さすがProlog、元スレの解答が豚を食ったPythonに見えてくるw
しかしこの解答、宣言的ではあるがやってはいけないことをしている。
短いコードにしようとした結果、素人だと誰も理解できない。
Prologのもっとも豊かな特徴は、この言語を知らない人が読んでも、
書いてあることが何となく分かるということ。そういう意味でこのコードは
致命的だ。modulus38/3のところは、modulus38/2とmodulus38_1/2として、
modulus38([X],X).
modulus38(L,X) :- modulus38_1(L,L2),modulus38(L2,X).
modulus38_1([_],[]).
modulus38_1([A,B|R1],[C|R2]) :- C is (A+B) mod 10,modulus38_1([B|R1],R2).

もちろん、トップレベルの中のmodulus38/3は
modulus38 :- ... , modulus38(L,X), ....

となる。

仕様に忠実でなかったので訂正します。
「10個の数字を入力する」が反映されていませんでした。
findallの中にfor/3を書くと10個に達しないうちに改行がきた場合など
に不都合が生じます。それでfindall/3の使用を断念。
get_integers(L) :- get_code(C),get_integers(10,C,L),!.
get_integers(1,C,[C1]) :- toint(C,C1).
get_integers(N,C,[C1|R]) :- toint(C,C1),get_code(C2),M is N-1,get_integers(M,C2,
R).
get_integers(N,C,L) :- get_code(C2),get_integers(N,C2,L).
toint(C,X) :- C>=48,C=<57,X is C-48.

やれやれ、面倒なこととなりました。

>>5
それもおかしい。
get_integers(L) :- findall(N,(for(1,_,10),get_integer(N)),L).
get_integer(N) :- get_code(C),C >= 48, C =< 57,N is C-48.
get_integer(N) :- get_integer(N).

でよいはず。

ああ、だめだ！　訂正。
get_integer(N) :- get_code(C),C >= 48,C =< 57,N is C-48,!.
get_integer(N) :- get_integer(N).
でした。
大変失礼しました。

「10個の数字を入力する」のもっとも自然な表現は、
get_integersの引数を増やして、そこに整数の個数を取ります

get_integers(N,L) :- findall(A,(for(1,_,N),get_integer(A)),L).
get_integer(A) :- get_code(C),C >= 48,C =< 57,A is C-48,!.
get_integer(A) :- get_integer(A).

program EX38 ! やー ふぉー ふぉーとらんらんらん♪
　implicit none
　integer, parameter :: Nmax = 10
　integer :: A(1:Nmax), n
　
　print *, "数字列を入力してください。"; read "(99I1)", A
　do n = Nmax, 2, -1
　　print "(A,99(I1,1X))", repeat(" ", Nmax-n), A(1:n)
　　A(1:n-1) = mod(A(1:n-1) + A(2:n), 10)
　end do
　print "(A,I1,A)", "残った数字は", A(1), "です。"
end program EX38

http://pc12.2ch.net/test/read.cgi/tech/1153585095/38

【　課題　】キーボードから10個の数字を入力する。
　　　　　　隣同士の足し算をし、以下の例のように1の位の数字を次の行に出力し、
　　　　　　最後に残った数字を出力する。

　　　　　　(例)
　　　　　　数字を入力してください。
　　　　　　2359318473

　　　　　　2 3 5 9 3 1 8 4 7 3
　　　　　　 5 8 4 2 4 9 2 1 0
　　　　　　　3 2 6 6 3 1 3 1 (以下略

　　　　　　最後に残った数字は 2 です。

module Main(main) where

import Data.Char
import Control.Monad
import Data.List

main = do { str <- getLine
; let xss = fun38 . map digitToInt $ str
; display xss
; putStr "last = "
; putChar . intToDigit . head . last $ xss
}

fun38 [] = []
fun38 xs = xs : fun38 (zipWith (\a b -> (a + b) `mod` 10) xs (tail xs))

display = zipWithM ((putStrLn .) . (. (intersperse ' ' . map intToDigit)) . (++) . flip replicate ' ') [0..]

言語名書き忘れた。
Haskellね。

>>11
ほ、ほー。さすが Haskell すっきりと短いね。
どうも次の言語が続かないようだから、今度は
http://pc12.2ch.net/test/read.cgi/tech/1153585095/789
でいこう。上のお題に一部集計を付加するだけ。

>>10 と>>13の違いが分からない。

python 2.6 で

>10 （のつもり）
import sys
print u'数字を入力してください。'
a = map(int, list(sys.stdin.readline().rstrip()))
indent = 0
while(True):
    print ' ' * indent + ' '.join(map(str,a))
    if len(a) == 1:
        break
    b = []
    for i in range(0, len(a)-1):
        b.append(int(a[i] + a[i+1]) % 10)
    a = b
    indent += 1
print u'最後に残った数字は　%d　です。' % a[0]

>>14
ごめん。
http://pc12.2ch.net/test/read.cgi/tech/1153585095/790
の方だった。どう化けるかだけのことだが。

Linuxのシェルプログラミング

XXXディレクトリに存在するファイル名をすべて小文字のファイル名に変更
ただし、変更後のファイル名がすでに存在する場合は「error!」と画面に出力し、
ファイル名を変更しないようにする

というプログラミングを作ってください
for文やtr,mvを使うことはわかるんですが・・・
どうかよろしくお願いします。

すいません、急を要するのでageさせていただきます。

>>17
シェル名を書かないのは宗教上の理由からですか？

ていうかこのスレの趣旨に合わないんでUNIX板のエスパーくだ質スレにでもどうぞ

;;;scheme勉強中。>10 を書いてみた。入力文字列の長さはチェックしてないです。
;;;gaucheとDrScheme で動作確認。(read)で得た数値を、number のリストにするのがなんかめんどくさかった。
;;;もっと簡単な方法あるのかな？
(define (print-result lis)
    (define (get-next-list lis)
        (if (= 1 (length lis))
            '()
            (cons (modulo (+ (car lis) (cadr lis)) 10)
                (get-next-list (cdr lis)))))
    (define (list->line lis)
        (if (= 1 (length lis))
        (number->string (car lis))
        (string-append
            (number->string (car lis))
            " "
            (list->line (cdr lis)))))
    (let loop ((lis lis) (indent 0))
        (display (make-string indent))
        (display (list->line lis))
        (display "\n")
        (if (= 1 (length lis))
            (car lis)
            (loop (get-next-list lis) (+ indent 1)))))
(display "数字を入力してください。\n")
(define src-list
    (map string->number
        (map string
            (string->list
                (number->string (read))))))
(display (format "最後に残った数字は ~A です。"
            (print-result src-list)))

(1)
int lg;
int n=65536;
int i;
int main() {
lg=0;
i=n;
loop:
if (i>1) {
lg=lg+1;
i=i/2;
goto loop;
}
return 0
}

(2)
int i;
int sum=10;
int main() {
for (i=0;i<10;i++)
sum=sum+i;
return 0;
}

上の２つのプログラムをアセンブリ言語に翻訳せよという課題があるのですがわかる方教えてもらえませんか？
コンパイラによって異なると言われたのですが翻訳例として↓

1: int i;
2: int j;
3:
4: int main()
5: {
6: i=1;
7: j=0;
8:
9: loop_begin:
10: if (i>100)
11: goto loop_end;
12: j=j+i;
13: i=i+1;
14: goto loop_begin;
15:
16: loop_end:

は

.data
#int i
.globl i
i: .word 0
#int j
.globl j
j: .word 0
#main()
.text
.globl main
main:

# i=1
li $s0, 1
la $t0, i
sw $s0, 0($t0)
# j=0
la $t0, j
sw $zero, 0($t0)

# loop_begin
loop_begin:
# if(i>100) goto loop_end
la $t0, i
lw $s0, 0($t0)
li $s1, 100
sgt $t0, $s0, $s1
bnez $t0, loop_end

のように翻訳できるとのことです

>>20
LISPマシンではLispがPrologマシンではPrologがアセンブラだよ。
Lispに変換するのでよいのかな？

>>20
#!/bin/sh
gcc -S hoge1.c
gcc -S hoge2.c

>>23 INTER LISPか。マニュアルは持ってるけど機械がないw

>>23
はい。お願いしたいです

>>26
INTER LISP 只今、勉強中w

http://pc12.2ch.net/test/read.cgi/tech/1242655611/23
[1] 授業単元： 社会情報入門
[2] 問題文(含コード&リンク)：
次の無限等比級数の和を、各項を順に加算していくことにより求めるプログラムを書け。
1+(1/3)+(1/9)+(1/27)+.....
ただし、0.00001以下となる項を加えた時点で加算を終了することとする。　
[3] 環境
　[3.1] OS：WindowsXP
　[3.2] gcc
　[3.3] 言語： C
[4] 期限： 2009年5月22日12:50まで
[5] その他の制限：なし

% 悪い解答をひとつ
% 言語: IF/Prolog
f(X) :- f(1,1,X).
f(N,S,X) :- N > 100000,X is S / N,!.
f(N,S,X) :- M is N * 3,S2 is S + M,f(M,S2,X).

;; scheme
;; 分数が組み込みで使えるって、素敵やん？

(define ans
  (let loop ((x 1)(total 0))
    (let ((total (+ total x)))
      (if (<= x 0.00001)
          total
          (loop (* x 1/3) total)))))
(display ans)
(newline)
(display (exact->inexact ans))

;; scheme
;;なんか無駄なことやってた。やり直し。

(define ans
  (let loop ((x 1))
      (if (<= x 0.00001)
        x
        (+ x (loop (* x 1/3))))))
(display ans)
(newline)
(display (exact->inexact ans))

scheme と同じ発想で

import Data.Ratio

f :: Rational -> Rational
f x | x < 0.00001 = x
| otherwise = x + f (x/3)

main = print $ fromRational $ f 1

>>29
答えが違ってるので0点

# python2.6 で >10 と >15 まとめて。
import sys
from itertools import count
def job(handler, lst):
    while True:
        handler.callback(lst)
        if len(lst) == 1: break
        lst = map(lambda x:(x[0]+x[1]) % 10, zip(lst, lst[1:]))
    handler.finish(lst)
class Handler1:
    def __init__(self):
        self.indent = ''
    def callback(self, lst):
        print self.indent + ' '.join(map(str, lst))
        self.indent += ' '
    def finish(self, lst):
        print u'最後に残った数字は　%d　です。' % lst[0]
class Handler2:
    def __init__(self):
        self.buffer = [0] * 10
    def callback(self, lst):
        for i in lst:
            self.buffer[i] += 1
    def finish(self, lst):
        total = reduce(lambda a,b:a+b, self.buffer)
        print u'%d個' % total
        for i,v in zip(count(), self.buffer):
            print u'%d: %d回 %d%%' % (i, v, v*100.0/total)
print u'数字を入力してください。'
lst = map(int, list(sys.stdin.readline().rstrip()))
job(Handler1(), lst)
job(Handler2(), lst)

>>28
% 言語: Prolog
f(S) :- f(1.0,1,S).
f(P,_,P) :- P < 0.00001,!.
f(P,N,S) :- M is N * 3,P2 is 1 / M,f(P2,M,S2),S is S2 + P.

>>32
Rationalな割り算は%じゃないかな。

俺はこんな感じで。

-- Haskell

import Data.Ratio

main = print $ fromRational $ sum $ takeWhile ((>0.00001) . fromRational) $ iterate (\n -> n * (1%3)) 1

いろいろ無駄があったから修正

import Data.Ratio

main = print $ fromRational $ sum $ takeWhile (>(1%100000)) $ iterate ((1%3)*) 1

>>15
% Prologの苦手とする処理ですね。長くなったので表示部分は省略します。
% 言語: IF/Prolog
modulus38([X],X,CL,CL).
modulus38(L,X,CL1,CL) :-
　modulus38_1(L,L2,CL1,CL2),
　modulus38(L2,X,CL2,CL).
modulus38_1([_],[],CL,CL).
modulus38_1([A,B|R1],[C|R2],CL1,CL) :-
　C is (A+B) mod 10,
　n番目に1を加算(C,CL1,CL2),
　modulus38_1([B|R1],R2,CL2,CL).
n番目に1を加算(N,L,X) :-
　append(L1,[B|R],L),
　M is N-1,
　length(L1,M),
　B2 is B+1,
　append(L1,[B2|R],X).
sum_list([],0).
sum_list([N|R],X) :- sum_list(R,Y),X is Y + N.

>>38
集計リストは連想配列的に[0:N0,1:N1,2:N2, ... ,9:N9] で持つこともある。
そうすると、n番目に1を加算/3ではなくて、
nに1を加算(N,L,X) :-
　append(L1,[N:Ns1|R],L),
　Ns2 is Ns1+1,
　append(L1,[N:Ns2|R],X).
となる。

>>37
少々癪だが、Haskell短くていいなぁ。

# Prolog向きの見つけたｗ
http://pc12.2ch.net/test/read.cgi/tech/1136788500/1
1 ：BASIC：2006/01/09(月) 15:35:00
N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する

# Prolog流の表示は普通はインタプリタによる論理変数の解決表示ですから
# 言語: Prolog
データ(山下,65,177,23).
データ(尾崎,64,168,60).
データ(飯島,72,173,29).
データ(吉田,69,166,44).

foo(_氏名) :- データ(_氏名,_,_身長,_),_身長>=160,_身長<170.

#どうしても強制表示したい場合は、
foo :- foo(_氏名),write(_氏名),nl,fail;true.

# こんなのも可能かな。op定義に汎用性はないけど。
# 言語: Prolog
:- op(800,xfx,は).
:- op(750,xfx,が).
:- op(700,xfx,の).
:- op(650,xfx,で).
:- op(600,xf,以上).
:- op(600,xf,未満).
:- op(500,xf,cm).

データ(山下,65,177,23).
データ(尾崎,64,168,60).
データ(飯島,72,173,29).
データ(吉田,69,166,44).

身長 が N_1 cm 以上 で N_2 cm 未満 の 人 の 名前 は _氏名 :-
　データ(_氏名,_,_身長,_),
　_身長 >= N_1,
　_身長 < N_2.

# 「身長が160cm以上で170cm未満の人の名前は_氏名」を形態素解析して、
# Term = [身長,が,160,cm,以上,で,170,cm,未満,の,人,の,名前,は,_氏名]
# が得られるなら、結構おもしろい事がやれるでしょうけれど。

>>36
(%)は整数比からRatioを構築する演算
(/)はRatio同士の割り算
だから、たとえば1%3のことを1/3と書いても大丈夫

# python2.6 で >>41

columns = (u'氏名', u'体重', u'身長', u'年齢')
data =(
    (u'山下',65,177,23),
    (u'尾崎',64,168,60),
    (u'飯島',72,173,29),
    (u'吉田',69,166,44))
for dat in data:
    dic = dict(zip(columns,dat))
    if 160 <= dic[u'身長'] < 170:
        print dic[u'氏名']

# 無理やりワンライナー
print ' '.join(map(lambda dic:dic[u'氏名'], filter(lambda dic:160 <= dic[u'身長'] < 170, map(lambda d:dict(zip(columns,d)), data))))

>>43
これは、

?- 身長 が 160 cm 以上 で 170 cm 未満 の 人 の 名前 は _誰.

というように使うのですか？

>>46
そうですね。「名前 は _誰.」 は少し不自然なので

?- 身長 が 160 cm 以上 で 170 cm 未満 の 人 の 名前 は X.

X = 尾崎;
X = 吉田;
no
で十分でしょう。

"が","で","の","は" が関数になっていますから、

名前 が _名前 の 人 の　体重 は _体重 :- データ(_名前,_体重,_,_).

のような定義が何も考えずにできます。
ここまで単純だと節の自動生成をする述語定義もすぐできます。

名前の197は「Prologでまったり Part4」スレに書き込んだ時の残り滓でした。
無視してください。

インタラクティブなプログラムのコーディングで勝負しようぜ

インタラクティブな環境だとわかりますが、
インタラクティブなプログラムだとイメージできません。
申し訳ないが、少し説明してください。

>>50
たとえば任意の文字列を一文字ずつ順番に0.5〜2秒のランダムな間隔でCUI表示するプログラム。

>>33
ぱっと見あってそうだが…
"〜加えた時点で加算を終了" のところが違うかも
でもこれってみんな違うよねｗ

-----
F# で>>28
let rec f n s =
    if n < 0.00001
    then s + n
    else f (n / 3.) (s + n);;

f 1. 0. |> printfn "%f";;

>>52
>>35 の第二節が
f(P,_,P) :- P < 0.00001,!. であるか
f(P,_,0.0) :- P < 0.00001,!. であるかということかな。

>>53
ごめん…Prologは名前を知ってる程度でその違いまではわかんない
というか>>29は分かるけど>>35は理解できなかった
できれば解説ｷﾎﾞﾝ…

-----
F# で>>41
let data =
    [("山下", 65, 177, 23);
     ("尾崎", 64, 168, 60);
     ("飯島", 72, 173, 29);
     ("吉田", 69, 166, 44)];;

List.iter (fun (n, _, t, _) -> if t >= 160 && t < 170 then printfn "%s" n) data;;

>>53
今わかったｗ

>f(P,_,P) :- P < 0.00001,!. であるか
>f(P,_,0.0) :- P < 0.00001,!. であるかということかな。
そうです
で、問題に合う(0.00001以下の項を加えた時点で加算終了)のは前者のほうですね

>>29もそこ合ってますね…何が違うんだろ

>>54
fは3引数でその第一引数に 1/1->1/3->1/9->1/27 ... 逆数分数の遷移が
第二引数に 1->3->9->27 と次の逆数計算の分母からきます。
第三引数はその逆数計算の累計が計算されるところですが、論理変数のままで、
実値がここに入って次の呼び出しに渡されるというようなことはありません。
再帰が終了して漸く計算が始まるように見えます。それが第三節の最後の
f(P2,M,S2), の後にある S is S2 + P です。
f(P,_,P) :- P < 0.00001,!. だと分数が0.00001より小さくなったときその最小分数を起点に
再帰的に逆数分数が加算されて解を求めるという宣言であり、
f(P,_,0.0) :- P < 0.0001,!. は0.00001より小さくなった時の逆数分数は加算せずに
再帰的に逆数分数が加算されて解が求まるという宣言です。
第三節で次の逆数分数を先読み的に計算してしまっている点に注意してください。

>>57
詳しい解説ありがとうございます
第三引数の扱いがイマイチ分からなかったので助かります

>>56
>29は終了条件の判定で分母しかみてないのでは？

>>59
普通
sigma = a + a(1/r) + a(1/r) + ... + a(1/r^n) (問題では 1/r^n < 0.00001 で、ここで加算終了)
なんだけど、
>>29は
sigma = (a + ar + ar^2 + ... + ar^n) / r^n
って解いてる。つまり、最後に足した項が普通のほうの初項
だから、
1/r^n < 0.00001 ⇔ r^n > 100000 が終了条件でおｋ

まぁ、そのへんが「悪い回答」なんだろうｗ

>>46
やっぱり膠着語の方が便利だねw

<<問題>> この問題は他の言語の宿題スレの問題ではありません。
「論理少女1」つじ要作 というマンガの中に出てくる問題です。
できるだけ、問題文に忠実な表現になるようにこの問題を解いてください。
<<問題は3問ありますが、手始めに第一問>>

ちょうど一万円札・千円札・百円玉・十円玉があるわ。今からこのお金を・・・
髪の中、胸のポケット、スカートのポケット、靴の中に・・・それぞれ一つずつ隠します

ヒントをもとにどこに何を隠したかを当てていくのよ　では第一問　ヒントは、
・ 一万円札は髪の中
・ 千円札は十円玉より上の位置
・ スカートには胸の10倍のお金が入っている
それでは、全てのお金の位置は？

>>62
著作権の問題が心配だが・・・

import Data.List
import Control.Monad

data Position = Shoe | Skirt | Chest | Hair
  deriving (Show, Eq, Ord)

solve :: [String]
solve = do
  -- ちょうど一万円札・千円札・百円玉・十円玉があるわ。今からこのお金を・・・
  let money = [10000, 1000, 100, 10]
  -- 髪の中、胸のポケット、スカートのポケット、靴の中に・・・それぞれ一つずつ隠します
  (position, content) <- mappings money [Hair, Chest, Skirt, Shoe]
  -- 一万円札は髪の中
  guard $ position 10000 == Hair
  -- 千円札は十円玉より上の位置
  guard $ position 1000 > position 10
  -- スカートには胸の10倍のお金が入っている
  guard $ content Skirt == 10 * content Chest
  -- それでは、全てのお金の位置は？
  let disp n = show (position n) ++ "(" ++ show n ++ ")"
  return $ unwords $ map disp money

main = putStr $ unlines solve

mappings :: (Eq a, Eq b) => [a] -> [b] -> [(a -> b, b -> a)]
mappings xs ys = do
  ys' <- permutations ys
  return (make xs ys', make ys' xs)
  where
    make from to = \value -> case lookup value (zip from to) of
      Just r -> r
      Nothing -> error "lookup failed"

>62-64

スレ違い

> 他の宿題スレで出された問題を各々好きな言語で解答して言語の良さを競い合うスレです。

>>65
まぁ、スレの目的と外れすぎているというわけでもないから、多少の柔軟性は考えるよ。

>>62から出題された宿題ということで。

# では、python2.6 で >62。 posは、indexが小さいほど体の上の方であるとします。
money = {u'一万円札':10000,u'千円札':1000,u'百円玉':100,u'十円玉':10}
pos = [u'髪の中',u'胸のポケット',u'スカートのポケット',u'靴の中']
m2p = dict(zip(money.keys(),pos))
def hint1(m2p):
    u"""一万円札は髪の中"""
    return m2p[u'一万円札'] == u'髪の中'
def hint2(m2p):
    u"""千円札は十円玉より上の位置"""
    return pos.index(m2p[u'千円札']) < pos.index(m2p[u'十円玉'])
def hint3(m2p):
    u"""スカートには胸の10倍のお金が入っている"""
    p2m = dict((v.split(u'の')[0],k) for k,v in m2p.items())
    return money[p2m[u'スカート']] == money[p2m[u'胸']] * 10
def solve(m2p, m2p_keys):
    solve_list = []
    if len(m2p_keys) > 1:
        k1 = m2p_keys[0]
        for k2 in m2p_keys:
            m2p[k1], m2p[k2] = m2p[k2], m2p[k1]
            solve_list += solve(m2p, m2p_keys[1:])
            m2p[k1], m2p[k2] = m2p[k2], m2p[k1]
    elif hint1(m2p) and hint2(m2p) and hint3(m2p):
        solve_list.append(m2p.copy())
    return solve_list
if __name__ == '__main__':
    lst = solve(m2p, m2p.keys())
    if not lst: print u'解なし'; exit()
    print u'解を%d個見つけました' % len(lst)
    for d in lst:
        print "\n"+"\n".join(u'%sに%s'%(p, m)for m,p in d.items())

# >67の solve 以下を書き直し。
# こっちだと、>67の 4行目 m2p = ... の部分は要らなくなります。
# 結果はどちらも同じです。

def solv():
    def permutation(lst):
        if not lst:
            yield []
            return
        for i in range(0, len(lst)):
            for x in permutation(lst[:i] + lst[i+1:]):
                yield x + [lst[i]]
    is_match = lambda m2p:hint1(m2p) and hint2(m2p) and hint3(m2p)
    return filter(is_match, map(lambda m:dict(zip(m,pos)), permutation(money.keys())))
if __name__ == '__main__':
    lst = solv()
    if not lst: print u'解なし'; exit()
    print u'解を%d個見つけました' % len(lst)
    for d in lst:
        print '\n'+'\n'.join(u'%sに%s'%(p, m)for m,p in d.items())

>>62
% Prolog (残り半分があります)
:- op(800,xfx,は).
:- op(650,xfx,の).
:- op(250,xf,円).

隠した物([一万円札,千円札,百円玉,十円玉]).

隠した場所([髪の中,胸のポケット,スカートのポケット,靴の中]).

髪の中 は 胸のポケット の 直ぐ上にある.
胸のポケット は スカートのポケット の 直ぐ上にある.
スカートのポケット は 靴の中 の 直ぐ上にある.

A は B の 上にある :- A は B の 直ぐ上にある.
A は B の 上にある :- A は C の 直ぐ上にある,C は B の 上にある.

お金(一万円札,10000 円).
お金(千円札,1000 円).
お金(百円玉,100 円).
お金(十円玉,10 円).

ヒント(1,髪の中,一万円札).
ヒント(2,_千円札の場所,千円札,_十円玉の場所,十円玉) :- _千円札の場所 は _十円玉の場所 の 上にある.
ヒント(3,スカートのポケット,_物1,胸のポケット,_物2) :- お金(_物1,_円1 円),お金(_物2,_円2 円),_円_1 is _円2 * 10.

% 続きです。この他に順列/3の定義が必要ですが。
全てのお金の位置は？(_解) :-
解候補の作成(_解),
member([_場所1,_物1],_解),
ヒント(1,_場所1,_物1),
member([_場所2,_物2],_解),
member([_場所3,_物3],_解),
ヒント(2,_場所2,_物2,_場所3,_物3),
member([_場所4,_物4],_解),
member([_場所5,_物5],_解),
ヒント(3,_場所4,_物4,_場所5,_物5).

解候補の生成(_解) :-
隠した物(_隠した物リスト),
隠した場所(_隠した場所リスト),
length(_隠した物リスト,_要素数),
順列(_隠した物リスト,_要素数,_物候補),
解候補の生成(_隠した場所リスト,_物候補,_解).

解候補の生成([],_,[]).
解候補の生成([A|R1],[B|R2],[[A,B]|R]) :-
解候補の生成(R1,R2,R).

>>69 誤りがあった。
... :- お金(_物1,_円1 円),お金(_物2,_円2 円),_円_1 is _円2 * 10.

_円_1 という所は _円1 ですね。

% こういうのもある。マンガの表現から遠い気がして採用しなかったが、
% こちらの方が引数がすっきりして分かり易いかもしれない。
ヒント(1,_解).
　　member([髪の中,一万円札],_解).
ヒント(2,_解) :-
　　member([_千円札の場所,千円札],_解),
　　member([_十円玉場所,十円玉],_解),
　　_千円札の場所 は _十円玉の場所 の 上にある.
ヒント(3,_解) :-
　　member([スカートのポケット,_物1],_解),
　　member([胸のポケット,_物2],_解),
　　お金(_物1,_円1 円),
　　お金(_物2,_円2 円),
　　_円1 is _円2 * 10.

全てのお金の位置は？(_解) :-
　　解候補の作成(_解),
　　ヒント(1,_解),
　　ヒント(2,_解),
　　ヒント(3,_解).

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

<<問題2>>「論理少女1」つじ要作 というマンガの中に出てくる問題です。
4箇所の隠し場所と4つのアイテム(お金)は>>62と同じですが、
隠す場所は一度ご破算にします。以下のヒントを読んで、
できるだけ問題文に忠実な表現になるようにプログラミングしてください。
1) 髪の中かスカートのポケットのどちらか一万円札が入っている
2) 胸のポケットに入っているお金はスカートに入ってるお金の10倍
3) 百円玉は千円札より上の位置にある
4) 靴の中のお金は髪の中のお金の100倍
そして、1)..4)のうちどれかが嘘。
それでは、
靴の中のお金は？

money = {u'一万円札':10000,u'千円札':1000,u'百円玉':100,u'十円玉':10}
pos = [u'髪の中',u'胸のポケット',u'スカートのポケット',u'靴の中']
class assumption:
    def __init__(self, m2p):
        self.m2p, self.p2m = m2p, dict((v,k) for k,v in m2p.items())
class condition:
    hint = {
        (1):lambda a:a.m2p[u'一万円札'] in (u'髪の中', u'スカートのポケット'),
        (2):lambda a:money[a.p2m[u'胸のポケット']] == money[a.p2m[u'スカートのポケット']] * 10,
        (3):lambda a:pos.index(a.m2p[u'百円玉']) < pos.index(a.m2p[u'千円札']),
        (4):lambda a:money[a.p2m[u'靴の中']] == money[a.p2m[u'髪の中']] * 100,
    }
    @classmethod
    def match(cls, a):
        return 3 == len(filter(lambda h:h(a), cls.hint.itervalues()))
def solv():
    def permutation(lst):
        if not lst:
            yield []
            return
        for i in range(0, len(lst)):
            for x in permutation(lst[:i] + lst[i+1:]):
                yield x + [lst[i]]
    return filter(condition.match, map(lambda m:assumption(dict(zip(m, pos))),
                                      permutation(money.keys())))
if __name__ == '__main__':
    lst = solv()
    if not lst: print u'解なし'; exit()
    print u'条件を満たす組み合わせは%d通りありました。' % len(lst)
    print u'靴の中には%sが入っています。' % u'か'.join(set(map(lambda a:a.p2m[u'靴の中'], lst)))

もはや「問題文に忠実な表現」とかよく分からなくなっているｗ
そして１レスに詰め込むのも限界にきている。

>>64のsolveを差し替えで

solve :: [String]
solve = nub $ do
  -- ちょうど一万円札・千円札・百円玉・十円玉があるわ。今からこのお金を・・・
  let money = [10000, 1000, 100, 10]
  -- 髪の中、胸のポケット、スカートのポケット、靴の中に・・・それぞれ一つずつ隠します
  (position, content) <- mappings money [Hair, Chest, Skirt, Shoe]
  -- 1) 髪の中かスカートのポケットのどちらか一万円札が入っている
  let h1 = content Hair == 10000 || content Skirt == 10000
  -- 2) 胸のポケットに入っているお金はスカートに入ってるお金の10倍
  let h2 = content Chest == 10 * content Skirt
  -- 3) 百円玉は千円札より上の位置にある
  let h3 = position 100 > position 1000
  -- 4) 靴の中のお金は髪の中のお金の100倍
  let h4 = content Shoe == 100 * content Hair
  -- そして、1)..4)のうちどれかが嘘。
  guard $ length (filter not [h1, h2, h3, h4]) == 1
  -- それでは、靴の中のお金は？
  return $ show $ content Shoe

http://pc12.2ch.net/test/read.cgi/tech/1242655611/645
[1] 授業単元： プログラミング
[2] 問題文(含コード&リンク)：１方向線上リストを使って、スタックを実現せよ。ただ
し、各記憶要素ｘは整数値をとるもの
とする。　要素ｘをプッシュするpush(int x)、ポップしてその値を返すpop()、スタック
が
空かどうかを判断し真偽値を返すempty()、ならびに現在のスタック内容全体を表示するs
how()を用意する。

>>78
% Prolog
push(X,L,[X|L]).
pop(X,[X|L],L).
empty([]).
show(L) :- write(L).

>>79 実行例
?- push(3,[],L1),push(4,L1,L2),not(empty(L2)),pop(X,L2,L3),write(L3),nl.
[4]
L1 = [3],
L2 = [3,4],
X = 3,
L3 = [4]
yes
?-

>>80 失礼、まちがえました。実行していなかったので・・・
?- push(3,[],L1),push(4,L1,L2),not(empty(L2)),pop(X,L2,L3),write(L3),nl.
[3]
L1 = [3],
L2 = [3,4],
X = 4,
L3 = [3]
yes
?-

>>81 まだ間違えがあった!!
?- push(3,[],L1),push(4,L1,L2),not(empty(L2)),pop(X,L2,L3),write(L3),nl.
[3]
L1 = [3],
L2 = [4,3],
X = 4,
L3 = [3]
yes
?-

// javascript(JScript) + WSH で >>78。WSHは、Echoだけですが。
function puts(x){WScript.Echo(x);}
function Stack(){}
Stack.prototype = {
    node: undefined,
    push: function(x){
        this.node = {'next': this.node, 'value':x};
        return this;
    },
    pop: function(x){
        var value = undefined;
        if(this.node){
            value = this.node.value;
            this.node = this.node.next;
        }
        return value;
    },
    empty: function(){return !this.node},
    show: function(){
        var a = [];
        for (var node=this.node; node; node=node.next){a.push(node.value);}
        puts('[' + a.join(',') + ']');
    }
}
function main(){
    var stack = new Stack();
    stack.push(3).push(1).push(4).push(1).push(5).push(9).push(2);
    stack.show();
    while(!stack.empty()){puts('POP :' + stack.pop()); stack.show();}
}
main();// 動作テスト

http://pc12.2ch.net/test/read.cgi/tech/1232627790/588
【　課題　】車、新幹線、飛行機の３つの交通手段を考える。
距離と、所要時間の最大限度(許容最長時間)を指定したとき、許容最長時間内に
目的地に到着可能で、かつ、費用が一番安い交通手段を調べて表示しなさい。
ただし、距離(km)と許容最長時間(h) は浮動小数点数としてキーボードから与える。
許容最長時間内に到着できる手段がない場合は、「不可能です」と表示する。
それぞれの時速、料金、利用規定は
車 : 60km/h、20 円/km、
新幹線 : 200km/h、50 円/km、距離が50km以上のときに利用可能
飛行機 : 1000km/h、35 円/km、距離が400km以上のときに利用可能 待機・乗降を合わせ
て1 時間にかかる
とする。

>>84
% Prolog (1/2)
:- op(250,xf,km).
:- op(250,xf,h).
:- op(250,xf,円).

交通手段(車).
交通手段(新幹線).
交通手段(飛行機).
時速(車,60 km / h).
時速(新幹線,200 km / h).
時速(飛行機,1000 km / h).
料金(車,20 円 / km).
料金(新幹線,50 円 / km).
料金(飛行機,35 円 / km).
利用規定(新幹線,_距離 km) :- _距離 >= 50.
利用規定(飛行機,_距離 km) :- _距離 >= 400.
利用規定(車,_距離 km) :- _距離 >= 0.
付加的な所要時間(飛行機,待機・乗降の合計,1 h).
付加的な所要時間(車,なし,0 h).
付加的な所要時間(新幹線,なし,0 h).

% Prolog (2/2)
許容最長時間内に目的地に到着可能で、かつ、費用が一番安い交通手段(_距離 km,_許容
最長時間 h,_交通手段) :-
findall([_費用,_交通手段],(交通手段(_交通手段),目的地に到達時間(_交通手段,_
距離 km,_許容最長時間 h,_費用)),_候補リスト),
min(_候補リスト,[_費用,_交通手段]),!.

許容最長時間内に目的地に到着可能で、かつ、費用が一番安い交通手段(_,_,'不可能です
').

目的地に到達時間(_交通手段,_距離 km,_許容最長時間 h,_費用) :-
利用規定(_交通手段,_距離 km),
時速(_交通手段,_時速 km / h),
料金(_交通手段,_料金 円 / km),
付加的な所要時間(_交通手段,_,_付加的な所要時間 h),
_到達時間 is (_距離 / _時速) + _付加的な所要時間,
_到達時間 =< _許容最長時間,
_費用 is _料金 * _距離.

>>86 全面的に書き換え % Prolog (2/2)

許容最長時間内に目的地に到着可能で、かつ、費用が一番安い交通手段(_距離 km,_許容
最長時間 h,_交通手段) :-
　findall([_費用,_交通手段],
　　( 交通手段(_交通手段),
　　　許容時間内に到達可能(_交通手段,_距離 km,_許容最長時間 h),
　　　料金(_交通手段,_料金 円 / km),
　　　_費用 is _料金 * _距離),_候補リスト),
　min(_候補リスト,[_費用,_交通手段]),!.　

許容最長時間内に目的地に到着可能で、かつ、費用が一番安い交通手段(_,_,'不可能です
').

許容時間内に到達可能(_交通手段,_距離 km,_許容最長時間 h) :-
　利用規定(_交通手段,_距離 km),
　時速(_交通手段,_時速 km / h),
　付加的な所要時間(_交通手段,_,_付加的な所要時間 h),
　_到達時間 is (_距離 / _時速) + _付加的な所要時間,
　_到達時間 =< _許容最長時間.

http://pc12.2ch.net/test/read.cgi/tech/1242655611/792
[1] 授業単元： プログラミング演習
[2] 問題文(含コード&リンク)： 1~100の任意のN個の整数値を一次元配列に読み込み、そ
の合計値と平均値を求め、
　　　　　　　　　　　　　　　80~100,70~79,60~69,59以下の個数をそれぞれ出力する
プログラムを作りなさい。
　　　　　　　　　　　　　　　(1)入力データ数（Nは10以上とする）
　　　　　　　　　　　　　　　(2)入力データ値（配列より読み出し、同じ値は使わな
い）
　　　　　　　　　　　　　　　(3)入力データの合計値、平均値
　　　　　　　　　　　　　　　(4)入力データについて各ランクの個数

　　　　　　　　　　　　　　　(1)~(3)まではできたのですが、(4)がわかりません。。

　　　　　　　　　　　　　　　http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/
joyful/img/9352.txt
　　　　　　　　　　　　　　　↑これの続きにお願いします！

>>88
% Prolog (1/3)
問題C792 :-
問題C792(_合計,_平均,_ランクリスト),
集計項目の表示(_合計,_平均,_ランクリスト).

問題C792(_合計,_平均,_ランクリスト) :-
入力データ数の設定(_入力データ数),
整数を読み込む(_入力データ数,[],_入力データ値リスト),
入力データの集計(_入力データ値リスト,_入力データ数,[0,0,0,0],_ランクリ
スト,0,_合計,_平均).

集計項目の表示(_合計,_平均,_ランクリスト) :-
write_formatted('合計: %t\n平均: %t\n',[_合計,_平均]),
list_length(_ランクリスト,_ランクの数),
for(1,N,_ランクの数),
ランク(_,N,_ランク表示),
list_nth(N,_ランクリスト,_ランク集計値),
write_formatted('%t: %t\n',[_ランク表示,_ランク集計値]),
N=_ランクの数.

ランク(N,1,'80~100') :- N>=80,N=<100.
ランク(N,2,'70~79') :- N>=70,N=<79.
ランク(N,3,'60~69') :- N>=60,N=<69.
ランク(N,4,'59以下') :- N<=59.

>>88
% Prolog (2/3)
入力データの集計([],_入力データ数,_ランクL,_ランクL,_合計,_合計,_平均) :-
_平均 is _合計 / _入力データ数,!.
入力データの集計([N|R],_入力データ数,_ランクL1,_ランクL,_合計_1,_合計,_平均) :-
データランク(N,_位置,_),
位置要素に加算(_位置,1,_ランクL1,_ランクL2),
入力データの集計(R,_入力データ数,_ランクL2,_ランクL,_合計2,_合計,_平均) :-

位置要素に加算(1,N,[A|R],[B|R]) :- B is A+N,!.
位置要素に加算(P,N,[A|R1],[A|R2]) :- P2 is P-1,位置要素に加算(P2,N,R1,R2).

入力データ数を読み込む(_入力データ数) :-
write('入力データ数を設定してください(ピリオドを付加): '),
read(_入力データ数),
integer(_入力データ数),
_入力データ数>=10,!.
入力データ数の読み込み(_入力データ数) :-
write('正しい入力データ数が得られませんでした!\n10以上の整数を指定してくださ
い\n'),
入力データ数の読み込み(_入力データ数).

>>88
% Prolog (1/4) 読みにくかったので書き直します。 >>89,>>90 はキャンセル
問題C792 :-
　　問題C792(_合計,_平均,_データランクリスト),
　　集計項目の表示(_合計,_平均,_データランクリスト).

問題C792(_合計,_平均,_データランクリスト) :-
　　入力データ数の設定(_入力データ数),
　　整数を読み込む(_入力データ数,[],_入力データ値リスト),
　　入力データの集計(_入力データ値リスト,_入力データ数,[0,0,0,0],_データランクリ
スト,0,_合計,_平均).

集計項目の表示(_合計,_平均,_データランクリスト) :-
　　write_formatted('合計: %t\n平均: %t\n',[_合計,_平均]),
　　list_length(_データランクリスト,_ランクの数),
　　for(1,N,_ランク数),
　　データランク(_,N,_ランク表示),
　　list_nth(N,_データランクリスト,_ランク集計値),
　　write_formatted('%t: %t\n',[_ランク表示,_ランク集計値]),
　　N=_ランクの数.

データランク(N,1,'80~100') :- N>=80,N=<100.
データランク(N,2,'70~79') :- N>=70,N=<79.
データランク(N,3,'60~69') :- N>=60,N=<69.
データランク(N,4,'59以下') :- N<=59.

>>88
% Prolog (2/4)
入力データの集計([],_入力データ数,_ランクL,_ランクL,_合計,_合計,_平均) :-
　　_平均 is _合計 / _入力データ数,!.
入力データの集計([N|R],_入力データ数,_ランクL1,_ランクL,_合計_1,_合計,_平均) :-
　　データランク(N,_位置,_),
　　位置要素に加算(_位置,1,_ランクL1,_ランクL2),
　　入力データの集計(R,_入力データ数,_ランクL2,_ランクL,_合計2,_合計,_平均) :-

位置要素に加算(1,N,[A|R],[B|R]) :- B is A+N,!.
位置要素に加算(P,N,[A|R1],[A|R2]) :- P2 is P-1,位置要素に加算(P2,N,R1,R2).

入力データ数を読み込む(_入力データ数) :-
　　write('入力データ数を設定してください(ピリオドを付加): '),
　　read(_入力データ数),
　　integer(_入力データ数),
　　_入力データ数>=10,!.
入力データ数の読み込み(_入力データ数) :-
　　write('正しい入力データ数が得られませんでした!\n10以上の整数を指定してくださ
い\n'),
　　入力データ数の読み込み(_入力データ数).

>>92
そのまま続けると入力規制に引っ掛かりますよ!

% Prolog (3/4)
整数を読み込む(0,L,[]) :- !.
整数を読み込む(P,L,[N|R]) :-
　　write('整数を入れてください(ピリオドを付加): '),
　　read(N),
　　整数入力検査(N,L),
　　P2 is P-1,
　　整数を読み込む(P2,[N|L],R).
整数を読み込む(P,L,X) :- 整数を読み込む(P,L,X).

http://pc12.2ch.net/test/read.cgi/tech/1242655611/741
[1] 授業単元：プログラミング演習
[2] 問題文(含コード&リンク)：1〜256文字の文字列Sと単語Wを入力し、文字列Sの最初の単語がWであるときは文字列Sの先頭に*を付けたものを出力し、そうでないときはSをそのまま出力するプログラムを作成しなさい。
[3] 環境
　[3.1] OS：Linux
　[3.2] コンパイラ名とバージョン：gcc
　[3.3] 言語：C
[4] 期限：6月10日 8:00
[5] その他の制限：2つの単語が等しいときは1を、等しくないときは0を返す関数int compare(char *, char *)を作成して用いること。
　　　　　　　　　入力する文字列に2つ以上の連続したスペースはないとする。
　　　　　　　　　入力する文字列の最初と最後はスペースでないとする。

http://pc12.2ch.net/test/read.cgi/tech/1242655611/725
苗字・名前・年齢・身長・体重を入力し、
その個人データを氏名・年齢・身長・体重・BMIの値とコメントを出力する。

# BMI計算式とコメント
式：BMI=体重(kg)/身長(cm)/身長(cm)*10000
BMI=18.5 以下、やせてます
BMI=18.5 超え 25.0 未満、普通です
BMI=25.0 以上、レッツエクササイズ！

>>88
% Prolog (4/4)
整数入力検査(N,L) :-
　　integer(N),
　　N >= 0,
　　N =< 100,
　　not(member(N,L)),!.
整数入力検査(N,L) :-
　　not(integer(N)),
　　write('整数ではありません! 再入力が必要です。\n'),
　　!,fail.
整数入力検査(N,L) :-
　　integer(N),
　　not((N >= 0,N =< 100)),
　　write('整数範囲が正しくありません! 再入力が必要です。\n'),
　　!,fail.
整数入力検査(N,L) :-
　　integer(N),
　　N >= 0,N =< 100,
　　member(N,L),
　　write('既出の整数です! 再入力が必要です。\n'),
　　!,fail.

>>96
http://nojiriko.asia/prolog/bmidata.html

http://pc12.2ch.net/test/read.cgi/tech/1242655611/809

<問題>>
http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9353.txt

突然骨のある問題が。

>>99
% Prolog (1/2)
可能経路数(_桝,_開始点_X,_開始点_Y,_経路の数) :-
　　findall(1,駒の動き(_開始点_X,_開始点_Y,_),L),
　　length(L,_経路の数).

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

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

>>99
% Prolog (2/2)
変位(2,1).
変位(1,2).
変位(-1,2).
変位(-2,1).
変位(-2,-1).
変位(-1,-2).
変位(1,-2).
変位(2,-1).

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

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

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

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

http://pc12.2ch.net/test/read.cgi/tech/1200175247/547

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

import Data.Char (toLower)
import Data.List (sortBy)
import Data.Function (on)
import Data.Map (fromListWith, toList)

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

% Prolog >>105とは対照的なプログラム
t104(Atom,AtomX) :-
　　findall([0,N],for(97,N,122),L),
　　to_lower(Atom,Atom2),
　　atom_codes(Atom2,L1),
　　t104_2(L1,L,L2),
　　sort(L2,L3),
　　t104_3(L3,[],L4),
　　atom_codes(AtomX,L4),!.

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

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

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

>>106
せっかく t104_2 から t104_3 が同一プログラムパターンできているのだから、
t104_4 も同一パターンに徹するべき。

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

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

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

http://pc12.2ch.net/test/read.cgi/tech/1242655611/590
[1] 授業単元：Cプログラミング
[2] 問題文(含コード&リンク)：ポインタ配列
char *month[ ] = { "None", "January", "February", "March", "April", "May", "June
", "July",
"August", "September", "October", "November", "December" };
を用いて1〜12の数値を入力してJanuary〜Decemberを返す関数GetMonthを作成せよ.

% Prolog (問題やさし過ぎた! Prologチュートリアルと思ってください)
month(['None','January','February','March','April','May','June','July',
'August','September','October','November','December']).

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

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

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

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

が正しい。お粗末!

http://pc12.2ch.net/test/read.cgi/tech/1153585095/640
【　課題　】
指定したフォルダの中身をフォルダの構成などを含めて完全にバックアップするソフトを作成すること。

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

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

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


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

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

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

>>112 (5、この問題だけしか通用しないアルゴリズム？)
t112_5(L,X) :-
t112_5(L,[0,0,0],X).

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

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

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

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

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

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

http://pc12.2ch.net/test/read.cgi/tech/1244449887/9
マッチロジックを用い、次に示すようなプログラムを作りなさい

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

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

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

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

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

つづき、
処理手順
１）M、Tともにデータがある、MとTを比較
　�@M<Tのとき
　　→Mを出力
　�AM=Tのとき
　　→Tを出力�B
　�BT同士で比較
　　同じコードのデータが複数ある→1番下のデータを出力
　�CMを読み込む
　�DM>Tのとき
　　→Tを出力�B
２）Mにのみデータがある
　　Mを出力
３）Tにのみデータがある
　　Tを出力�B
４）両方のファイルがなくなれば終了

>>115 COBOL向き問題
% Prolog(1/2) オンメモリ版
t115(M,T) :-
　　g115(M,L1),
　　g115(T,L2),
　　b(L1,L2,L3),
　　p115(M,L3).

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

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

% Prolog(2/2)

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

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

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

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

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

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

>>112 6、
% Prolog

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

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

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

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

>>112 7、
% Prolog

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

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

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

>>74
% Prolog
http://nojiriko.asia/prolog/t74.html

<<問題>>
http://pc12.2ch.net/test/read.cgi/tech/1244449887/64
http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9394.txt

>>123
% Prolog
http://nojiriko.asia/prolog/t123.html

http://pc12.2ch.net/test/read.cgi/tech/1197620454/355

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

>>125
http://nojiriko.asia/prolog/t125.html

ttp://nojiriko.asia/prolog/t123.html

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

<<課題>> これもC/C++の宿題から
http://pc12.2ch.net/test/read.cgi/tech/1244449887/122
http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9408.txt

>>128
% Prolog
% t128_1 はパス

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

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

課題はリンクを張っただけだと、そちらのスレが
過去スレログに回ってしまうと簡単には見られなくなるな。
やはり、少なくともポイントは<<課題>>の後に書かないと。

http://pc12.2ch.net/test/read.cgi/tech/1200175247/529
[1] 授業単元：Ruby
[2] 問題文　ファイル分割

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

ruby split.rb hoge.csv tmp/ 4

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

>>131
% Prolog
http://nojiriko.asia/prolog/t131.html

<<課題>> C/C++
[1] 授業単元：ｃ言語
[2] 問題文:
http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9418.txt
http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9419.txt
課題1-3 で作成したvoid fCountHindo(FILE*) に対して、英小文字を大文字として数える void fCountHindoIgnoreCase(FILE *)を作りなさい。

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

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

いい問題みつけた。
[1] 授業単元：C言語演習課題
http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9422.txt
問題
年と月を「YYYY/MM」と入力し、入力された月のカレンダーを表示しなさい。

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

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

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

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

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

<<課題>> Ruby
[1] 授業単元： Ruby演習 [2] 問題文、http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9426.txt
Rubyの問題がわかりません
助けてください

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

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

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

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

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

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

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

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

% Prolog(2/2)
一つ違い(M,N) :-
　　integer(M),!,
　　N is M + 1.
一つ違い(M,N) :-
　　integer(N),!,
　　M is N + 1.

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

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

訂正
一つ違い(M,N) :-
　　integer(M),!,
　　N is M + 1.
一つ違い(M,N) :-
　　integer(N),!,
　　M is N - 1.

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

前日・今日の最後の節がコピペできていませんでした。

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

が一番最後に来ますね。

>>136 (4)だけです
% Prolog (正規表現との競争ということかな 少し負けるが・・)
% http://nojiriko.asia/prolog/t136.html
:- op(700,xfx,(=>)).
t136(Atom,X) :- 英語色日本語色ペアリストの作成(Atom,X).

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

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

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

>>143
色色とあるのは色の間違いです。

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

<<問題>>
http://pc12.2ch.net/test/read.cgi/tech/1244449887/206
[1] プログラミング
[2] 入力した数値を4で割った余りを求めるプログラムを作れ。(switch)を用いて。

>>145
% Prolog
'4で割ったあまり'(0,0).
'4で割ったあまり'(1,1).
'4で割ったあまり'(2,2).
'4で割ったあまり'(3,3).
'4で割ったあまり'(N,X) :- M is N-4,'4で割ったあまり'(M,X).

>>145
このプログラムを
?- member(N,[11,33,47,51]),'4で割ったあまり'(N,X).

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

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

http://pc12.2ch.net/test/read.cgi/tech/1232627790/675
【　課題　】二つの文字列str1 とstr2 を入力して、str1 とstr2 から交互に一文字ずつ順番にとりだして、交
互にならべた文字列をつくれ。長い方の文字列の後の部分はそのままくっついた形になる。
String,StringBuffer クラスのメソッドを使え。

% Prolog
交互にならべた文字列(Str1,Str2,Str) :-
　　atom_chars(Str1,Chars1),
　　atom_chars(Str2,Chars2),
　　交互にならべた文字列_1(Chars1,Chars2,Chars3),
　　atom_chars(Str,chars3).

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

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

<<課題>> C
http://pc12.2ch.net/test/read.cgi/tech/1244449887/209
１行に一つづつ表示するプログラムを作成せよ。
空白が２個以上連続してもうまく動作するようにすること。また、コンマ(,)、
ピリオド(,)は表示する単語に含めないこと。

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

・出力
　　This
is
a
pen

>>151
% Prolog (1/2)
文字列から切り出した単語の行表示(_文字列) :-
　　文字列から単語の切り出し(_文字列,_単語ならび),
　　wrln(_単語ならび).

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

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

>>151
% Prolog (2/2)
区切り文字(' ').
区切り文字('\n').
区切り文字('.').
区切り文字(',').

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

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

>>147
'4で割ったあまり'(0,0).
'4で割ったあまり'(1,1).
'4で割ったあまり'(2,2).
'4で割ったあまり'(3,3).
'4で割ったあまり'(N,X) :- N > 3,M is N-4,'4で割ったあまり'(M,X).

>>154
's(s(s(s(0))))で割ったあまり'(0,0).
's(s(s(s(0))))で割ったあまり'(s(0),s(0)).
's(s(s(s(0))))で割ったあまり'(s(s(0)),s(s(0))).
's(s(s(s(0))))で割ったあまり'(s(s(s(0))),s(s(s(0)))).
's(s(s(s(0))))で割ったあまり'(s(s(s(s(S)))),X) :- 's(s(s(s(0))))で割ったあまり'(S,X).

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

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

>>151
LEXを使えば超カンタン！

これで終り
↓

%{
#include <stdio.h>
%}

%option noyywrap

%%

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

%%

main()
{
yylex();
}

<<課題>> C/C++
[1] 授業単元：プログラミング演習
[2] 問題文(含コード&リンク)：http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9442.txt

>>157
% Prolog
http://nojiriko.asia/prolog/t157.html

>>135
% Prolog 一応書き上げました。使えるユーティリティを含みますが出来は悪い。
http://nojiriko.asia/prolog/t135.html

>>74
% Prolog これは忘れてました。
http://nojiriko.asia/prolog/t74.html

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

>>161
# >>701
# ttp://rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/702.zip
#
# ＞捌き率は標準偏差の3倍の範囲を考慮する正規分布に従うものとする。
# ここだけ意味分からなかったから、自分でGateModel#getDepartureInterval()を適当に書き換えて。

http://pc12.2ch.net/test/read.cgi/tech/1244449887/324
# [1] 授業単元： プログラミング
# [2] 問題文
# 問5.1に示す表を表示するプログラムを作成せよ。
# ただし氏名はポインタ配列を用いて参照するようにし、年齢、初任給は配列に入れる。
#
# 氏名は次のようにポインタ配列に初期値として入れる。
# char *namae[]={"高専 卒男","大学 学男","大学 修治"};
#
# 年齢、初任給は二次元配列salary[3][2]を宣言してそこに読み込む。方法としては次の2通りがある。
# (1)キーボードから読み込む
# (2)配列の初期設定で行う
# Salary[][2]={{20,215000},
# {22,235000},
# {24,255000}};
#
# 表はこれです
# http://a.pic.to/11fgne
# 氏名 ,年齢,初任給
# 高専 卒男,20,215000
# 大学 学男,22,235000
# 大学 修治,24,255000

>>163
高専 卒男 さんは20才の時初任給を貰いその額は215000でした。
という意味に解釈せざるを得ない変な表だ。

>>163
% Prolog (カンマを含む整数表示にはなっていない)

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

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

http://pc12.2ch.net/test/read.cgi/tech/1232627790/663
#【　課題　】3桁の数値データが複数入ったファイルをバブルソートを用いて
#　　　　　　昇順に整列、新しいファイルに格納。データの件数は50件まで
#【　形態　】1. Javaアプリケーション(main()で開始)
#【　GUI　 】制限なし
#【　期限　】6月11日　
#【　Ver　 】1.6.0_13
#【　用語　】
#【　補足　】例外処理として、コマンドライン引数が間違っている場合、
#　　　　　　読み込みファイルがオープンできない、書き込みファイルも
#　　　　　　オープンできない、読み込みにファイルがない場合をお願いします。

http://pc12.2ch.net/test/read.cgi/tech/1244449887/276
#[1] 授業単元：プログラミング演習
#[2] 問題文(含コード&リンク)：http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9445.txt
#　　　　　　　　　　　　　　　ほとんど英文です。訳そうとしたんですが自分でも意味がわからなくなったんでそのままにしました。すいません。

# <<課題>
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　：　都市数は外部から入力するものとする）
# （注意　：　プログラムを動かすとき決して大きな都市数を与えてはならない）

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

>>166
% Prolog
http://nojiriko.asia/prolog/t166.html

>>167
% Prolog
http://nojiriko.asia/prolog/t167.html

http://pc12.2ch.net/test/read.cgi/tech/1244449887/
[1] 授業単元：For文
[2] 問題文：整数１〜１０までの累計（1+2+3････9+10=55）
　[3.1] OS： XP
　[3.2] Turbo C++
　[3.3] C++

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

>>172
% Prolog
整数１〜１０までの累計(X) :-
　　sum(0,1,10,X).

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

>>172
http://pc12.2ch.net/test/read.cgi/tech/1244449887/408
です

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

N is trancate(X) ではなく N is truncate(X) ですね。

http://pc12.2ch.net/test/read.cgi/tech/1244449887/405
[1] 授業単元：プログラミング実習I
[2] 問題文(含コード&リンク)：http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9459.txt
typedef struct node *Tree;
typedef struct node{
int data;
Tree left_subtree;
Tree right_subtree;
} Node;
という風に定義された構造体を木の節点として
ポインタでつなげることによって表すことができる。
この様に表された2分木の根節点へのポインタが引数
として与えられた時、その2分木の高さ(すなわち、
根節点から葉節点までの枝の本数の最大値)を
調べて返すCの関数
　　　　int height(Tree t);
を定義せよ。ただし、簡単さのため、ここでは、
height(NULL)＝-1として関数定義を行え。

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

>>177
% Prolog
木の高さ([],-1).
木の高さ(_根,_高さ) :-
枝(_根,_左,_右),
木の高さ(_左,_左の高さ),
木の高さ(_右,_右の高さ),
max([_左の高さ,_右の高さ],_高さの二),
_高さ is _高さの二 + 1.

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

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

http://pc12.2ch.net/test/read.cgi/tech/1244449887/413
#[1] インタラクティブコミュニケーション
#[2] ttp://www.ncc-1701.jp/kakei/InteractiveComm/Class5/InteractiveComm_5.htmlに書いている演習
# 最後の<<演習>>が課題です。
#[3] 環境
#　[3.1] OS： Windows
#　[3.2] コンパイラ名とバージョン： Windows Visual Studio 2005
#　[3.3] 言語： C
#[4] 期限： 今日
#[5] その他の制限： 六曜は順番通り巡るとする。

>>167
% Prolog (完全日本語版)
http://nojiriko.asia/prolog/t167_n.html

>>143

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

>>181
% Prolog
http://nojiriko.asia/prolog/t181.html

ひどい宣伝だな

>>168 >>169
完全列挙法 順次生成・比較法 というのがわからない。
「最短経路の本　レナのふしぎな数学の旅」 p253以下を読み直してみます。

http://pc12.2ch.net/test/read.cgi/tech/1244449887/458
#[1] 授業単元：プログラミング
#[2] 問題文(含コード&リンク)：
# n*n行列A、Bをそれぞれキーボード から入力し、積を求めろ。
# 行列の大きさｎもキーボードから入力せよ。多次元配列を使ってください。

>>187
% Prolog (1/2)
行列の積(L1,L2,X) :-
　　行列の転置(L,L2,L3),
　　行列の積の一(L1,L3,X).

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

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

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

>>187
% Prolog (2/2)
行列の転置([],[],[]) :- !.
行列の転置([[A|R]|R1],[A|R2],[R|R3]) :-
　　行列の転置(R1,R2,R3) .

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

>>180
main = getLine >>= return . scanl1 (+) . map (read :: String -> Int) . take 10 . words >>= \t -> if null t then return () else print t >> main

>>187
import Data.List (transpose)

type Matrix = [[Int]]

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

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

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

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

>>191
% Prolog
http://nojiriko.asia/prolog/t191.html

http://pc12.2ch.net/test/read.cgi/tech/1244449887/482
#[1] 授業単元：プログラミング基礎
#[2] 問題文
#
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9473.txt
# for文やif文を使用して下図のように出力せよ
#
# ★　　　★
# 　★　★
# 　　★
# 　★　★
# ★　　　★
#

>>193
% Prolog
http://nojiriko.asia/prolog/t193.html

>>193
% Prolog
193 :-
t193_1([0,0,0,0,1],[1,0,0,0,0]).

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

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

すみません。再表示です。
t193 :-
　　t193_1([0,0,0,0,1],[1,0,0,0,0]).

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

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

>>196
% Prolog (ちょっとだけ変更)
t193 :-
　　t193_1([' ',' ',' ',' ',★],[★,' ',' ',' ',' ']).

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

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

% 全角スペースがうまく表示できてない・・・

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

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

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

http://pc12.2ch.net/test/read.cgi/tech/1244449887/505
#[1] 授業単元： C言語
#[2] 問題文
# （１）
# 文字列を受け取る関数（charポインタを使用）
# その文字列の一番最後の文字を消去する関数を作る。
# （２）
# 文字列を受け取る関数（charポインタ使用）
# その文字列の一番最初の文字を消去する関数を作る。
# （３）'文字列を入力し、ある文字を入力。その文字列の中にその入力した文字がいく
つあるかを数える関数。
# 例 文字列　asdfgvbfdcaa　文字aと入力したら　３となる
# その関数は二つのパラメータをもち、一つ目は文字列へのポインタ、二つ目は数えた文
字の数である。

>>199
% Prolog
% （１）
'その文字列の一番最後の文字を消去する'(_文字列,_一番最後の文字を消去された文字列
) :-
　　sub_atom(_文字列,0,Len,1,_一番最後の文字を消去された文字列).

% （２）
'文字列の一番最初の文字を消去する'(_文字列,_一番最初の文字を消去された文字列) :-

　　sub_atom(_文字列,1,_,0,_一番最初の文字を消去された文字列).

% （３）
文字列中である文字の出現回数(_文字,_文字列,_出現回数) :-
　　findall(_,sub_atom(_文字列,_,1,_,_文字),L),
　　length(L,_出現回数).

http://pc12.2ch.net/test/read.cgi/tech/1136994325/925
# １２３４５６７８９の順に数字を並べて，数字の間に＋，−を補うことで式を作り， その値が１００になる# 組み合わせをすべて求め，その式を出力するプログラムを作成しなさい．
# お願いします

>>201
% Prolog
t201 :-
　　findall(Q,t201(Q),L),
　　member(A,L),
　　write(A),
　　nl;
　　true.

t201(Q) :-
　　符号を含むならびの生成([1,2,3,4,5,6,7,8,9],L),
　　atom_chars(S,L),
　　atom_to_term(S,Q,_),
　　100 is Q.

符号を含むならびの生成([A],[A]).
符号を含むならびの生成([A|R1],[A|R2]) :-
　　符号を含むならびの生成(R1,R2).
符号を含むならびの生成([A|R1],[A,'+'|R2]) :-
　　符号を含むならびの生成(R1,R2).
符号を含むならびの生成([A|R1],[A,'-'|R2]) :-
　　符号を含むならびの生成(R1,R2).

% 間違いがありました。訂正します。
% atom_chars/2 の第二引数リストの要素はcharしか許されないので
t201 :-
　　findall(Q,t201(Q),L),
　　member(A,L),
　　write(A),
　　nl;
　　true.

t201(Q) :-
　　符号を含むならびの生成(['1','2','3','4','5','6','7','8','9'],L),
　　atom_chars(S,L),
　　atom_to_term(S,Q,_),
　　100 is Q.

符号を含むならびの生成([A],[A]).
符号を含むならびの生成([A|R1],[A|R2]) :-
　　符号を含むならびの生成(R1,R2).
符号を含むならびの生成([A|R1],[A,'+'|R2]) :-
　　符号を含むならびの生成(R1,R2).
符号を含むならびの生成([A|R1],[A,'-'|R2]) :-
　　符号を含むならびの生成(R1,R2).

% もう一ヶ所訂正。fail が落ちていた。
t201 :-
　　findall(Q,t201(Q),L),
　　member(A,L),
　　write_formatted('%t\n',[A]),
　　fail.
t201.

t201(Q) :-
　　符号を含むならびの生成(['1','2','3','4','5','6','7','8','9'],L),
　　atom_chars(S,L),
　　atom_to_term(S,Q,_),
　　100 is Q.

符号を含むならびの生成([A],[A]).
符号を含むならびの生成([A|R1],[A|R2]) :-
　　符号を含むならびの生成(R1,R2).
符号を含むならびの生成([A|R1],[A,'+'|R2]) :-
　　符号を含むならびの生成(R1,R2).
符号を含むならびの生成([A|R1],[A,'-'|R2]) :-
　　符号を含むならびの生成(R1,R2).

>>200　ですが、
これではPrologが誇るスーパー組込み述語 sub_atom/5 の
リファレンスの意味しかないので、sub_atom/5を使わない版を
後で示します。
それからアトムに対して文字列という言葉を使っていることに、
違和感を覚える方がおられると思いますが、私は"文字列"は
絶対といっていいくらい使いません。私の書き込みで文字列と
言うときは文字列アトムのことだと思ってください。

http://pc12.2ch.net/test/read.cgi/tech/1244449887/514
#[1]授業単元：プログラミング演習1
#
#[2]問題文：画面より入力した成績データをファイルに登録する。
# 画面より入力する項目は以下のとおり。
# ・生徒コード、数字6桁、数字であること。
# ・氏名、文字列20文字、1字以上、20字以内
# ・国語(点数)、数字3桁、数字であること、0<=点数<=100
# ・算数(点数)、国語と同じ
# ・社会(点数)、国語、算数と同じ
#
#
# 生徒コードに999999が入力されたら終了する。

>>206
% Prolog
http://nojiriko.asia/prolog/t206.html

>>206 一部書き直しました。
% Prolog
http://nojiriko.asia/prolog/t206.html

>>206
-- Haskell
ttp://ja.pastebin.ca/1463106

http://pc12.2ch.net/test/read.cgi/tech/1200175247/550
#
# （１）曜日を表す英語と日本語との対応を表すハッシュwdayを定義しなさい
#
# p wday["sunday"] #=> "日曜日"
# p wday["monday"] #=> "月曜日"
# p wday["saturday"] #=> "土曜日"
#
# (2)ハッシュのメソッドを使って（１）のハッシュwdayのペアの数を数えなさい
#
# （３）eachメソッドと（１）のハッシュwdayを使って以下の文字列を出力させてくださ
い。
# 「sunday」は日曜日のことです。
# 「monday」は月曜日のことです。
# …
#
# (4)ハッシュには配列の%wのようなものがありません。そこで、空白とタブと改行
# （正規表現で定義するなら「／＼s+／」）で区切られた文字列をハッシュに変換するメ
ソッド
# str2hashを定義してください。
#
# p str2hash("bule 青 white 白＼nred赤");
# #=> {"bule"=>"青", "white"=>"白", "red"=>"赤"}

>>210
% Prolog (Prologにハッシュはないよｗ したがって・・)
% （１）
wday(sunday,日曜日).
wday(monday,月曜日).
wday(saturday,土曜日).

% (2)
wdayの節数(_節数) :- 節数(wday(_,_),_節数).

節数(_節形式,_節数) :- findall(_,_節形式,L),length(L,_節数).

% （３）
'（３）' :-
　　wday(A,B),
　　write_formatted('「%t」は%tのことです。\n',[A,B]),
　　fail;
　　true.

% (4)
str2hash(S,_述語名) :-
　　split(S,['\n'],L),
　　member(A,L),
　　split(A,['\t',' '],L1),
　　P =.. [_述語名|L1],
　　assertz(P),
　　fail;
　　true.

>>210
-- Haskell
ttp://ja.pastebin.ca/1463260

ＶＢ６をやっているのですが、
「ストアド関数」というものが、
いまいちどういう役割を担っているものなのかわかりません。
ＭＳＤＮを見たりウェブで調べたりはしたのですが…

宜しければ、どなたかお願いします。

http://pc12.2ch.net/test/read.cgi/tech/1200175247/580
#[1] 授業単元： プログラミング演習
#[2] 問題文:　人の名前（ローマ字）を検索（部分一致）することができるプログラムを作成せよ。

>>214
% Prolog (最初に組込述語から)
t214(_人の名前,_検索文字列の変位,_その長さ,_残った文字列長さ,_検索文字列) :-
　　sub_atom(_人の名前,_検索文字列の変位,_その長さ,_残った文字列長さ,_検索文字列).

?- t214('Hitomaro Kakinomoto',A,B,C,'kino').
A = 11,
B = 4,
C = 4;
no
?- /* >>200 参照 */

>>214
% Prolog >>215 をより使いやすくするため sChars/6 を定義する。

sChars(A,B,C,D,E,F) :- sub_atom(A,B,C,D,E),C > 0,atom_chars(E,F).

% これでkから始まりoで終わる部分文字列の検索などがやり易くなる。

?- sChars('Hitomaro Kakinomoto',B,C,D,E,F),append([k|_],[o],F).
B = 11,
C = 4,
D = 4,
E = kino,
F = [k,i,n,o],
_ = [i,n];
B = 11,
C = 6,
D = 2,
E = kinomo,
F = [k,i,n,o,m,o],
_ = [i,n,o,m];
B = 11,
C = 8,
D = 0,
E = kinomoto,
F = [k,i,n,o,m,o,t,o],
_ = [i,n,o,m,o,t];
no.
?-

>>216
% Prolog より一般的にsCharsという述語の中に検索条件を書き込めないであろうか？
% sChars/7を定義する。_検索条件項の中でEかFを使用しなければならない。

sChars(_検索条件項,A,B,C,D,E,F) :- sChars(A,B,C,D,E,F),call(_検索条件項).

% >>216 に較べてこちらの方が優れているかは疑問だ。

>>217
% Prolog 例えば正規表現(に限らないが)を処理するには、

sChars(_正規表現パターン,A,B,C,D,E,F) :- sChars(A,B,C,D,E,F), ... 正規表現パターンの解決副目標(_正規表現パターン), ...
sChars(_検索条件項,A,B,C,D,E,F) :- sChars(A,B,C,D,E,F),call(_検索条件項).

% のように上に定義を加えていけばよい。

http://pc12.2ch.net/test/read.cgi/tech/1200175247/560
#[1] 授業単元： C
#[2] 問題文(含コード&リンク)：アルファベットの小文字を大文字に変換するプログラムを作成せよ
# ヒント：　'a'〜'z'は連続した文字コードが割り当てられている。'A'〜'Z'も連続した文字コードが割り当てられている。すなわち、'a'の文字コード
# 　　　　　にある定数を足す（または引く）と'A'になり、'b'にその定数を足す（または引く）と'B'になる。この定数さえ求められれば、簡単に計算できることがわかる。
# 　　　　　定数は、'a'や'A'を使えば計算できる。

>>219
% Prolog 敢えて、出題の題意通りやってみる。

英小文字から大文字へのコード変換(_英小文字,_英大文字) :-
　　char_code(a,_aの文字コード),
　　char_code('A',_Aの文字コード),
　　_変位 is _aの文字コード - _Aの文字コード,
　　char_code(_英小文字,_英小文字の文字コード),
　　_英大文字の文字コード is _英小文字の文字コード - _変位,
　　char_code(_英大文字,_英大文字の文字コード).

>>220
% 双方向性を持たせよう。少し無理をする。

英小文字大文字変換(_英小文字,_英大文字) :-
　　char_code(a,_aの文字コード),length(L1,_aの文字コード),
　　char_code('A',_Aの文字コード),length(L2,_Aの文字コード),
　　append(L2,R,L1),
　　char_code(_英小文字,_英小文字の文字コード),length(L3,_英小文字の文字コード),
　　append(R2,R,L3),length(R2,_英大文字の文字コード),
　　char_code(_英大文字,_英大文字の文字コード).

>>221
すみません。これだとやっぱりだめだ。
char_code/2を使う以上は、変数の有無だけは検査しないといけないのかな。
ちょっと考えます・・・

文字連鎖('A','B').
文字連鎖('B','C').
...
文字連鎖('Z','A').
...
文字連鎖(a,b).
文字連鎖(b,c).
・・・
文字連鎖(z,a).

を定義しないと無理かな。

>>222
% この定義があればなんとかなるか。

英小文字([a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z]).

英大文字(['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R
','S','T','U','V','W','X','Y','Z']).

>>222
% 実は、

英小文字大文字変換(_英小文字,_英大文字) :-
　　英大文字ならび(LL),append(L1,[_英大文字|_],LL),
　　英小文字ならび(SL),append(L2,[_英小文字|_],SL),
　　length(L1,Len),
　　length(L2,Len).

英大文字ならび(L) :- findall(C,(for(65,N,90),char_code(C,N)),L).

英小文字ならび(L) :- findall(C,(for(97,N,122),char_code(C,N)),L).

% で済むようです。まあ、ペアで定義すればいいだけですが。

http://pc12.2ch.net/test/read.cgi/tech/1244449887/548
# [1] 授業単元： プログラミング論
# [2] 問題文(含コード&リンク)： C言語で三目並べをするプログラムの作成
# C言語で三目並べ（いわゆる○×）をするプログラムを作成する。
#
# # 条件
# ・コンピュータの手はランダムに決定するものとする（空いているところに打つ）
# ・盤面を表現する配列は３×３の二次元配列とし、グローバルに宣言する
# ・以下のような関数を作成すること：盤の表示、○×を打つ、３つ並んだかチェック
# ・他にも必要に応じて関数を宣言すること
#
# ヒント集
# ・マスの状態は空:0　○:1　×:2など数値で定義するとよい。
# ・char stone[3][3]={"-","○","×"};などと宣言しておくと便利？
# ・9マスしかないので、9マス打ち切ったら終了→このとき勝敗が決まっていなければ引
き分け
# ・ループの考え方は2通りできる
# 　1.先手後手がセットで1ループ、9マス目に先手が打ったらbreak
# 2.先手、後手それぞれ1ループ,nマス目は、n%2=0なら先手、n%2=1な　　ら後手
# ・三目並んだかのチェックは工夫のしどころ
# 　・手盤の人の石だけチェックする
# 　・打ったところの縦横は必ずチェック、斜めはどうする？
# ・作っていく順
# 　・石の入力＋盤面表示、コンピュータの手番、３つ並んだかチェック、勝敗表示
# 　・石の入力＋盤面表示、３つ並んだかチェック、勝敗表示、コンピュータの手番

http://pc12.2ch.net/test/read.cgi/tech/1244449887/554
# [1] 授業単元： c言語演習
# [2] 問題文(含コード&リンク)： http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9478.txt

http://pc12.2ch.net/test/read.cgi/tech/1244449887/551
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：
# cos(x)とx軸で囲まれる領域において、xがa〜bの区間の面積を台形積分で求めるプログラムを作成しなさい。
# なお、aとbは引数として与えるようにすること。

>>227
できますた
これでいいですか？
↓
(defun s (a b)
(let ((ya (cos a)) (yb (cos b)))
(/ (* (- b a) (+ ya yb)) 2)))

>>227
% Prolog
'cos(x)とx軸で囲まれる領域において、xがa〜bの区間の面積を台形積分で求める'(_開始
Ｘ座標,_終了Ｘ座標,X) :-
　　分割数(_分割数),
　　_開始Ｘ座標2 is _開始Ｘ座標,
　　_終了Ｘ座標2 is _終了Ｘ座標,
　　刻み幅(_分割数,_開始Ｘ座標2,_終了Ｘ座標2,_刻み幅),
　　Ｙ座標ならびを得る(_分割数,_分割数,_開始Ｘ座標2,_終了Ｘ座標2,_Ｙ座標ならび),
　　台形の総面積(_Ｙ座標ならび,_刻み幅,X).

分割数(30).

台形の総面積([A,B],_刻み幅,X) :-
　　X is (A+B) * _刻み幅 / 2,!.
台形の総面積([A,B|R],_刻み幅,X) :-
　　Z is (A+B) * _刻み幅 / 2,
　　台形の総面積([B|R],_刻み幅,Y),
　　X is Z + Y.

Ｙ座標ならびを得る(_分割数,_分割数,_開始Ｘ座標,_終了Ｘ座標,[A]) :-
　　A is cos(_終了Ｘ座標),!.
Ｙ座標ならびを得る(N,_分割数,_開始Ｘ座標,_終了Ｘ座標,[A|R]) :-
　　A is cos(((_終了Ｘ座標-_開始Ｘ座標) * N / _分割数 + _開始Ｘ座標)),
　　Ｙ座標ならびを得る(M,_分割数,_開始Ｘ座標,_終了Ｘ座標,R).

刻み幅(_分割数,_開始Ｘ座標,_終了Ｘ座標,_刻み幅) :-
　　_刻み幅 is (_終了Ｘ座標-_開始Ｘ座標) / _分割数.

>>226
% Prolog
gcd(M,N,N) :-
0 is M mod N,!.
gcd(M,N,X) :-
Mod is M mod N,
gcd(N,Mod,X).

gcd(M,N,O,X) :-
gcd(M,N,Y),
gcd(Y,O,X).

>>226 書き直し
% Prolog
gcd(M,N,N) :-
　　0 is M mod N,!.
gcd(M,N,X) :-
　　Mod is M mod N,
　　gcd(N,Mod,X).

gcd(M,N,O,X) :-
　　gcd(M,N,Y),
　　gcd(Y,O,X).

>>228
ニュートン・コーツ　とか
区分求積法　でググれ

http://pc12.2ch.net/test/read.cgi/tech/1244449887/592
# [1] 授業単元： Ｃ
# [2] 問題文(含コード&リンク)：入力した文字の種類を表示するプログラムを作成せよ。ただし、表示は次に従うとする
# 入力キーＡ〜Ｚ　表示メッセージ　英大文字です
# 入力キーa〜ｚ　表示メッセージ　　英小文字です
# 入力キー０〜９　表示メッセージ　　数字です
# 上記以外　　　　表示メッセージ　　その他のキャラクターです

>>233
% Prolog
入力した文字の種類を表示するプログラム(_文字,_文字の種類) :-
　　文字の範疇(_文字の範疇,_文字),
　　表示は次に従うとする(_文字の範疇,_,_表示メッセージ),
　　write(_表示メッセージ).
　
表示は次に従うとする(入力キーＡ〜Ｚ,表示メッセージ,英大文字です).
表示は次に従うとする(入力キーa〜ｚ,表示メッセージ,英小文字です).
表示は次に従うとする(入力キー０〜９,表示メッセージ,数字です).
表示は次に従うとする(上記以外,表示メッセージ,その他のキャラクターです).

文字の範疇(入力キーＡ〜Ｚ,_文字) :-
　　member(_文字,['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,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]).
文字の範疇(入力キー０〜９,_文字) :-
　　member(_文字,['0','1','2','3','4','5','6','7','8','9']).
文字の範疇(上記以外,_文字) :-
　　not(member(_文字,['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,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]).
文字の範疇(入力キー０〜９,_文字) :-
　　member(_文字,['0','1','2','3','4','5','6','7','8','9']).
文字の範疇(上記以外,_文字) :-
　　not(member(_文字,['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'])),
　　not(member(_文字,[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])),
　　not(member(_文字,['0','1','2','3','4','5','6','7','8','9'])).

>>233 訂正
% Prolog
入力した文字の種類を表示するプログラム(_文字) :-
　　文字の範疇(_文字の範疇,_文字),

% 2引数ではなく、1引数の述語です。削り忘れてました。
% なんて冗長な馬鹿なプログラムだと思われるでしょうが、渡された
% 仕様を可能な限りそのまま利用して、何も考えずにプログラムすると
% こんな事になるという例です。

入力した文字の種類を表示するプログラム(_文字,_文字の種類) :-
　　表示は次に従うとする(_文字の範疇,_,_表示メッセージ),
　　文字の範疇(_文字の範疇,_文字),
　　write(_表示メッセージ).

% 順序をひっくり返してもちゃんと動作します。開発順序としては
% この述語を作ってから、2行目と3行目を入れ替えました。

http://pc12.2ch.net/test/read.cgi/tech/1244449887/615
# [1] 授業単元： C初心者コース
# [2] 問題文(含コード&リンク)：試験の点数（１００点満点）を入力すると、評価値（A+,A,B,C,F)を表示する
# プログラムを作れ９０〜１００Ａ+８０〜８９Ａ７０〜７９Ｂ６０〜６９Ｃ０〜５９Ｆそれ以外error
# [3] 環境
# [3.1]linux
# [3.2] gcc
# [3.3]C
# [4]６月１９日
# [5]if文(gotoは論外）while do while for等　ループ文を使ってはいけないそうです

>>236
% Prolog
評価値(_点数,'A+') :- _点数>=90,_点数=<100.
評価値(_点数,'A') :- _点数>=80,_点数=<89.
評価値(_点数,'B') :- _点数>=70,_点数=<79.
評価値(_点数,'C') :- _点数>=60,_点数=<69.
評価値(_点数,'F') :- _点数>=0,_点数=<59.
評価値(_,error).

http://pc12.2ch.net/test/read.cgi/tech/1232627790/737
#【　課題　】適当な文字列を入力して、暗号化するプログラムを作る。
# 暗号キーは2桁で、暗号文は奇数番目と偶数番目の文字列を、
# 暗号キーの値だけ交互にずらして作成する。
# 使用する文字種は「！」から「ｚ」までの90個とする（0x21~0x7A)。
# またを超えたら！に戻すこと。

>>238
% Prolog
http://nojiriko.asia/prolog/t238.html

http://pc12.2ch.net/test/read.cgi/tech/1244449887/650
# [1] 授業単元： Ｃ
# [2] 問題文(含コード&リンク)：キーボードから入力された１以上の整数ｎについて、
# 次の例に示すように行番号と*を表示するプログラムを作成せよ。
# なお、*の数は、１行目はn個とし、１行毎に１ずつへっていくこととする。
# また、０や負の数が入力された場合はプログラムが終了するようにせよ。

>>240
% Prolog
% 述語 同一要素ならび/3 は事実上の組込述語ですね
t240(N) :-
　　for(N,M,1),t240_1(M),N=1.

t240_1(N) :-
　　同一要素ならび(*,L,N),
　　concat_atom([N|L],S),
　　write_formatted('%t\n',[S]).

同一要素ならび(_要素,List,Length) :-
　　length(List,Length),
　　同一要素ならび(_要素,List) .

同一要素ならび(_,[]).
同一要素ならび(A,[A|R]) :-
　　同一要素ならび(A,R).

http://pc12.2ch.net/test/read.cgi/tech/1244449887/674
# [1] 授業単元：プログラム
# [2] 4*3行列Aと 3*5行列B の各要素をキーボードから入力し、
# C = A*B を計算し、表示するプログラムを作成せよ。

>>242
% Prolog 少し前に一度あった。
http://nojiriko.asia/prolog/t242.html

http://pc12.2ch.net/test/read.cgi/tech/1244449887/669
# 内容：
# [1] 授業単元： プログラミング論
# [2] 問題文(含コード&リンク)：
# 1からnまでの整数値の和を再帰的に求めるプログラムを作成する
# [実行結果の例]
# 1からnまでの整数値の和を計算します
# nの値を入力してください:100
# 1から100までの整数値の和は5050です

>>149 >>150
% Prolog (下請け述語を改変)
% http://pc12.2ch.net/test/read.cgi/tech/1235561034/289 参照

交互にならべた文字列(Str1,Str2,Str) :-
　　atom_chars(Str1,Chars1),
　　atom_chars(Str2,Chars2),
　　交互にならべた文字列_1(Chars1,Chars2,Chars3),
　　atom_chars(Str,chars3).

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

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

>>246
もっと一般化したら・・

二つの文字列を交互に併合する(Str1,Str2,Str) :-
　　atom_chars(Str1,Chars1),
　　atom_chars(Str2,Chars2),
　　順併合(Chars1,Chars2,Chars3),
　　atom_chars(Str,chars3).

順併合([],L,L) :- !.
順併合([A|R1],L2,[A|R]) :-
　　順併合(L2,R1,R).

>>246
順併合というソートと誤解されるかな。

二つの文字列を交互に併合する(Str1,Str2,Str) :-
　　atom_chars(Str1,Chars1),
　　atom_chars(Str2,Chars2),
　　交互併合(Chars1,Chars2,Chars3),
　　atom_chars(Str,chars3).

交互併合([],L,L) :- !.
交互併合([A|R1],L2,[A|R]) :-
　　交互併合(L2,R1,R).

ということは、
>>238 >>239 文字コードによる暗号化/3 も以下がよい。

文字列の暗号化(_鍵整数,_元の文字列,_暗号文字列) :-
　　integer(_鍵整数),
　　_鍵整数>=10
　　_鍵整数=<99,
　　atom_codes(_元の文字列,Codes),
　　_奇数番目の鍵 is _鍵整数 // 10,
　　_偶数番目の鍵 is _鍵整数 mod 10,
　　文字コードによる暗号化(_奇数番目の鍵,_偶数番目の鍵,Codes,_暗号Codes),
　　atom_codes(_暗号文字列,_暗号Codes).

文字コードによる暗号化(_,_,[],[]) :- !.
文字コードによる暗号化(_鍵1,_鍵2,[A|R1],[B|R2]) :-
　　一文字の暗号化(_鍵1,A,B),
　　文字コードによる暗号化(_鍵2,_鍵1,R1,R2).

一文字の暗号化(_変位,_文字コード,_暗号化された文字コード) :-
　　_文字コード+_変位 =< 122,!,
　　_暗号化された文字コード is _文字コード+_変位.
一文字の暗号文字化(_変位,_文字コード,_暗号化された文字コード) :-
　　_文字コード+_変位 >122,!,
　　_暗号化された文字コード is _文字コード+_変位-90.

ごめんなさい。>>238 を更新してしまった。
これでは以前との比較ができない。もう一度復元しますから、少し待って。

>>249 >>239 の話でした。元々はこうなっていたはずです。

文字コードによる暗号化(_,_,[],[]).
文字コードによる暗号化(_奇数番目の鍵,_,[A],[C]) :-
　　一文字の暗号化(_奇数番目の鍵,A,C).　　
文字コードによる暗号化(_奇数番目の鍵,_偶数番目の鍵,[A,B|R1],[C,D|R2]) :-
　　一文字の暗号化(_奇数番目の鍵,A,C),
　　一文字の暗号化(_偶数番目の鍵,B,D),
　　文字コードによる暗号化(_奇数番目の鍵,_偶数番目の鍵,R1,R2).

http://pc12.2ch.net/test/read.cgi/tech/1232627790/750# 【　課題　】
# String a ="@test あいう@aaaおえてhttp://test.com/と";
# aから@から始まるアルファベットとURLを取り除く処理
# System.out.println(a);
#
# 出力結果
# あいうおえてと
#
# aから@から始まるアルファベットとURLを取り除く処理はどのように書けばいいのでし
ょうか？

>>251
% Prolog
t251(_文字列,_取り除いた文字列) :-
　　atom_chars(_文字列,Chars),
　　t251_1(Chars,L),
　　atom_chars(_取り除いた文字列,L).

t251_1([],[]) :- !.
t251_1([@|R1],R2) :-
　　t251_2(R1,R2),!.
t251_1([h,t,t,p,:,/,/|R1],R2) :-
　　t251_2(R1,R2),!.
t251_1([A|R1],[A|R2]) :-
　　t251_1(R1,R2).

t251_2([],[]) :- !.
t251_2([A|R1],R2) :-
　　A @>=' ',
　　A @=< z,!,
　　t251_2(R1,R2).
t251_2(L,R2) :-
　　t251_1(L,R2).

http://pc12.2ch.net/test/read.cgi/tech/1244449887/708
# 入力件数ｎをキーボードより入力し、ｎ人分のテストデータを入力する。
# その際、合計点、最高点、最低点を求め、最後に平均点を計算しそれぞれを出力するプログラムを作成せよ。
# ただし、平均点は実数型とし小数点第２位まで出力する。
# 平均点以外の変数は整数型とする。
#
# 問�A棒グラフ出力プログラム
# 値２つを入力し、*を横に並べて棒グラフ状に出力するプログラム。
# 大きい値の方の棒グラフが上に来るようにすること。
# （値として０〜５０までしか入力されないものとする）

>>253 問�A棒グラフ出力プログラム
% Prolog

t253_2(A,B) :-
　　t253_2_make_list(50,A,B,L),
　　t253_2_print(L).

t253_2_make_list(0,_,_,[]).
t253_2_make_list(N,A,B,[[X1,X2]|R]) :-
　　( N > A,X1=' ';N =< A,X1='*'),
　　( N > B,X2=' ';N =< B,X2='*'),
　　N2 is N - 1,
　　t253_2_make_list(N2,A,B,R).

t253_2_print([],[]).
t253_2_print([F|R1],[B|R2]) :-
　　write_formatted(' %t %t\n',F),
　　t253_2_print(R1,R2).

>>254 間違えた。t253_2_printを直すの忘れてた。
% Prolog

t253_2(A,B) :-
　　t253_2_make_list(50,A,B,L),
　　t253_2_print(L).

t253_2_make_list(0,_,_,[]).
t253_2_make_list(N,A,B,[[X1,X2]|R]) :-
　　( N > A,X1=' ';N =< A,X1='*'),
　　( N > B,X2=' ';N =< B,X2='*'),
　　N2 is N - 1,
　　t253_2_make_list(N2,A,B,R).

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

http://pc12.2ch.net/test/read.cgi/tech/1244449887/742
# [1] 授業単元： Ｃ
# [2] 問題文(含コード&リンク)：年ｒ％の複利でｙ円を借り、ｎ年後に一括返済する場合の返済額を計算するプログラムを作成せよ
# 　　　　　　　　　　　　　　ただしｒ％の複利でｎ年借りた場合の利率を計算する部分を関数として作成すること。
# 表示結果の例
# 　　　　利率（ｒ）：7.5
# 　　　　金額（ｙ）：1000000
# 期間(n):2
# 返済金額は1155625
# ヒント：返済金額はｙ（１+ｒ/１００）のｎ乗円である。ｒ％の複利でｎ年間の利率（１+ｒ/１００）のｎ乗を計算する関数
# 　　　　float interest(float r, int n)を作る。そしてmain()からinterest()を呼び出し、返された値にｙを掛けて返済額を求める。

http://pc12.2ch.net/test/read.cgi/tech/1232627790/748
#【　課題　】http://rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/712.txt
#【　形態　】Javaアプリケーション(main()で開始)
# http://rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/716.txt
上記仕様は意味不明のところがあり、
入力ファイルを以下のように変更しましょう。

売上明細ファイル
1)支店コード（数値3byte)
2)販売日（yyyymmdd)
3)販売先コード（数値6byte)
4)売上金額(数値8byte)

支店名ファイル
1)支店コード（数値3byte)
2)支店名（文字10byte)

販売先名ファイル
1)販売先コード（数値6byte)
2)販売先名（文字30byte)

>>251 >>252 URLのチェックの認識部分を修正
% Prolog
t251(_文字列,_取り除いた文字列) :-
　　atom_chars(_文字列,Chars),
　　t251_1(Chars,L),
　　atom_chars(_取り除いた文字列,L).

t251_1([],[]) :- !.
t251_1([' '|R1],R2) :-
　　t251_1(R1,R2),!.
t251_1([@|R1],R2) :-
　　t251_2(R1,R2),!.
t251_1(L,R2) :-
　　url_check(L,R1),
　　t251_2(R1,R2),!.
t251_1([A|R1],[A|R2]) :-
　　t251_1(R1,R2).

url_check([h,t,t,p,:,/,/|R],R) :- !.
url_ckeck([h,t,t,p,s,:,/,/,|R],R) :- !.
url_check([f,t,p,:,/,/|R],R) :- !.
url_check([f,i,l,e,:,/,/|R],R) :- !.

t251_2([],[]) :- !.
t251_2([A|R1],R2) :-
　　A @>' ',
　　A @=< z,!,
　　t251_2(R1,R2).
t251_2(L,R2) :-
　　t251_1(L,R2).

http://pc12.2ch.net/test/read.cgi/tech/1244449887/765
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# 診断プログラムを作ろう
# 「計算ドリル」。質問文全てを一つの文字列配列に格納し、その順番に表示しましょう
。正解するたびに、
# tokuten を増やすことで、最後に「あなたは 5 問正解です」みたいな結果を表示させ
ることが出来ます。
# char questions[6][100]={
# “１２×（３＋４）＝”, “（１＋１÷９）×９＝”,
# “（２９‐５）÷（１７‐１１）＝”, “２の１０乗＝”,
# “（３×９＋４４÷２）のルート＝”, “８の階乗＝”};
# ソースプログラム、変数の意味、工夫した点を書きなさい

>>259
% Prolog
計算ドリル :-
　　write('五問出題します。すぐに答えてください\n'),
　　質問(L1),
　　正解(L2),
　　計算ドリル(L1,L2,0,X),
　　write_formatted('%t問正解です\n',[X]).

計算ドリル([],_,N,N) :- !.
計算ドリル([A|R1],[B|R2],N,X) :-
　　write(A),
　　get_line(S),
　　atom_to_term(S,B),
　　M is N + 1,
　　計算ドリル([A|R1],[B|R2],M,X),!.
計算ドリル([_|R1],[_|R2],N,X) :-
　　計算ドリル(R1,R2,N,X).

質問(['１２×（３＋４）＝',
'（１＋１÷９）×９＝',
'（２９‐５）÷（１７‐１１）＝',
'２の１０乗＝',
'（３×９＋４４÷２）のルート＝',
'８の階乗＝']).

正解([84,10,4,1024,7,40320]).

% 正解かどうかを示すタイミングは
計算ドリル([],_,N,N) :- !.
計算ドリル([A|R1],[B|R2],N,X) :-
　　write(A),
　　get_line(S),
　　atom_to_term(S,B),
　　write('正解です!\n'),
　　M is N + 1,
　　計算ドリル([A|R1],[B|R2],M,X),!.
計算ドリル([_|R1],[B|R2],N,X) :-
　　write('残念でした!! 正解は%tですね\n',[B]),
　　計算ドリル(R1,R2,N,X).

% 一般的には以下のような定義にします。これだと不正解の時にもSを表示できます。
計算ドリル([],_,N,N) :- !.
計算ドリル([A|R1],[B|R2],N,X) :-
　　write(A),
　　get_line(S),
　　正誤の判定(S,B,N,N2),
　　計算ドリル(R1,R2,N2,X).

正誤の判定(S,B,N,N2) :-
　　atom_to_term(S,B1),
　　B1 = B,
　　write('正解です!\n'),N2 is N + 1,!.
正誤の判定(S,B,N,N) :-
　　atom_to_term(S,B1),
integer(B1),
not(B1=B),
write_formatted('残念でした!! 正解は%tですね\n',[B]),!.
正誤の判定(S,B,N,N) :-
　　atom_to_term(S,B1),
　　not(integer(B1)),
　　write_formatted('入力に形式的な誤りがあったようです\nあなたは%tと入力しました\n',[S]).

>>256
% Prolog

interest(R,N,X) :-
　　X is (1+R/100)^N.

返済額(Y,R,N,,X) :-
　　interrest(R,N,Z),
X is Y * Z.

http://pc12.2ch.net/test/read.cgi/tech/1244449887/580
# 【質問テンプレ】
# [1] 授業単元： プログラミング演習
# [2] 問題文:　人の名前（ローマ字）を検索（部分一致）することができるプログラム
を作成せよ。

>>264
% Prolog こういう処理のためのユーティリティ sub_atom/10 を提案する。
http://nojiriko.asia/prolog/t264_u.html

http://pc12.2ch.net/test/read.cgi/tech/1153585095/878
#エラトステネスの篩
#（コードは煩雑そうに見えるが、速度が圧倒的に速い。
#　大きな数までの素数表が必要な場合に必要な方法。）
% 宿題には見えないんだが・・

>>266
% Prolog

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

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

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

http://pc12.2ch.net/test/read.cgi/tech/1244449887/842
# [1] C言語
# [2]１〜５の数字の組み合わせをを2次元配列index[][]に格納し、表示しなさい。

>>268
% Prolog
t268(X) :- 組合せ([1,2,3,4,5],2,X).

組合せ(X,1,[A]) :-
member(A,X) .
組合せ([A|Y],N,[A|X]) :-
N > 1,
M is N - 1,
組合せ(Y,M,X) .
組合せ([_|Y],N,A) :-
N > 1,
組合せ(Y,N,A) .

>>268
% Prolog
t268(X) :- 組合せ([1,2,3,4,5],2,X).

組合せ(X,1,[A]) :- member(A,X) .
組合せ([A|Y],N,[A|X]) :- N > 1,M is N - 1,組合せ(Y,M,X) .
組合せ([_|Y],N,A) :- N > 1,組合せ(Y,N,A) .

http://pc12.2ch.net/test/read.cgi/tech/1244449887/837
# キーボードから入力した数値の段数を持つ逆ピラミッドを表示するプログラム。
#
# 例えば３と入力した時、
#
# ＊＊＊＊＊
# ＊＊＊
# ＊
#
# となるようなプログラムです。
# どうか早急にお願いします。

>>271
問題が面白くないっす
やる気起きないっす

% Prolog
:- op(250,xfx,対).

t271(N,1 対 M) :-
　　for(N,N2,1),
　　N3 is (N2 - 1) * (M - 1) + 1,
　　for(1,N4,N3),write(*),N3=N4,
　　N=N2.

http://pc12.2ch.net/test/read.cgi/tech/1244449887/851
# あいうえお
# /*かきくけこ*/
# さしす/*せそ
# なにぬ*/ねの
#
# というファイル（test.txt）から文字数、改行数、コメント文字数をカウントし、出力するプログラムです。
# お願いいたします。

>>274
% Prolog
t274(_文字数,_改行数,_コメント数) :-
　　get_chars('test.txt',Chars),
　　length(Chars,_文字数),
　　改行数を数える(Chars,_改行数),
　　コメント数を数える(Chars,_コメント).

改行数を数える(Chars,_改行数) :-
　　findall(_,append(_,['\n'|_],Chars),L),
　　length(L,_改行数).

コメント文字数を数える(Chars,_コメント文字数) :-
　　append(_,['/','*'|L2],Chars),
　　append(_コメント文字候補,['*','/'|_],L2),
　　not(append(_,['/','*'|_],_コメント文字候補)),
　　改行を取り除く(_コメント文字候補,_改行を取り除いたコメント文字候補),
　　length(_改行を取り除いたコメント文字候補,_コメント文字数).

改行を取り除く([],[]).
改行を取り除く(['\n'|R1],R2) :-
　　改行を取り除く(R1,R2),!.
改行を取り除く([A|R1],[A|R2]) :-
　　not(A='\n'),
　　改行を取り除く(R1,R2).

>>274 >>275
% Prolog (訂正) コメント数　ではなく　コメント文字数　です。
t274(_文字数,_改行数,_コメント文字数) :-
　　get_chars('test.txt',Chars),
　　length(Chars,_文字数),
　　改行数を数える(Chars,_改行数),
　　コメント文字数を数える(Chars,_コメント文字数).

改行数を数える(Chars,_改行数) :-
　　findall(_,append(_,['\n'|_],Chars),L),
　　length(L,_改行数).

コメント文字数を数える(Chars,_コメント文字数) :-
　　append(_,['/','*'|L2],Chars),
　　append(_コメント文字候補,['*','/'|_],L2),
　　not(append(_,['/','*'|_],_コメント文字候補)),
　　改行を取り除く(_コメント文字候補,_改行を取り除いたコメント文字候補),
　　length(_改行を取り除いたコメント文字候補,_コメント文字数).

改行を取り除く([],[]).
改行を取り除く(['\n'|R1],R2) :-
　　改行を取り除く(R1,R2),!.
改行を取り除く([A|R1],[A|R2]) :-
　　not(A='\n'),
　　改行を取り除く(R1,R2).

http://pc12.2ch.net/test/read.cgi/tech/1244449887/861
# 以下のように出力されるプログラムを作成せよ
# 年齢を入力してください
# 16
# 生まれた年を入力してください
# 1986
# 好きな数字を入力してください
# 7
# あなたは1986年生まれの16才で、7が好きですね

>>277
% Prolog
t277 :-
　　質問文(L),
　　findall(U,(member(A,L),write(A),nl,get_line(U)),VL),
　　write_formatted('あなたは%t年生まれの%才で、%tが好きですね\n',VL).

質問文([年齢を入力してください,生まれた年を入力してください,好きな数字を入力してください]).

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

>>279
% Prolog
t279(M,N,StartX,StartY,_壁衝突回数,_ポケットX,_ポケットY) :-
　　t279(M,N,StartX,StartY,1,1,0,_壁衝突回数,_ポケットX,_ポケットY),!.

t279(M,N,X,Y,_,_,Count,Count,X,Y) :-
　　member([X,Y],[[M,0],[0,N],[N,0],[M,N]]),!.
t279(M,N,X1,Y1,VX,VY,Count1,Count,X,Y) :-
　　member(X1,[0,M]),
　　VX1 is (-1) * VX,
　　Count2 is Count1 + 1,
　　X2 is X1 + VX1,
　　Y2 is Y1 + VY,
　　t279(M,N,X2,Y2,VX1,VY,Count2,Count,X,Y).
t279(M,N,X1,0,VX,VY,Count1,Count,X,Y) :-
　　member(Y1,[0,N]),
　　VY1 is (-1) * VY,
　　Count2 is Count + 1,
　　X2 is X1 + VX,
　　Y2 is Y1 + VY1,
　　t279(M,N,X2,Y2,VX,VY1,Count2,Count,X,Y).
t279(M,N,X1,Y1,VX,VY,Count1,Count,X,Y) :-
　　X2 is X1 + VX,
　　Y2 is Y1 + VY,
　　t279(M,N,X2,Y2,VX,VY,Count1,Count2,X,Y).

http://pc12.2ch.net/test/read.cgi/tech/1244449887/849
# [1]授業単元：プログラミング演習課題3
# [2]問題文：http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9516.txt
# ファイルに登録された成績コードを読み、構造体列にデータを編集し指定された項目で
# ソート処理を行って、画面に一覧（見出しと明細データ）を出力する。
# ソートの順序は降順とし、10行毎に見出しを入れる。
#
# 成績ファイル：
# コード（6桁）,氏名（20桁）,国語（3桁）,算数（3桁）,理科（3桁）,社会（3桁）
#
# 構造体の定義：
# struct seito {
# char cd[7];
# char simei[21];
# int kokugo;
# int sansu;
# int rika;
# int syakai;
# };
#
# ソート項目は、コード、氏名、国語、算数、理科、社会が選択できるようにする。

>>281
% Prolog
http://nojiriko.asia/prolog/t281.html

http://pc12.2ch.net/test/read.cgi/tech/1244449887/890
# [1] 授業単元：数理物理
# [2] 問題文(含コード&リンク)：http://www.mns.kyutech.ac.jp/~kamada/suuributuri/
sub8.html
# 　　の課題３のプログラムで解くところまで
# 課題（３）
#
# 次の力が働いているときの、運動方程式を解く。
#
# F = -x - v ^ 3 + 1 + cos(t)
#
# 初期条件：ｔ＝０の時、ｘ（０）＝１．０、速度ｖ（０）＝‐０．５
# として解き、０＜ｔ＜１０までをgnuplot（など）で、プロットせよ。
#
# ヒント：
# ６章の減衰振動のプログラム（C言語）
# http://www.mns.kyutech.ac.jp/~kamada/keisan6/

http://pc12.2ch.net/test/read.cgi/tech/1244449887/905
# [1]c++
# [2]2次元配列n[10][10]のすべての要素に1を代入してから、その内容を表示しなさい。

# また、対角要素だけを1を代入し、ほかはすべて0を代入してから、表示しなさい。
# ただし、対角要素は左上隅から右下隅への対角線上の要素とする。次の図は実行例であ
る。
# 　--- (2)配列nの内容 ---
#
# 100000000
# 010000000
# 001000000
# 000100000
# 000010000
# 000001000
# 000000100
# 000000010
# 000000001

>>284
% Prolog
t284_1 :-
　　findall(L,(for(1,M,10),findall(1,for(1,N,10),L)),LX),
　　member(U,LX),
　　concat_atom(U,A),
　　write_formatted('%t\n',[A]),
　　fail;
　　true.

t284_2 :-
　　findall(L,(for(1,M,10),findall(B,(for(1,N,10),
　　　　　　　　(N=M,B=1;not(N=M),B=0))),LX),
　　member(U,LX),
　　concat_atom(U,A),
　　write_formatted('%t\n',[A]),
　　fail;
　　true.

>>284
% Prolog for/3を使いたくない場合。表示は省略。
t284_2(X) :- length(L,10),findall(L,一つだけ1で他は全部零(L),X).
一つだけ壱で他は全部零(L) :- append(L1,[1|R],L),零ならび(L1),零ならび(R).
零ならび([]).
零ならび([0|R]) :- 零ならび(R).

>>284　一ヶ所間違えた。
% Prolog for/3を使いたくない場合。表示は省略。
t284_2(X) :- length(L,10),findall(L,ひとつだけ壱で他は全部零(L),X).
ひとつだけ壱で他は全部零(L) :- append(L1,[1|R],L),零ならび(L1),零ならび(R).
零ならび([]).
零ならび([0|R]) :- 零ならび(R).

>>287
forループがlengthの中に閉じ込められているんだね。

これぞ宣言型プログラミング！

>>257
% Prolog
http://nojiriko.asia/prolog/t257.html

http://pc12.2ch.net/test/read.cgi/tech/1244449887/953
# [1] 授業単元： ピラミッドアート
# [2] 問題文(含コード&リンク)： http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9534.txt
課題「ピラミッドアート」

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

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

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

実行画面例�B星型
数字（2〜9）を入力してください：7
* * *
* * *
***
*******
***
* * *
* * *

>>290
空白がうまく表示できなかった。
http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9534.txt
で確認してください。

>>290
% Prolog
http://nojiriko.asia/prolog/t290.html

http://pc12.2ch.net/test/read.cgi/tech/1245853701/75
# [1] 授業単元： Ｃ
# [2] 問題文(含コード&リンク)：
# キーボードから入力された１以上の整数ｎについて、次の例に示すように行番号と*を表示するプログラムを作成せよ
# 。また、０や負の数が入力された場合はプログラムが終了するようにせよ。
# 表示結果の例
# 正の整数：6
# 1******
# 2　*****
# 3　　****
# 4　　　***
# 5　　　　**
# 6 *

>>293
% Prolog 最後6の表示が間違ってるが。

t293(N) :-
　　length(L,N),
　　append(L1,L2,L),
　　not(L2=[]),
　　all(L1,' '),
　　all(L2,'*'),
　　length(L1,N),
　　N2 is N + 1,
　　concat_atom(L,S),
　　write_formatted('%t %t\n',[N2,S]),
　　fail;
　　true.

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

>>294
　　all(L1,' '), はスペース2個だと思ってください。

http://pc12.2ch.net/test/read.cgi/tech/1245853701/83
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# 自分の名前の英字名のASCIIコードを順番に表示するプログラムを作りなさい。

>>296
% Prolog

t296(Name) :-
　　sub_atom(Name,S,1,R,A),
　　not(A=' '),
　　char_code(A,C),
　　N is S+1,
　　write_formatted('%2d: %t\n',[N,C]),
　　fail;
　　true.

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

>>298
% Prolog

phon(_フォネティックコードファイル,_文字列) :-
　　assertz_フォネティックコード(_フォネティックコードファイル),
　　sub_atom(_文字列,_,1,_,A),
　　フォネティックコード(A,B),
　　write_formatted('%t ',[B]),
　　fail;
　　true.

assertz_フォネティックコード(_フォネティックコードファイル) :-
　　abolish(フォネティックコード/2),
　　get_lines(_フォネティックコード,Lines),
　　member(Line,Lines),
　　split(Line,[','],[A,B]),
　　assertz((フォネティックコード(A,B) :- !)),
　　fail;
　　assertz((フォネティックコード(A,A))).

>>298
-- Haskell

import IO
import Data.Char (isAlpha, toLower)
import Data.Maybe (fromJust)

main = do
fname <- getLine
h <- openFile fname ReadMode
phon <- readPhon h
str <- getLine
putStrLn $ t298 phon str
hClose h

readPhon :: Handle -> IO [(Char,String)]
readPhon h = hGetContents h >>= return . map parse . lines
where
parse :: String -> (Char,String)
parse (c:',':p) = (c,p)

t298 :: [(Char,String)] -> String -> String
t298 phon [] = []
t298 phon (x:xs) | isAlpha x = (fromJust $ lookup (toLower x) phon) ++ ' ' : t298 phon xs
| otherwise = x : t298 phon xs

>>299 違ったみたい。どこが違ってたか捜してみて下さい。
% Prolog

phon(_フォネティックコードファイル,_文字列) :-
　　assertz_フォネティックコード(_フォネティックコードファイル),
　　atom_chars(_文字列,Chars),
　　phon_1(Chars,XL),
　　phon_2(XL).

phon_1([],[]) :- !.
phon_1([A,B|R1],[C,' '|R2]) :-
　　フォネティックコード(A,C),
　　フォネティックコード(B,_),
　　phon_1([B|R1],R2).
phon_1([A,B|R1],[C,' '|R2]) :-
　　フォネティックコード(A,C),
　　not(フォネティックコード(B,_)),
　　phon_1([B|R1],R2).
phon_1([A,B|R1],[A,' '|R2]) :-
　　not(フォネティックコード(A,_)),
　　フォネティックコード(B,_),
　　phon_1([B|R1],R2).
phon_1([A,B|R1],[A|R2]) :-
　　not(フォネティックコード(A,_)),
　　not(フォネティックコード(B,_)),
　　phon_1([B|R1],R2).

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

>>301 さらに訂正。
phon_1([],[]) :- !. の後に、
phon_1([A],[C]) :-
　　フォネティックコード(A,C),!.
phon_1([A],[A]) :-
　　not(フォネティックコード(A,_)),!.

の2節を追加してください。
http://nojiriko.asia/prolog/t298.html
に書き直しておきます。

なぜこうまでも全編の書き直しを余儀なくされたかというと、
123abc の場合の 123 Alfa ...　3とAlfaの間のスペースを入れることが
難しかったと言うことです。sub_atomで次の文字をこっそり見てしまえば
いいだけの事なのですが、潔しとせずと言うところでしょうか。

>>303
前後関係を検査しやすいパターンで記述するので正解じゃないか。
ご苦労様ですｗ

http://pc12.2ch.net/test/read.cgi/tech/1245853701/46
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：入力した数を2の何乗より大きいかを求めるプログラム。

>>305
% Prolog

t305(N,X) :-
for(1,M,N),
2 ^ M > N,
X is M - 1.

>>305
-- Haskell

import Data.List (find)
main = do
n <- getLine
let Just m = find ((read n <=) . (2^)) [1..] in print (m-1)

「いろんな言語で宿題スレ」の中で
http://pc12.2ch.net/test/read.cgi/tech/1242876647/168
http://pc12.2ch.net/test/read.cgi/tech/1242876647/225
といったProlog向き問題が未回答となっています。
どなたか、よろしくお願いします。

「Prologでまったり」スレに書き込んだつもりでした。失礼しました。

http://pc12.2ch.net/test/read.cgi/tech/1245853701/162
# [1] 授業単元：数値計算
# [2] 問題文(含コード&リンク)：の連立１次方程式の解をガウスの消去法用いて解くプログラムを作成しなさい。
# 　 　（この行列を使用してください
# 　　　　　｛{10,-9,0,0,0,0,0,0},
# 　　{-9,17,-8,0,0,0,0,0},
# 　　{0,-8,17,-9,0,0,0,0},
# {0,0-9,13,-4,0,0,0},
# {0,0,0,-4,12,-8,0,0},
# {0,0,0,0,-8,10,-2,0},
# 　　{0,0,0,0,0,-2,2,7}｝）

http://pc12.2ch.net/test/read.cgi/tech/1232627790/856
# 【　課題　】百ます計算プログラムの作成
# 足す数、足される数は実行毎にランダムな順番にする。
# スタートボタンを押すと同時に問題が表示され、答えをキー入力しおわるとストップボタンを押す。
# 終了までの時間と、正解数を表示する。

百ます計算ってなんですか？　ゲームに参加した人が行、列の先頭から
数字を得て百桝計算し終わるまでの時間でも競うのですか？

http://pc12.2ch.net/test/read.cgi/tech/1245853701/184
# [1] 授業単元：アルゴリズム
# [2] 問題文(含コード&リンク)：
# 　　http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9583.txt

>>312
% Prolog
t312(StackIn,StackOut) :-
　　new_stack(StackIn,NewStack),
　　get_chars(Chars),
　　t312_1(Chars,NewStack,StackOut,_).

t312_1([],X,X,true).
t312_1([A|R1],Stack1,Stack2,Return) :-
　　stack(A,Stack1,Stack3,Return1),
　　t312_2(Return1),
　　t312_1(R1,Stack3,Stack2,Return).

t312_2(true) :- !.
t312_2(C) :- write(C).

new_stack(Var,[]) :- var(Var),!.
new_stack([],[]) :- !.
new_stack(Stack,Stack).

stack_1('/',[A|R2],R2,A) :- !.
stack_1(C,Stack1,[C|Stack1],true).

>>313 まちがえた。stackという述語のところ。stack/4 stack_1/4
と出てきますが、stack_op/4にします。
% Prolog

t312(StackIn,StackOut) :-
　　new_stack(StackIn,NewStack),
　　get_chars(Chars),
　　t312_1(Chars,NewStack,StackOut,_).

t312_1([],X,X,true).
t312_1([A|R1],Stack1,Stack2,Return) :-
　　stack_op(A,Stack1,Stack3,Return1),
　　t312_2(Return1),
　　t312_1(R1,Stack3,Stack2,Return).

t312_2(true) :- !.
t312_2(C) :- write(C).

new_stack(Var,[]) :- var(Var),!.
new_stack([],[]) :- !.
new_stack(Stack,Stack).

stack_op('/',[A|R2],R2,A) :- !.
stack_op(C,Stack1,[C|Stack1],true).

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

>>315
% Prolog
http://nojiriko.asia/prolog/t315.html

http://pc12.2ch.net/test/read.cgi/tech/1245853701/234
# [1] 授業単元：確率論
# [2] 問題文(含コード&リンク)：http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9602.txt

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

http://pc12.2ch.net/test/read.cgi/tech/1245853701/244
# 〔1〕授業単元:Ｃ言語
# 〔2〕問題文:http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9601.txt

http://pc12.2ch.net/test/read.cgi/tech/1245853701/273
# 1] 授業単元： 数理計画法
# [2] 問題文(含コード&リンク)： シンプレックス法のプログラムを作成せよ。
# [3] 環境
# 　[3.1] OS： Windows
# 　[3.3] 言語： C
# [4] 期限： 2009年７月１日
# [5] その他の制限： プログラムの授業で習うことはすべてやりました。
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9612.txt
# のようなプログラムをつくたんですがこの先が悩んでいます。どなたかお願いします。

http://pc12.2ch.net/test/read.cgi/tech/1245853701/275
# [1] 授業単元：Ｃ言語の基礎
# [2] 問題文：年（西暦）、月、日を入力し、入力した、日時の曜日及び、経過した日数を表示したプログラムを作成せよ。

>>321
% Prolog
http://nojiriko.asia/prolog/t321.html

>>318
% Prolog
http://nojiriko.asia/prolog/t318.html

>>318
すみません。間違いが多かったので大幅に書き換えてupしました。
http://nojiriko.asia/prolog/t318.html

>>319 �@
% Prolog
swap(A,B,L,LX) :-
append(L1,[A|L2],[B|L3],L),
append(L1,[B|L2],[A|L3],LX),!.
swap(A,B,L,LX) :-
append(L1,[B|L2],[A|L3],L),
append(L1,[A|L2],[B|L3],LX),!.

>>319 �A
% Prolog

t319_2(X) :-
　　findall(U,(for(1,N,52),t319_2_1(N,U)),X).

t319_2_1(N,U) :-
　　M is N mod 13,
　　t319_2_2(M,U).

t319_2_2(1,'A') :- !.
t319_2_2(10,'T') :- !.
t319_2_2(11,'J') :- !.
t319_2_2(12,'Q') :- !.
t319_2_2(0,'K') :- !.
t319_2_2(N,N).

>>319 �B
% Prolog

t319_3(X) :-
　　findall(U,(for(1,N,52),t319_3_1(N,U)),X).

t319_3_1(N,U) :-
　　M is N mod 13,
　　M2 is (N - 1) // 13,
　　t319_2_2(M,U1),
　　t319_2_3(M2,U2),
　　atom_concat(U1,U2,U).

t319_2_3(0,s).
t319_2_3(1,h).
t319_2_3(2,d).
t319_2_3(3,c).

% どこでswapを使うのかわからない!
% これからカードを「切る」課題でも出てくるのだろうか。

>>319
% せっかくだからN回切るのをやってみよう。
% Prolog

t319_cut(N,L) :-
　　t319_3(L1),
　　t319_cut(N,L1,L).

t319_cut(0,L,L) :- !.
t319_cut(N,L,X) :-
　　M1 is (random mod 52) + 1,
　　M2 is (random mod 52) + 1,
　　swap_nth(M1,M2,L,L1),
　　N2 is N - 1,
　　t319_cut(N2,L1,X).

swap_nth(M,N,L1,L2) :-
　　list_nth(M,L1,A),
　　list_nth(N,L1,B),
　　swap(A,B,L1,L2).

>>319
失礼しました。問題文を読み落としていました。
すべて最初に「切る」ことが指定されていました。
最初に切ってしまうなら、swap_nthではなく、swapでも処理できます。

t319_xx(X) :-
　　findall(N,for(1,N,52),L),
　　t319_cut(100,L,L1),
　　 ... ,
のような進行になります。

>>319
% Prolog
http://nojiriko.asia/prolog/t319.html

http://pc12.2ch.net/test/read.cgi/tech/1245853701/472
# [1] 授業単元：C言語実習
# [2] 問題文(含コード&リンク)：http://kansai2channeler.hp.infoseek.co.jp/cgi-bin
/joyful/img/9658.txt
# {5,21,4,14,12},
# {25,20,15,3,7},
# {24,11,6,1,13},
# {16,2,17,19,8},
# {23,18,22,9,10}
#
# の横の各行を小さい順に並び替えた後、縦の各列を小さい順に並び替え（上が小さくな
るように）
# 結果を出力
#
# 結果は
#
# 5 21 4 14 12
# 25 20 15 3 7
# 24 11 6 1 13
# 16 2 17 19 8
# 23 18 22 9 10
#
# のような形で出力

>>331
% Prolog

t331(_行列1,_行列2) :-
　　各行を整列する(_行列1,_行列3),
　　各列を整列する(_行列3,_行列2),
　　member(L,_行列2),
　　concat_atom(L,' ',S),
　　write_formatted('%t\n',[S]),
　　fail;
　　true.

各行を整列する([],[]) :- !.
各行を整列する([_行|R1],[_整列された行|R2]) :-
　　sort(_行,_整列された行),
　　各行を整列する(R1,R2).

各列を整列する(_行列1,_行列2) :-
　　行列の転置(_行列2,_行列3),
　　各行を整列する(_行列3,_行列4),
　　行列の転置(_行列4,_行列2).

http://pc12.2ch.net/test/read.cgi/tech/1245853701/511
# [1] 授業単元：情報基礎B
# [2] 問題文(含コード&リンク)：試験の点数１０人分をキーボードから入力し、以下の内容を出力するプログラムを作成せよ。
# 平均点、標準偏差、得点の高い順の点数リスト(出来れば、バブルソート以外のアルゴリズムでお願いします。)

>>333
% Prolog (1/2)

t333(_点数ならび,_平均点,_標準偏差,_点数順ならび) :-
　　算術平均(_点数ならび,_平均点),
　　標準偏差(_点数ならび,_標準偏差),
　　quicksort(_点数ならび,_点数順ならび).

算術平均([],N,S,M) :- M is S / N,!.
算術平均([A|R],N,S,M) :- S1 is S + A,算術平均(R,N,S1,M) .

算術平均(L,M) :- length(L,N),算術平均(L,N,0.0,M).

標準偏差([],N,M,S,V) :- V is sqrt(S / (N - 1)),!.
標準偏差([A|R],N,M,S,V) :- S1 is (A - M) ^ 2,S2 is S + S1,標準偏差(R,N,M,S2,V).

標準偏差(L,V) :- length(L,N),算術平均(L,M),標準偏差(L,N,M,0.0,V) .

>>333
% Prolog (2/2)

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

partition([],Y,[],[]) :- !.
partition([X|Xs],Y,[X|Ls],Bs) :- X @=< Y,partition(Xs,Y,Ls,Bs).
partition([X|Xs],Y,Ls,[X|Bs]) :- X @> Y,partition(Xs,Y,Ls,Bs).

>>333
点数の高い順だと、
partition([],Y,[],[]) :- !.
partition([X|Xs],Y,[X|Ls],Bs) :- X @>= Y,partition(Xs,Y,Ls,Bs).
partition([X|Xs],Y,Ls,[X|Bs]) :- X @< Y,partition(Xs,Y,Ls,Bs).
ですね。

http://pc12.2ch.net/test/read.cgi/tech/1245853701/423
# [1] 授業単元： 情報処理
# [2] 問題文(含コード&リンク)：
# 　　
# 　2つの正整数 m とn とを引数として受け取り、m と n の最大公約数を戻
# り値として返す関数gcd()を作成する。この関数を用いることにより、キー
# ボードから入力した3つの正整数 a, b, c の最大公約数を求めるプログラム
# を書け。
#
# 注意: 最大公約数を計算するには次のような「ユークリッドの互除法」を
# 用いるとよい。
#
# 「ユークリッドの互除法」
# 　２つの正の整数 m、n（m＞n）の最大公約数を求めるには、m を n で割っ
# て余り r1 を求め、次に n を r1 で割って余り r2 を求め、・・・、この
# ように大きい方を小さい方で割って余りを求め、最後に割り切れたときの除
# 数が求める最大公約数である。
#
# 例）４４０／３８０＝１余り６０　
# 　　３８０／６０＝６余り２０　　
# 　　６０／２０＝３　余りなし
# 　したがって、４４０と３８０の最大公約数は２０　

>>337
% Prolog

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

>>310
% Prolog
http://nojiriko.asia/prolog/t310.html

http://pc12.2ch.net/test/read.cgi/tech/1245853701/534
# [1] 授業単元：情報処理
# [2] 問題文(含コード&リンク)：
# 例えば下図に示すように，通行可能なマス目に'0'が，
# 障害物があって通行不能なマス目に'+'が記されている盤がある．
# 盤の左上をスタート地点，右下をゴール地点として，経路を表示する
# プログラムを作りなさい．
# 盤の例
# 0 0 + 0 +
# + 0 0 0 +
# 0 + + 0 0
# 0 0 + 0 0
# + 0 0 0 0
#
# 例えばこのようなアルゴリズムが考えられる．
#
# 1) 現在位置を表示の後、進行方向に対して，右に進めるなら右に，
# そうでなければ直進，それもだめなら左に，さらにそれもダメなら後退する．
# 2) 1を繰り返してゴールに達したらその旨を表示する．
# ただし，マス目の数分だけ移動してもゴールに達しない場合はその時点で終了する．
#
# 入力形式は、
#
# %> ./a.out 00+0+ +000+ 0++00 00+00 +0000
#
# とする．

>>340
% Prolog
http://nojiriko.asia/prolog/t340.html

http://pc12.2ch.net/test/read.cgi/tech/1245853701/536
# [1] 授業単元： Ｃ言語演習
# [2] 問題文(含コード&リンク)： 乱数を使って配列に値を代入するようにせよ。サイズを変化させて時間を計測してみせよ。
# サイズが十倍になると計算結果は何倍になるか？

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

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

sum([],0.0) :- !.
sum([A|R],X) :- sum(R,Y),X is A + Y.

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

>>344 課題1
% Prolog
space(_文字列,_スペースを挿入された文字列) :-
　　atom_chars(_文字列,Chars),
　　concat_atom(Chars,' ',_スペースを挿入された文字列).

concat_atom([],_,'') :- !.
concat_atom([A],_,A) :- !.
concat_atom([A|R],S,X) :-
　　concat_atom(R,S,Y),
　　atom_concat(A,S,B),
　　atom_concat(B,Y,X).

>>344 課題2
% Prolog

inpro([],[],0) :- !.
inpro([A|R1],[B|R2],X) :-
　　inpro(R1,R2,Y),
　　X is A * B + Y.

>>342 間違ってたので直します
% Prolog

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

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

sum([],0.0) :- !.
sum([A|R],X) :- sum(R,Y),X is A + Y.

http://pc12.2ch.net/test/read.cgi/tech/1245853701/547
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# 下に示すように，非負の整数値を読み込んで，その数を逆順に表示するプログラムを作成せよ。
# なお，負の値を読み込んだ場合は，再入力を促すメッセージを表示すること。
#
# 非負の整数を入力してください: 1963
# 1963 を逆から読むと3691 です．

>348
% Prolog

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

整数の入力(N) :-
　　write('非負の整数を入力してください(入力後ピリオドと改行) : '),
　　read(N),
　　integer(N),
　　N >= 0,!.
整数の入力(N) :-
　　write('入力されたのは非負の整数ではありませんでした\n'),
　　整数の入力(N).

http://pc12.2ch.net/test/read.cgi/tech/1245853701/552
# [1] 授業単元：情報処理
# [2] 問題文(含コード&リンク)：
# (1)
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9670.txt
# (2)
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9671.txt

>>350 (2)
% Prolog

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

分数の積(A 分の B,C 分の D,X 分の Y) :-
　　X is A * C,
　　Y is B * D.

http://pc12.2ch.net/test/read.cgi/tech/1245853701/559
# [1] 授業単元：アルゴリズム
# [2] 問題文(含コード&リンク)：url.txtに書き込まれている"ttp://〜をhttp://〜に書き換えresult.txtに出力せよ

>>352
# python2.x
fin = file('url.txt')
fout = file('result.txt','w')
for line in fin.readlines():
fout.write(line.replace('ttp://','http://'))
fout.close()
fin.close()

>>352
% Prolog

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

t352([],[]) :- !.
t352(['h','t','t','p',':','/','/'|R1],['h','t','t','p',':','/','/'|R2]) :-
　　t352(R1,R2),!.
t352(['t','t','p',':','/','/'|R1],['h','t','t','p',':','/','/'|R2]) :-
　　t352(R1,R2),!.
t352([A|R1],[A|R2]) :-
　　t352(R1,R2).

>>352
% Prolog
>>352
また間違い。訂正,Chars -> Chars2 のところがある。

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

>>352
% Prolog ' は要らなかった。

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

t352([],[]) :- !.
t352([h,t,t,p,:,/,/|R1],[h,t,t,p,:,/,/|R2]) :-
　　t352(R1,R2),!.
t352([t,t,p,:,/,/|R1],[h,t,t,p,:,/,/|R2]) :-
　　t352(R1,R2),!.
t352([A|R1],[A|R2]) :-
　　t352(R1,R2).

http://pc12.2ch.net/test/read.cgi/tech/1245853701/586
# [1] 授業単元：C+
# [2] 問題文(含コード&リンク)：
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9676.txt

>>357
% Prolog
% 1.
% sum1toN(n)と呼び出すと(nは正の整数)、戻り値として 1 から n までの
% 和が返ってくる関数sum1toNを作成せよ。（関数の部分のみ書くこと。）

sum1toN(1,1) :- !.
sum1toN(N,X) :- M is N - 1,sum1toN(M,Y),X is N + Y.

>>357
% Prolog
% 2.
% 円の半径をキーボードから入力し、円周の長さと面積を求めて表示する プログラムを次のように作成した。
% 円周の長さと面積を求める部分は関数 circleを使用している。この関数を書け。
% 円周率は#defineで定義している PAI を使ってよい。

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

pi(3.14159).

circle(_半径,_円周,_面積) :-
　　pi(PI),
　　_円周 is 2 * _半径 * PI,
　　_面積 is _半径 ^ 2 * PI.

>>357
% Prolog
% 3.
% 大きさ8のint型配列aに初期値として
% 1 2 3 4 5 6 7 8
% を設定する。これを
% 0 0 1 2 3 4 5 6
% のように要素を右に２つシフトして a[0],a[1]には 0 を入れ、
% その後配列の各要素を
% a[0]=0
% a[1]=0
% <略>
% a[7]=6
%
% のように表示するプログラムを書け。
t357_3 :-
　　右にシフト(2,[1,2,3,4,5,6,7,8],_シフトされたならび),
　　表示(1,_シフトされたならび).

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

右にシフト(0,X,X) :- !.
右にシフト(N,L,X) :-
　　append(Y,[_],[0|L]),
　　M is N - 1,
　　右にシフト(M,Y,X).

>>357
% Prolog
% 4.
% 文字列(最大80文字)をキーボードから読み込み、
% その文字列中で文字コードが最大の文字とその文字コードを
%
% 　　文字コード最大はY <89>
%
% （Yが最大の文字、89がその文字コードを意味する。）
% のように表示するプログラムを次のように作成した。空欄を埋めてプログラム
% を完成せよ。

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

最大の文字コード([],X,X) :- !.
最大の文字コード([C|R],_現在の最大コード,_最大の文字コード) :-
　　C > _現在の最大コード,
　　最大の文字コード(R,C,_最大の文字コード),!.
最大の文字コード([C|R],_現在の最大コード,_最大の文字コード) :-
　　C =< _現在の最大コード,
　　最大の文字コード(R,_現在の最大コード,_最大の文字コード),!.

http://pc12.2ch.net/test/read.cgi/tech/1245853701/606
# [1] 授業単元：C
# [2] 問題文(含コード&リンク)：
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9680.txt
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9678.txt

http://pc12.2ch.net/test/read.cgi/tech/1245853701/607
# 簡単なデータベース機能を持つプログラムを作成しなさい．対象となるデータは自分で
考えてください．
# 　　（住所録，商品の在庫，図書，ワールドカップの勝敗．．．．）
# 　以下の要件を示します．
#
# 1. ファイルからデータを読み込む機能をつけること．
# 2. データは４つ以上の項目を保持させること．
# 　（住所録では、「名前」「住所」「郵便番号」「電話番号」等で４項目以上）
# 3. 並び替えの機能をつけること．また並び替える項目が指定できること．
# 4. 各項目についてデータの検索を行う機能をつけること．また，検索条件を組み合わ
せることができること．
# 　（住所録なら，「郵便番号」が 399 で始まって，かつ，「電話番号」が 026 で始ま
る　等）
# 5. データは半角英数字（英語やローマ字）で扱ってよい
# 6. データの追加ができること．
# 7. データの削除ができること．削除は上記の検索と組み合わせることで，ある条件に
合致したデータを削除できること．
# 8. 追加・削除した結果をファイルに保存できること．

>>362
% Prolog
http://nojiriko.asia/prolog/t362.html

場違いか心配ですが・・・。
質問です

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

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

あるノードから、あるノードまでが到達可能かどうかを調べ経路も表示するプログラムを
作りたいのですがどうすれば良いのでしょうか？memberを使えば良いと言われたのですが
よくわかりません・・・。

>>365
一番基本的なものは以下のようなものでしょう。

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

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

>>365
一般に以下の方を使うのではないかと思います。

到達可能(A,B,Log) :-
　　到達可能(A,B,[A],_逆順Log),
　　reverse(_逆順Log,Log).

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

>>363
% Prolog
http://nojiriko.asia/prolog/t363.html

http://pc12.2ch.net/test/read.cgi/tech/1245853701/673
# [1] 授業単元： 構造体
# [2] 問題文(含コード&リンク)： http://kansai2channeler.hp.infoseek.co.jp/cgi-bi
n/joyful/img/9688.txt

http://pc12.2ch.net/test/read.cgi/tech/1245853701/660
# [1] 授業単元：情報
# [2] 問題文(含コード&リンク)：
# パソコン甲子園 ２００８ 予選問題 問７　ふしぎな虫
# http://www.pref.fukushima.jp/pc-concours/2009/03/pdf/2008yosen.pdf

>>370
% Prolog
http://nojiriko.asia/prolog/t370.html

>>369
# 次の各プログラムを作成
#
# 1.線分の長さを求める
# 　-両端点の座標値（浮動小数点）を入力
# 　-線分の長さを計算、表示
#
# 2.三角形の面積を求める
# 　-3頂点の座標軸（浮動小数点）を入力
# 　-面積を計算、表示
#
# 2では1つの点を原点に移動させてあとはS=1/2｜ad-bc｜でお願いします
#
# 補足でこれがありました
# ◆ 平方根を求める関数
#
# double型の関数 sqrt() を使います．仮引数もdouble型です．
#
# 例えばdouble型の変数 len の平方根を求める場合には，次のように呼び出
# します．
#
# sqrt(len)# 関数sqrt()を使用するソースプログラムをコンパイルするときには，
#
# gcc -lm ***.c
#
# のように，コンパイルオプション「-lm」が必要です．
#
#
#
# ・main関数の座標値読み込み部分を省略したものは以下の通りです

>>369 (1)
% Prolog
線分の長さ(X1,Y1,X2,Y2,_線分の長さ) :-
　　_線分の長さ is sqrt((X2-X1)^2 + (Y2-Y1)^2).

>>369 (2)
% Prolog

三角形の面積(X1,Y1,X2,Y2,X3,Y3,_三角形の面積) :-
　　一角を原点へ移動(X1,Y1,X2,Y2,X3,Y3,0,0,X22,Y22,X33,Y33),
　　_三角形の面積 is abs(X22 * Y33 - Y22 * X33) / 2.

一角を原点へ移動((X1,Y1,X2,Y2,X3,Y3,0,0,X22,Y22,X33,Y33) :-
　　X22 is X2 - X1,
　　Y22 is Y2 - Y1,
　　X33 is X3 - X1,
　　Y33 is Y3 - X1.

>>374 訂正
一角を原点へ移動((X1,Y1,X2,Y2,X3,Y3,0,0,X22,Y22,X33,Y33) :-
　　X22 is X2 - X1,
　　Y22 is Y2 - Y1,
　　X33 is X3 - X1,
　　Y33 is Y3 - Y1.

>>366-367さん
回答ありがとうございます。しかし
arc(a,b).
arc(b,c).
arc(b,d).
arc(c,e).
arc(e,d).
arc(d,f).
arc(d,e).

member(X,[X|_]).
member(X,[_|T]) :-
member(X,T).



seach(A,B,Log) :-
search(A,B,[A],_逆順Log),
reverse(_逆順Log,Log).

seach(A,B,L1,[B|L1]) :-
arc(A,B),
\+ member(B,L1).
search(A,B,L1,L) :-
arc(A,C),
\+ member(C,L1),
search(C,B,[C|L1],L).
と作って| ?- search(a, f, Path).
と聞くとnoと出てしまいます・・・。
あと_逆順Logは普通にSとかに置き換えてもいいのですか？

>>376
seach と search とありますが,seach/4の定義はsearch/4だと思いますが、
単なる誤植でしょうか。

?- listing(search).
で正しく定義ができているか確認してください。

もしできていないなら、
\+member(B,L1) と \+member(C,L1) を　not(member(B,L1)) not(member(C,L1))
に置き換えてみてください。
それから_逆順Log は S でも問題ありません。なぜ最後にreverseするのか
わからない人が多いと思ったのでこの変数名を使いました。

>>350 (1)
% Prolog
:- op(300,fx,i).

複素数の割り算(A + iB,C + iD,X + iY) :-
X is (A * C + B * D) / ( C ^ 2 + D ^ 2),
Y is (B * C - A * D) / ( C ^ 2 + D ^ 2).

>>350 (1) 書き直し
% Prolog
:- op(300,fx,i).

複素数の割り算(A+iB,C+iD,X+iY) :-
　　X is (A * C + B * D) / ( C ^ 2 + D ^ 2),
　　Y is (B * C - A * D) / ( C ^ 2 + D ^ 2).

http://pc12.2ch.net/test/read.cgi/tech/1245853701/725
# [1] 授業単元： プログラミング
# [2] 問題文(含コード&リンク)： 整数 nissu をキー入力して、
# 1 月1 日から数えて nissu 日目が何月何日かを表示
# したい。

>>380
% Prolog
t380 :- get_line(Line),atom_to_term(Line,Nissu,_),
　　'N日後は'(0,Nissu,2009/1/1,_年/_月/_日),
　　write_formatted('%t月%t日\n',[_月,_日]).

'N日後は'(N,N,_年/_月/_日,_年/_月/_日).
'N日後は'(M,N,_年_1/_月_1/_日_1,_年/_月/_日) :-
前日・今日(_年_1/_月_1/_日_1,_年_2/_月_2/_日_2),
M2 is M + 1,
'N日後は'(M2,N,_年_2/_月_2/_日_2,_年/_月/_日).
前日・今日(_前日の年 / 12 / 31,_年 / 1 / 1) :- 一つ違い(_前日の年,_年),!.
前日・今日(_年 / 2 / 29,_年 / 3 / 1) :- うるう年(_年),!.
前日・今日(_年 / 2 / 28,_年 / 3 / 1) :- \+(うるう年(_年)),!.
前日・今日(_年 / _前月 / 30,_年 / _月 / 1) :- 一つ違い(_前月,_月),member(_前月,[4,6,9,11]),!.
前日・今日(_年 / _前月 / 31,_年 / _月 / 1) :- 一つ違い(_前月,_月),member(_前月,[1,3,5,7,8,10,12]),!.
前日・今日(_年 / _月 / _前日,_年 / _月 / _日) :- 一つ違い(_前日,_日),!.

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

一つ違い(M,N) :- integer(M),!,N is M + 1 .
一つ違い(M,N) :- integer(N),!,M is N - 1 .

>>381 ちょっと読みづらかったか。

'N日後は'(N,N,_年/_月/_日,_年/_月/_日).
'N日後は'(M,N,_年_1/_月_1/_日_1,_年/_月/_日) :-
　　前日・今日(_年_1/_月_1/_日_1,_年_2/_月_2/_日_2),
　　M2 is M + 1,
　　'N日後は'(M2,N,_年_2/_月_2/_日_2,_年/_月/_日).

>>381 もう一度訂正。バックトラックしてくると具合の悪いことになる。

'N日後は'(N,N,_年/_月/_日,_年/_月/_日) :- !.
'N日後は'(M,N,_年_1/_月_1/_日_1,_年/_月/_日) :-
　　前日・今日(_年_1/_月_1/_日_1,_年_2/_月_2/_日_2),
　　M2 is M + 1,
　　'N日後は'(M2,N,_年_2/_月_2/_日_2,_年/_月/_日).

# http://pc12.2ch.net/test/read.cgi/tech/1232627790/904
# ・課題の内容
# TCP/IPプロトコルを用い、通信するプログラムを作成せよ。
# ・条件
# キーボードから文字列を１行入力し、それを送信するプログラム(tcp_snd1)と、
# それを受信するプログラム(tpc_rec1)の２つを作成せよ。
# tcp_snd1では、送信先の計算機の名前をプログラムの引数で指定できるようにせよ。
# tcp_rec1では、コネクションの要求あったら、コネクションを張り、
# 要求した計算機のIPアドレスを表示せよ。
# メッセージを受信するたびに、通信回数を[]で括って表示し、
# その後にメッセージを表示せよ。
# 空行が入力されたら、tcp_snd1もtcp_rec1の双方が終了するようにせよ。
# ポートとして、9000を利用せよ。

>>384
% Prolog
http://nojiriko.asia/prolog/t384.html

http://pc12.2ch.net/test/read.cgi/tech/1245853701/732
# [1] 授業単元： プログラミングC
# [2] 問題文(含コード&リンク)：
# キーボードから半角英数で文字列を入力し、英字については大文字を小文字に、小文字
を大文字にするプログラムを作成せよ。
#
# 実行例　文字列入力　：AbCdEfG123
# 　　　　変換文字列　：aBcDeFg123

>>386
% Prolog

t386 :-
　　get_line(Line),
　　atom_chars(Line,Chars),
　　大文字小文字変換(Chars,Chars2),
　　atom_chars(Line2,Chars2),
　　write_formatted('%t\n',[Line2]).

大文字小文字変換([],[]) :- !.
大文字小文字変換([A|R1],[B|R2]) :-
　　A @>= 'A',
　　A @=< 'Z',!,
　　to_lower(A,B),
　　大文字小文字変換(R1,R2).
大文字小文字変換([A|R1],[B|R2]) :-
　　A @>= a,
　　A @=< z,!,
　　to_upper(A,B),
　　大文字小文字変換(R1,R2).
大文字小文字変換([A|R1],[A|R2]) :-
　　大文字小文字変換(R1,R2).

http://pc12.2ch.net/test/read.cgi/tech/1245853701/733
# [1] 授業単元： プログラミングC
# [2] 問題文(含コード&リンク)：
# キーボードから半角英数で文字列を入力し、これを数字（０→９）、
# 大文字（A→Z）、
# 小文字（a→z）の順に並べ替えるプログラムを作成せよ。
# ヒント：並べ替えアルゴリズムは、バブルソート（隣接交換法）を
# 使うと簡単だろう。
# 文字列長はstrlen命令を使うとよい。みたいです。

>>388
% Prolog

t388 :-
　　get_line(Line),
　　atom_chars(Line,Chars),
　　バブルソート(Chars,_整列した文字ならび),
　　atom_chars(Line2,_整列した文字ならび),
　　write_formatted('%t\n',[Line2]).

バブルソート(L,X) :-
　　整順が崩れるまで(L,L2),
　　バブルソート(L2,X),!.
バブルソート(L,L).

整順が崩れるまで([A],[A]) :- !,fail.
整順が崩れるまで([A,B|R1],[A|R2]) :-
　　A @=< B,
　　整順が崩れるまで([B|R1],R2).
整順が崩れるまで([A,B|R1],[B,A|R1]) :-
　　A @> B.

>>377さん
誤植でした；；
無事出来ました
ちなみに述語がmemberだけで出来ると
聞いたのですが出来るのでしょうか？
出来るとしたらどんな感じに
なるのでしょうか？

>>390
member/2だけではうまくいかなかった。

member(A,B,L,[A,B]) :- member((A,B),L).
member(A,B,L,[A|R1]) :- member((A,C),L),member(C,B,L,R1).

?- member(a,f,[(a,b),(b,c),(b,d),(c,e),(e,d),(d,f),(d,e)],S).

ならうまくいくかな。

>>391さん
ヒントとしては
?- \+(member(a, [b,c])).
yes
となり
rev2(L, R) :-
rev2(L, [], R).
rev2([], R, R).
rev2([H|T], L, R) :-
rev2(T, [H|L], R).
みたいに
rev1([], []).
rev1([H|T], R) :-
rev1(T, R1),
append(R1, [H], R).
appendを使わないようにしようって事です
どうなんでしょうか？

http://pc12.2ch.net/test/read.cgi/tech/1245853701/762
# [1] 授業単元： 情報処理\u2160
# [2] 問題文： 乗算合同法で整数乱数を生成.。
# 区間（０．１）の一様にして、１以上、ある特定の整数の乱数を生成する。

>>393
% Prolog

乗算合同法による乱数発生(_初期値,Y,X) :-
　　乗算合同法(16087,_初期値,65535,Y,X).

乗算合同法(A,N,_法,N,X) :-
　　X is N / _法.
乗算合同法(A,N,_法,Y,X) :-
　　乗算合同法演算(A,N,_法,M),
　　乗算合同法(A,M,_法,Y,X).

乗算合同法演算(A,N,_法,M) :-
　　M is (A * N) mod _法.

>>392
>>367 がそれに当たるつもりなのですが。
ただLogが逆順に生成されますね。

>>395さん
成る程、丁寧にありがとうございました

http://pc12.2ch.net/test/read.cgi/tech/1245853701/764
# [1] 授業単元：プログラミング入門
# [2] 問題文(含コード&リンク)：
# 問3：1週間の売り上げ一覧を表示するプログラムを作成せよ。
# 　　　実行例　　野菜の1週間の売り上げた合計数量と合計金額
# 　　　　　　　　　　　　　　　　　　　　　　　　　　　 合計　　合計
# 　　　　　　　　種類　単価　月　火　水　木　金　土　日　数量　　金額
# 　　　　　　　　レタス　150　50　55　60　65　70　75　80　455　　68250
# 　　　　　　　　トマト　 50　20　25　30　35　40　45　50　245　　12250
# 　　　　　　　　もやし　 20　10　15　20　25　30　35　40　175　　3500
# 　　　　　　　　ナスビ　 40　5　 10　15　20　25　30　35　140　　5600

>>397
% Prolog
http://nojiriko.asia/prolog/t397.html

http://pc12.2ch.net/test/read.cgi/tech/1245853701/757
# 【質問テンプレ】
# [1] 授業単元：Ｃ言語
# [2] 問題文(含コード&リンク)： 二次元配列を使って以下のファイルを読み込み、
# 同じように表示しなさい。
# 　【test.dat】
# 　　**　**　**
# 　　**　**　**
# 　　**　**　**

>>399
% Prolog
t399 :-
　　二次元構造の読み込み('test.dat',_二次元構造),
　　member(A,_二次元構造),
　　concat_atom(L,' ',S),
　　write_formatted('%t\n',[S]),
　　fail;
　　true.

二次元構造の読み込み(File,_二次元構造) :-
　　open(File,Input),
　　findall(L,(repeat,get_line(Input,X),(X=end_of_file,!,fail;
　　　　　　　　　　　　　　　　　　　split(X,[' '],L))),_二次元構造),
　　close(Input),!.

>>399 訂正。
% Prolog
t399 :-
　　二次元構造の読み込み('test.dat',_二次元構造),
　　member(L,_二次元構造),
　　concat_atom(L,' ',S),
　　write_formatted('%t\n',[S]),
　　fail;
　　true.

二次元構造の読み込み(File,_二次元構造) :-
　　open(File,Input),
　　findall(L,(repeat,get_line(Input,X),(X=end_of_file,!,fail;
　　　　　　　　　　　　　　　　　　　split(X,[' '],L))),_二次元構造),
　　close(Input),!.

>>399 もうひとつ違っていた。
　　open(File,read,Input), ですね。

http://pc12.2ch.net/test/read.cgi/tech/1245853701/786
# [1] 授業単元： C言語
# [2] 問題文(含コード&リンク)：
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9706.txt
# [3] 環境
# 問題1
# テキストファイルからバイナリファイルの作成
# テキストファイルの内容は {14,17,18,21,23,25,31}と
# {10, 12, 15, 16, 19, 27, 28}の二つ。
# これが書かれているテキストファイルをバイナリファイルにする。
#
# 問題２
# １で作ったバイナリファイルをあわせて
# {10, 12, 14, 15, 16 17, 18, 19 21, 23, 25 27, 28, 31} の
# バイナリファイルの作成

>>403 問題1
% Prolog

t403_1(TextFile1,TextFile2,BinaryFile1,BinaryFile2) :-
t403_1_1(TextFile1,BinaryFile1),
t403_1_1(TextFile2,BinaryFile2).

t403_1_1(TextFile1,BinaryFile1) :-
open(TextFile1,read,Input),
open(BinaryFile1,write,Output,[type(binary)]),
get_line(Input,Line),
split(Line,['{',',','}'],L),
t403_1_2(Output,L),
close(Input),
close(Output).

t403_1_2(Output,L) :-
member(N,L),
put_byte(Output,N),
fail.
t403_1_2(_,_).

>>403 問題1 書き直し
% Prolog

t403_1(TextFile1,TextFile2,BinaryFile1,BinaryFile2) :-
　　t403_1_1(TextFile1,BinaryFile1),
　　t403_1_1(TextFile2,BinaryFile2).

t403_1_1(TextFile1,BinaryFile1) :-
　　open(TextFile1,read,Input),
　　open(BinaryFile1,write,Output,[type(binary)]),
　　get_line(Input,Line),
　　split(Line,['{',',','}'],L),
　　t403_1_2(Output,L),
　　close(Input),
　　close(Output).

t403_1_2(Output,L) :-
　　member(N,L),
　　put_byte(Output,N),
　　fail.
t403_1_2(_,_).

>>403
IO ばかりで正直あまり Haskell では書く気がしないな…

import System.IO
import Control.Exception (bracket)
import qualified Data.ByteString as B

t403_1 :: String -> IO ()
t403_1 fname = do
b <- bracket (openFile fname ReadMode) hClose parse
bracket (openFile fname WriteMode) hClose (flip B.hPut b)
where
parse :: Handle -> IO B.ByteString
parse h = hGetLine h >>= \s -> return $ B.pack $ read ("["++s++"]")

t403_2 :: String -> String -> String -> IO ()
t403_2 fname1 fname2 fname3 = do
b1 <- bracket (openFile fname1 ReadMode) hClose B.hGetContents
b2 <- bracket (openFile fname2 ReadMode) hClose B.hGetContents
bracket (openFile fname3 WriteMode) hClose (flip B.hPut (B.sort (B.concat [b1,b2])))

main = t403_1 "input1" >> t403_1 "input2" >> t403_2 "input1" "input2" "output"

http://pc12.2ch.net/test/read.cgi/tech/1232627790/921
# 正の数を入力し、入力した整数の１と
# その数を除く約数の和を求めて表示するプログラムを作成しなさい。
# 15の約数は、1,3,5,15なので、1と15を除く約数の和は8となる。
#
# お願いします。

>>407
% Prolog

t407(N,X) :- N1 is N-1,t407(N1,N,X).

t407(1,_,0) :- !.
t407(N1,N,X) :- 0 is N mod N1,!,N2 is N1-1,t407(N2,N,Y),X is N+Y.
t407(N1,N,X) :- N2 is N1-1,t407(N2,N,X).

http://pc12.2ch.net/test/read.cgi/tech/1245853701/797
# [1] C言語を使って計算を簡略化する：
# [2] XY平面上の3点P1(x1,y1)P2(x2,y2)P3(x3,y3)の座標を順に入力した時、
# 3点が同一直線上にあるかどうかを調べて
# 　　結果を表示するプログラムを作成せよ。

>>409
% Prolog

'3点が同一直線上にある'((X1,Y1),(X2,Y2),(X3,Y3)) :-
　　U is (X3-X1) * (Y2-Y1),
　　U is (X2-X1) * (Y3-Y1).

>>407
(defun s (n)
(do ((x 2 (1+ x)) (sum 0))
((>= x n) sum)
(if (= 0 (mod n x))
(setf sum (+ sum x)))))

http://pc12.2ch.net/test/read.cgi/tech/1245853701/822
# 何人かの学生の3教科（数学、国語、英語）の得点を2次元配列を用いて
# 処理するプログラムを作る。
#
# （1）科目別の最高点、最低点を表示する。
# （２）各学生の3教科の平均点を表示する。
# （３）各教科の平均点を表示する。
#
# ただし Ctrl+zが押されるまで次々と整数値を読み込んでいくものとする。

>>412
-- Haskell
import Data.List (transpose)

main = do
conn <- getContents
let grades = map (map read . words) $ lines conn :: [[Int]]
-- (1)
print $ map maximum $ transpose grades
print $ map minimum $ transpose grades
-- (2)
let sums = map sum $ grades
print sums
-- (3)
print $ map ((/ 3) . fromIntegral) sums

>>412
% Prolog
% テーマ findallを使った集約処理

t412(_各科目の最高点,_各科目の最低点,_各学生の3教科の平均点,_各科目の平均点) :-
　　findall([A,B,C],(repeat,read(A),(A=end_of_file,!,fail;read(B),read(C))),Y),
　　findall(AVG,(member(L,Y),findavg(A,member(A,L),AVG)),_各学生の3教科の平均点),
　　行列の転置(Y,Y2),
　　findall((Max,Min),(member(L1,Y2),max(L1,Max),min(L1,Min)),_各科目の最高点と最低点),
　　findall(AVG3,(member(L3,Y2),findavg(A,member(A,L3),AVG3)),_各科目の平均点).

>>414 訂正
% Prolog
% テーマ findallを使った集約処理

t412(_各科目の最高点と最低点,_各学生の3教科の平均点,_各科目の平均点) :-
　　findall([A,B,C],(repeat,read(A),(A=end_of_file,!,fail;read(B),read(C))),Y),
　　findall(AVG,(member(L,Y),findavg(A,member(A,L),AVG)),_各学生の3教科の平均点),
　　行列の転置(Y,Y2),
　　findall((Max,Min),(member(L1,Y2),max(L1,Max),min(L1,Min)),_各科目の最高点と最低点),
　　findall(AVG3,(member(L3,Y2),findavg(A,member(A,L3),AVG3)),_各科目の平均点).

http://pc12.2ch.net/test/read.cgi/tech/1245853701/826
# [1] 授業単元： 宿題
# [2] 問題文(含コード&リンク)： 整数を入力し、奇数か偶数かを判断するプログラム

>>416
% Prolog

t416 :-
　　read(N),
　　奇数・偶数判定(N,X),
　　write_formatted('入力されたのは%tです\n',[X]).

奇数・偶数判定(N,奇数) :- 1 is N mod 2.
奇数・偶数判定(N,偶数) :- 0 is N mod 2.

>>417
% 仕様の中に「整数」を入力し、とありますからinteger/1で検査する必要は
% ありそうですね。

t416 :-
　　read(N),
　　integer(N),
　　奇数・偶数判定(N,X),
　　write_formatted('入力されたのは%tです\n',[X]),!.
t416 :- write('正しい整数が得られませんでした\n').

奇数・偶数判定(N,奇数) :- 1 is N mod 2.
奇数・偶数判定(N,偶数) :- 0 is N mod 2.

http://pc12.2ch.net/test/read.cgi/tech/1245853701/825
# 〔1〕授業単元:Ｃ言語
# 〔2〕問題文:http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9718.txt
# 課題 I
# コマンド引数に自分の姓と名を与え，そのまま表示するプログラムを作成せよ．
# コマンド引数の数が少なかったり多かった場合は，標準エラー出力にエラー分を表示させること．
# 課題 II
# コマンド引数に任意の個数の整数を与え，その和を表示するプログラムを作成せよ．
# コマンド引数の数が少なかった場合は，標準エラー出力にエラー分を表示させること．

# また，コマンド引数に整数以外が与えられた場合にも，標準エラー出力にエラー分を表示させること．

>>419
% Prolog

t419_1 :- user_parameters(L),split(L,[','],L1),length(L1,2),write_formatted('%t %t\n',L1),!.
t419_1 :- tell(user_error),write(引数エラー),told.
t419_2 :-
　　user_parameters(L),
　　split(L,[','],L1),
　　length(L1,Len),
　　引数長さ検査(Len),
　　引数のすべてが整数(L1),
　　sum(L1,Sum),
　　write_formatted('引数に与えられた整数の合計は%tです\n',[Sum]).

引数の長さ検査(Len) :- Len > 0,!.
引数の長さ検査(Len) :- Len < 1,tell(user_error),write('引数がありません\n'),told,!,fail.

引数のすべてが整数([]) :- !.
引数のすべてが整数([N|R]) :- integer(N),引数のすべてが整数(R).
引数のすべてが整数([A|R]) :- tell(user_error),write('引数に整数でない%tがあります\n',[A]),told,!,fail.

sum([],0).
sum([N|R],X) :- sum(R,Y),X is N + Y.

http://pc12.2ch.net/test/read.cgi/tech/1245853701/878
# [1] 授業単元：プログラミング言語
# [2] 問題文(含コード&リンク)：
# char型配列xに格納された文字列を一文字ごとに空白を開けて逆順に出力する関数
# reverse_array(char[])を以下のように出力されるよう作成せよ。
#
# 処理前：Tokyo
# 関数reverse_array（）を呼び出しました
# 処理後:"o y k o T"

>>421
% Prolog

t421(_文字ならび,_一文字ごとに空白を開けた逆順ならび) :-
　　t421(_文字ならび,[],_一文字ごとに空白を開けた逆順ならび).

t421([A],X,[A|X]) :- !.
t421([A|R1],L,X) :- t421(R1,[A,' '|R1],X).

http://pc12.2ch.net/test/read.cgi/tech/1232627790/932
# 【　課題　】ボウリングのスコアを付けるプログラムを作成せよ。
# 各投球ごとの倒れたピン数を入力し、スコア一覧を出力。
# 【　形態　】1. Javaアプリケーション(main()で開始)
# 【　GUI　 】4. 制限なし
# 【　期限　】本日、7/10　15:00
# 【　Ver　 】Eclipse Version: 3.4.2
# 【　補足　】１つのメソッド１０行以内、引数・戻り値を持つメソッド最低３つ作成のこと。

>>423 (バッチ処理版)
% Prolog
http://nojiriko.asia/prolog/t423.html

http://pc12.2ch.net/test/read.cgi/tech/1245853701/825
# 〔1〕授業単元:Ｃ言語
# 〔2〕問題文:http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9718.txt
# 課題�V
# n から m までの整数の和を求めるプログラムを作成せよ．(n ≦ m)
# 再帰呼び出しを行う関数 sum を作成して問題を解くこと．
# 関数 sum は，引数を n, m とし，n から m までの和を返すもとのとする．

>>425
% Prolog

'n から m までの整数の和を求める'(N,N,N) :- !.
'n から m までの整数の和を求める'(N,M,_和) :-
　　N < M,
　　N2 is N + 1,
　　'n から m までの整数の和を求める'(N2,M,_和_2),
　　_和 is N + _和_2.

(defun sum (n m) (if (= n m) n (+ n (sum (1+ n) m))))

>>425

sum(N,M,Sum) :-
　　integer_to_varlist(N,L1),
　　integer_to_varlist(M,L2),
　　integer_to_varlist(Sum,L3),
　　sum_1(L1,L2,L3),
　　integer_to_varlist(N,L1),
　　integer_to_varlist(M,L2),
　　integer_to_varlist(Sum,L3).

sum_l(L,L,L) :- not(var(L)).
sum_l(L1,L2,X) :- append(L1,Z,X),sum_l([_|L1],L2,Z).

integer_to_varlist(N,L) :- integer(N),list(L),length(L,N).
integer_to_varlist(N,L) :- integer(N),var(L),length(L,N).
integer_to_varlist(N,L) :- var(N),list(L),length(L,N).
integer_to_varlist(N,L) :- var(N),var(L).

>>426 さすがに冗長かな。

sum(N,M,Sum) :-
　　integer_to_varlist(N,L1),
　　integer_to_varlist(M,L2),
　　integer_to_varlist(Sum,L3),
　　sum_1(L1,L2,L3),
　　integer_to_varlist(N,L1),
　　integer_to_varlist(M,L2),
　　integer_to_varlist(Sum,L3).

sum_l(L,L,L) :- not(var(L)).
sum_l(L1,L2,X) :- append(L1,Z,X),sum_l([_|L1],L2,Z).

integer_to_varlist(N,L) :- var(N),var(L).
integer_to_varlist(N,L) :- not((var(N),var(L))),length(L,N).

>>429

integer_to_varlist(N,L) :- var(N),var(L).
integer_to_varlist(A,A) :- not(var(A)),A=[].
integer_to_varlist(L1,L2) :-
　　not(var(L1)),
　　not(var(L2)),
　　L1=[N|R1],
　　L2=[L|R2],
　　integer_to_varlist(N,L),
　　integer_to_varlist(R1,R2).
integer_to_varlist(N,L) :- not((var(N),var(L))),length(L,N).

integer_to_varlist/2は複雑になったがこれはユーティリティだから
構わない。これで

sum(N,M,Sum) :-
　　integer_to_varlist([N,M,Sum],[L1,L2,L3]),
　　sum_l(L1,L2,L3),
　　integer_to_varlist([N,M,Sum],[L1,L2,L3]).

とすっきりする。

>>430
?- sum(N,M,55).
N = 55,
M = 55;
N = 1,
M = 10;
N = 9,
M = 13;
N = 27,
M = 28;
no.
?-

http://pc12.2ch.net/test/read.cgi/tech/1245853701/901
# [1] 授業単元： C言語プログラミング演習
# [2] 問題文(含コード&リンク)： プログラムを実行すると
# 行列1:
# 1,2,3
# 4,5,6
# 7,8,9
# 行列2:
# 3,4,5
# 6,7,8
# 9,10,11
# と表示する。最後に行列１と行列２の積を計算し、以下のように表示
# するプログラム。
# [行列１と行列２の積は
# ?,?,?
# ?,?,?
# ?,?,?]

>>432
% Prolog
t432 :-
　　_行列1 = [[1,2,3],[4,5,6],[7,8,9]],
　　_行列2 = [[3,4,5],[6,7,8],[9,10,11]],
　　write('行列1:\n'),行列表示(_行列1),
　　write('行列2:\n'),行列表示(_行列2),
　　行列の積(_行列1,_行列2,_行列3),
　　write('行列1と行列2の積は\n'),行列表示(_行列3).

行列表示([]).
行列表示([_行|R]) :- concat_atom(_行,',',[_表示文字列]),write_formatted('%t\n',[_表示文字列]),行列表示(R).

行列の積(L1,L2,X) :- 行列の転置(L2,L3),行列の積の一(L1,L3,X).

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

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

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

行列の転置([],[],[]) :- !.
行列の転置([[A|R]|R1],[A|R2],[R|R3]) :- 行列の転置(R1,R2,R3) .

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

http://pc12.2ch.net/test/read.cgi/tech/1245853701/916
# 【質問テンプレ】
# [1] 授業単元：情報基礎B
# [2] 問題文(含コード&リンク)：(1)　平均、標準偏差
# (2)　得点の高い順の点数のリスト

>>434
% Prolog

t434 :-
　　'10人分の試験の点数を読み取る'(L),
　　平均(L,_平均),標準偏差(L,_標準偏差),
　　write_formatted('平均 : %t\n標準偏差 : %t\n',[_平均,_標準偏差]).

平均(L,M) :- length(L,N),平均(L,N,0.0,M).

平均([],N,S,M) :- M is S / N,!.
平均([A|R],N,S,M) :- S1 is S + A,平均(R,N,S1,M).

標準偏差(L,V) :- length(L,N),平均(L,M),標準偏差(L,N,M,0.0,V).

標準偏差([],N,M,S,V) :- V is sqrt(S / (N - 1)),!.
標準偏差([A|R],N,M,S,V) :- S1 is (A - M) ^ 2,S2 is S + S1,標準偏差(R,N,M,S2,V).

'10人分の試験の点数を読み取る'(L) :- '10人分の試験の点数を読み取る'(1,L). !.

'10人分の試験の点数を読み取る'(11,[]) :- !.
'10人分の試験の点数を読み取る'(M,[I|R]) :-
　　write_formatted(' %t: ',[M]),
　　get_line(Atom),
　　atom_to_term(Atom,I,_),
　　M2 is M + 1,
　　'10人分の試験の点数を読み取る'(M2,R).

http://pc12.2ch.net/test/read.cgi/tech/1245853701/922
# [1] 授業単元：プログラミング入門
# [2] 問題文(含コード&リンク)：
# if文を使って、月数に応じてコメントを表示するプログラム（1月ならばwinter、
# 3月ならspringといった具合に）を作る。
# 月は1月\uff5e12月までなので、13月以上の数値を打ち込んだ場合はerrorと表示させること。

# [1] 授業単元：プログラミング入門
# [2] 問題文(含コード&リンク)：

たとえば
3481
という数字（４桁／０含む）が与えられたとき
0 = 3 + 4 - 8 + 1
1 = 3 + 4 - 8 * -1
2 = -(3 + 4 - 8 - 1)
3 = 3 * 4 - 8 - 1
4 = (3 / (4 + 8))^-1
...
のように加減乗除のみで整数を順に造っていってください

x^y は加減乗算ではないよ。

4 = (4 + 8) / (3 * 1)

http://pc12.2ch.net/test/read.cgi/tech/1245853701/929
# [1] 授業単元： C言語
# [2] 問題文(含コード&リンク)：
# 主語、目的語、述部が入ったデータファイルを読み込み、それらをランダムに
# 組み合わせて生成した短文を２０個ファイルに出力するプログラムの作成。
# 短文の構文は必ず、「（主語）は、（目的語）（述部）。」となるようにする。
#
# 出力例：俺は、カレーが大好きだ。
#
# データファイルは以下を使用すること。
# 主語：　俺　私　あなた　彼　彼女　先生　犬のポチ　猫のタマ　ライオン
#　その人　政治家　ネズミ　　の１２個
# 目的語：　カレー　ご飯　肉　授業　男　女　すごいもの　アレ　アンパン
#　お金　　の１０個
# 述部：　が大好きだ　が大嫌いだ　を作った　をなくした　が欲しい
#　に全力を尽くす　を新しいものに交換した　？なにそれ美味いの？
#　について深く考えた　を捨てた　に塩をふりかけた　の１１個

>>440
% Prolog (1/2)
t440 :-
　　get_lines('t440_1.txt',Lines),
　　構造定義(Lines),
　　findall(_文,文(_文,[]),_文集),
　　'20文を選択して表示'(_文集).

'20文を選択して表示'(_文集) :-
　　length(_文集,Len),
　　Div is Len // 20,
　　tell('t440_2.txt'),
　　for(1,N,20),
　　Nth is N * Div,
　　list_nth(Nth,_文集,_選択文),
　　write_formatted('%t%t%t%t%t\n',[_選択文]),
　　N = 20,
　　told.

>>440
% Prolog (2/2)

文(_文,R) :- 主語(_文,R1),後置部(R2,R3),目的語(R2,R3),述部(R3,R4),句点(R4,R).

後置部(L,R) :- 後置詞(L,R1),読点(R1,R).
後置詞(['は'|R],R).
読点(['、'|R],R).
句点(['。'|R],R).

構造定義(Lines) :-
　　member(_行,Lines),
　　split(_行,['：',':','　',' '],[F|L2]),
　　append(L3,[_],L2),
　　要素定義(F,L3),
　　fail;
　　true.

要素定義(F,L) :-
　　member(A,L),
　　P =.. [F,[A|R],R],
　　assertz(P),
　　fail;
　　true.

>>440 訂正 write_formattedの表現に誤りがありました。

'20文を選択して表示'(_文集) :-
　　length(_文集,Len),
　　Div is Len // 20,
　　tell('t440_2.txt'),
　　for(1,N,20),
　　Nth is N * Div,
　　list_nth(Nth,_文集,_選択文),
　　concat_atom(_選択文,_選択文文字列),
　　write_formatted('%t\n',[_選択文文字列]),
　　N = 20,
　　told.

>>440 ではなくて >>442 の訂正でした。

>>440
% Prolog ここに書き直しました。
http://nojiriko.asia/prolog/t440.html

>>436
% Prolog
http://nojiriko.asia/prolog/t436.html

http://pc12.2ch.net/test/read.cgi/tech/1245853701/923
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：下に示すように，最初に整数を読み込み，
# その後，その個数だけ整数を読み込んでいき，そ
# の合計と平均を表示するプログラムを作成せよ。
# 整数は何個ですか: 6
# No.1 : 65
# No.2 : 23
# No.3 : 47
# No.4 : 9
# No.5 : 153
# No.6 : 777
# 合計値: 1074
# 平均値: 179.00

>>447
% Prolog

t447 :-
　　write('整数は何個ですか: '),
　　get_line(Line),
　　atom_to_term(Line,N,_),
　　整数をn個読み込む(1,N,L),
　　sum(L,Sum),
　　avg(L,Avg),
　　write('合計値: %t\n平均値: %t\n',[Sum,Avg]).

整数をn個読み込む(M,N,[]) :- M > N,!.
整数をn個読み込む(M,N,[_整数|R]) :-
　　write_formatted('No.%t: ',[M]),
　　get_line(Line),
　　atom_to_term(Line,_整数,_),
　　M2 is M + 1,
　　整数をn個読み込む(M2,N,R).

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

avg(L,X) :- length(L,Len),Len > 0,sum(L,Sum),X is Sum / Len.

http://pc12.2ch.net/test/read.cgi/tech/1245853701/946
# 【質問テンプレ】
# [1] 授業単元 C言語
# [2] 問題文(含コード&リンク)：
# 二つのバイナリファイルの中身を比較して等しいか、等しくないかを
# 比較して結果を返す関数を作る

>>449
% Prolog

二つのバイナリファイルの中身を比較(_ファイル1,_ファイル2,_診断) :-
open(ファイル1,read,_ストリーム1,[type(binary)]),
　　open(ファイル2,read,_ストリーム2,[type(binary)]),
　　get_byte(_ストリーム1,A),
　　get_byte(_ストリーム2,B),
　　二つのバイナリファイルの中身を比較(_ストリーム1,_ストリーム2,A,B,_診断),
　　close(_ストリーム1),
　　close(_ストリーム2).

二つのバイナリファイルの中身を比較(_,_,-1,-1,等しい) :- !.
二つのバイナリファイルの中身を比較(_,_,A,B,等しくない) :- not(A=B),!.
二つのバイナリファイルの中身を比較(_ストリーム1,_ストリーム2,A,A,_診断) :-
　　get_byte(_ストリーム1,C),
　　get_byte(_ストリーム2,D),
　　二つのバイナリファイルの中身を比較(_ストリーム1,_ストリーム2,C,D,_診断).

http://pc12.2ch.net/test/read.cgi/tech/1245853701/424
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9644.txtにある
# 50コのデータを利用して
# 最大値と最小値を取り出すプログラムを以下の1,2の関数を用いて2つ作れ
# 1 return文を用いたケース
# 2 グローバル変数を用いたケース
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9644.txtの
# ポインタは使用不可です
#ファイル名はseiseki.txtでお願いします
# 70 56 66 45 88
# 66 85 68 55 73
# 55 65 53 67 55
# 85 72 76 58 65
# 92 70 45 73 55
# 56 57 52 62 82
# 72 62 33 85 95
# 46 95 48 72 34
# 83 42 88 92 56
# 68 65 91 82 66

>>451
% Prolog

整数要素ファイルの最小値・最大値(_ファイル,_最小値,_最大値) :-
　　get_chars(_ファイル,Chars),
　　concat_atom(Chars,Atom),
　　split(Atom,['\n',' '],L),
　　ならびの中の最小値・最大値(L,A,A,_最小値,_最大値).

ならびの中の最小値・最大値([],X,Y,X,Y) :- !.
ならびの中の最小値・最大値([A|R],Min,Max,_最小値,_最大値) :-
　　A < Min,
　　ならびの中の最小値・最大値(R,A,Max,_最小値,_最大値).
ならびの中の最小値・最大値([A|R],Min,Max,_最小値,_最大値) :-
　　A > Max,
　　ならびの中の最小値・最大値(R,Min,A,_最小値,_最大値).
ならびの中の最小値・最大値([_|R],Min,Max,_最小値,_最大値) :-
　　ならびの中の最小値・最大値(R,Min,Max,_最小値,_最大値).

>>452 また間違い。
整数要素ファイルの最小値・最大値(_ファイル,_最小値,_最大値) :-
　　get_chars(_ファイル,Chars),
　　concat_atom(Chars,Atom),
　　split(Atom,['\n',' '],[A|L]),
　　ならびの中の最小値・最大値(L,A,A,_最小値,_最大値).

>>447
StateT の練習

-- Haskell

import Control.Monad.State
import Data.Function (on)
import System.IO (hFlush, stdout)

t447 :: Int -> IO (Int,Double)
t447 m = evalStateT (t447' m 1) []
where
t447' :: Int -> Int -> StateT [Int] IO (Int,Double)
t447' m i = do
ls <- get
liftIO $ (putStr $ "No." ++ show i ++ ": ") >> hFlush stdout
s <- liftIO $ getLine
modify (++[read s])
if i == m then get >>= return . sumAndAverage else t447' m (i+1)

sumAndAverage :: [Int] -> (Int,Double)
sumAndAverage = f . foldl (\(s,l) x -> (s+x,l+1)) (0,0)
where
f :: (Int,Int) -> (Int,Double)
f (s,l) = (s, on (/) fromIntegral s l)

main = t447 6 >>= putStrLn . toString
where
toString :: (Int,Double) -> String
toString (s,a) = "sum: "++show s++"\naverage: "++show a

http://pc12.2ch.net/test/read.cgi/tech/1245853701/950
# 【質問テンプレ】
# [1] 授業単元： C言語
# [2] 問題文(含コード&リンク)：
# 下に示すように，要素数が7 でint 型の配列に読み込んだ全要素を逆順に
# 並べ替えるプログラムを作成せよ．
#
# vx[ 0] : 58
# vx[ 1] : 32
# vx[ 2] : 17
# vx[ 3] : 46
# vx[ 4] : 22
# vx[ 5] : 73
# vx[ 6] : 69
# vx[ 0] = 69
# vx[ 1] = 73
# vx[ 2] = 22
# vx[ 3] = 46
# vx[ 4] = 17
# vx[ 5] = 32
# vx[ 6] = 58

>>455
% Prolog
% ここでは定義された単位節の一引数だけソートして差し替えると問題としてみよう。
http://nojiriko.asia/prolog/t455.html

http://pc12.2ch.net/test/read.cgi/tech/1245853701/957
# [1] 授業単元： C言語
# [2] 問題文(含コード&リンク)：
# １００個の乱数を発生させ最大値、最小値、平均を求める
# また最大値、最小値それぞれ何番目にあるか答えよ

>>457
% Prolog
http://nojiriko.asia/prolog/t457.html

>>457
-- Haskell

import System.Random (getStdRandom, random)
import Control.Monad (replicateM)
import Data.List (maximumBy, minimumBy)
import Data.Function (on)

main = do
rands <- replicateM 100 (getStdRandom random :: IO Int)
let i = zip [1..] rands
putStrLn $ "(index, maximum) = " ++ show (maximumBy (compare `on` snd) i)
putStrLn $ "(index, minimum) = " ++ show (minimumBy (compare `on` snd) i)
putStrLn $ "average = " ++ show (on (/) fromIntegral (sum rands) 100)

http://pc12.2ch.net/test/read.cgi/tech/1245853701/960
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)：
# 下に示すように，要素数が5 でint 型の配列に、5 人の学生の身長を読み込んで、その
平均
# 身長を求めるプログラムを作成せよ。
# 身長を入力してください
# 1 番: 178
# 2 番: 175
# 3 番: 165
# 4 番: 179
# 5 番: 172
# 平均身長: 173.8

>>460
% Prolog
% http://nojiriko.asia/prolog/t460.html

'5 人の学生の身長を読み込んで、その平均身長を求める' :-
　　'5 人の学生の身長を読み込んで、'(_身長ならび),
　　sum(_身長ならび,_合計),
　　_平均身長 is _合計 / 5,
　　write_formatted('平均身長: %t\n',[_平均身長]),

'5 人の学生の身長を読み込んで、'(_身長ならび) :-
　　findall(_身長,(for(1,N番目,5),身長を得る(N番目,_身長)),_身長ならび).

身長を得る(N番目,_身長) :-
　　write_formatted('%t 番: ',[N番目]),
　　数値を得る(_身長),
　　_身長 > 0.0,
　　_身長 < 220.0,!.
身長を得る(N番目,_身長) :-
　　write('身長が適切な数値ではありませんでした。再入力が必要です\n'),
　　身長を得る(N番目,_身長).

数値を得る(_数値) :-
　　get_line(_改行までの文字列),
　　atom_to_term(_改行までの文字列,_数値,_),
　　number(_数値).

>>461 入力検査の部分を修正。
'5 人の学生の身長を読み込んで、その平均身長を求める' :-
'5 人の学生の身長を読み込んで、'(_身長ならび),
sum(_身長ならび,_合計),
_平均身長 is _合計 / 5,
write_formatted('平均身長: %t\n',[_平均身長]),

'5 人の学生の身長を読み込んで、'(_身長ならび) :-
findall(_身長,(for(1,N番目,5),身長を得る(N番目,_身長)),_身長ならび).

身長を得る(N番目,_身長) :-
write_formatted('%t 番: ',[N番目]),
数値を得る(_身長),
身長として適切な数値であるか検査する(_身長),!.
身長を得る(N番目,_身長) :-
身長を得る(N番目,_身長).

身長として適切な数値であるか検査する(_身長) :- _身長 > 0.0,_身長 < 230.0,!.
身長として適切な数値であるか検査する(_身長) :-
write_formatted('%tは身長として適切な数値ではありませんでした。再入力が必要
です\n',[_身長]),fail.

数値を得る(_数値) :-
get_line(_改行までの文字列),
atom_to_term(_改行までの文字列,_数値,_),
　　number(_数値).

>>462 もう一度書き直し。すみません。
'5 人の学生の身長を読み込んで、その平均身長を求める' :-
　　'5 人の学生の身長を読み込んで、'(_身長ならび),
　　sum(_身長ならび,_合計),
　　_平均身長 is _合計 / 5,
　　write_formatted('平均身長: %t\n',[_平均身長]),

'5 人の学生の身長を読み込んで、'(_身長ならび) :-
　　findall(_身長,(for(1,N番目,5),身長を得る(N番目,_身長)),_身長ならび).

身長を得る(N番目,_身長) :-
　　write_formatted('%t 番: ',[N番目]),
　　数値を得る(_身長),
　　身長として適切な数値であるか検査する(_身長),!.
身長を得る(N番目,_身長) :-
　　身長を得る(N番目,_身長).

身長として適切な数値であるか検査する(_身長) :- _身長 > 0.0,_身長 < 230.0,!.
身長として適切な数値であるか検査する(_身長) :-
　　write_formatted('%tは身長として適切な数値ではありませんでした。再入力が必要
です\n',[_身長]),fail.

数値を得る(_数値) :-
　　get_line(_改行までの文字列),
　　atom_to_term(_改行までの文字列,_数値,_),
　　number(_数値).

>>463
コピペの際に誤って改行してしまいましたが、Prologでは

　　write_formatted('%tは身長として適切な数値ではありませんでした。再入力が必要
です\n',[_身長]),fail.

のように文字列のなかで改行すると構文エラーとなります。

http://pc12.2ch.net/test/read.cgi/tech/1245853701/949
# 【質問テンプレ】
# [1] 授業単元： C言語
# [2] 問題文(含コード&リンク)：
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9733.txt
# 課題：
# ・キーボードから正整数を入力し、その逆数を正確に計算し、ディスプレイに
# 表示させる。（循環小数である場合には、循環部分が分かるように表示を工夫する。）
# 内容：
# n（nは任意の正整数）の逆数を正確に計算し、計算過程で出た商、余りを逐次
# 配列に入れていく。計算途中で同じ商、余りが出たら循環小数と判定でき、
# 0が出たら割り切れると判定できる。

>>465
(do ((x (read) (read)) (a nil))
((or (not (integerp x)) (<= x 0)))
(setf a (cons x a))
(if (= x 1)
(format t "~A ~S~%" x a)
(format t "1/~A ~S~%" x a)))

どうぞ

>>465
% Prolog
http://nojiriko.asia/prolog/t465.html

>>465
% Prolog
逆数を正確に計算(_最大桁,_正整数,_逆数表示) :-
　　逆数表示(_最大桁,_正整数,[[0,1]],_逆数表示),!.

逆数表示(N,_,Y,X) :- N < 0,逆数表示(Y,[],X),!.
逆数表示(N,_整数,[[D,0]|Y],X) :- 逆数表示([[D,0]|Y],[],X),!.
逆数表示(N,_整数,[[_商,_剰余]|Y],X) :-
　　_商2 is _剰余 // _整数,
　　_剰余2 is (_剰余 mod _整数) * 10,
　　append(L1,[[_商2,_剰余2]|L2],[[_商,_剰余]|Y]),
　　append([[']...',_]|L1],[[_商2,_剰余2],['[',_]|L2],Z),
　　逆数表示(Z,[],X),!.
逆数表示(N,_整数,[[_商,_剰余]|Y],X) :-
　　_整数 > _剰余,
　　_剰余2 is _剰余 * 10,
　　N2 is N - 1,
　　逆数表示(N2,_整数,[[0,_剰余2],[_商,_剰余]|Y],X),!.
逆数表示(N,_整数,[[_商,_剰余]|Y],X) :-
　　_整数 < _剰余,
　　_商2 is _剰余 // _整数,
　　_剰余2 is (_剰余 mod _整数) * 10,
　　N2 is N - 1,
　　逆数表示(N2,_整数,[[_商2,_剰余2],[_商,_剰余]|Y],X),!.

逆数表示([],[_|X],S) :- concat_atom(['0','.'|X],S),!.
逆数表示([[A|_]|R1],Y,S) :- 逆数表示(R1,[A|Y],S).

http://pc12.2ch.net/test/read.cgi/tech/1200175247/550
# [1] 授業単元： Ruby演習 [2] 問題文、http://kansai2channeler.hp.infoseek.co.jp/
c i-bin/joyful/img/9426.txt
# Rubyの問題がわかりません 助けてください
#
# （１）曜日を表す英語と日本語との対応を表すハッシュwdayを定義しなさい
#
# p wday["sunday"] #=> "日曜日"
# p wday["monday"] #=> "月曜日"
# p wday["saturday"] #=> "土曜日"
#
# (2)ハッシュのメソッドを使って（１）のハッシュwdayのペアの数を数えなさい
#
# （３）eachメソッドと（１）のハッシュwdayを使って以下の文字列を出力させてくださ
い。
# 「sunday」は日曜日のことです。
# 「monday」は月曜日のことです。
#
# (4)ハッシュには配列の%wのようなものがありません。そこで、空白とタブと改行（正
規表現で定義するなら「／\uff3cs+／」）で区切られた文字列をハッシュに変換するメソ
ッドstr2hashを定義してください。
#
# p str2hash("bule 青 white 白\uff3cnred赤");
# #=> {"bule"=>"青", "white"=>"白", "red"=>"赤"}

http://pc12.2ch.net/test/read.cgi/tech/1232627790/958
# 【　課題　】テキストファイルから文字列5行を読み込み、別のテキストへ縦書きで書き出す
# 【　形態　】1. Javaアプリケーション(main()で開始)
# 【　期限　】7/14 am6:00
# 【　Ver　 】Eclipse Version: 3.4.2
# 【　補足　】
# あいう
# かきく
# さしす
# 上記のようなテキストファイルを読み込み、
# あかさ
# いきし
# うくす
# のように別のテキストファイルに書き出す感じです。