いろんな言語で宿題スレ

いろんな言語で宿題ス ..

489:デフォルトの名無しさん
09/07/17 03:28:41
>>488
% Prolog

数当てゲーム :-
　　repeat,
　　_a is ramdom mod 10 + 1,
　　write('好きな数字を入力してください '),
　　get_line(Line),
　　atom_to_term(Line,N,_),
　　数当てゲーム診断(_a,N),
　　Line = end_of_file.

数当てゲーム診断(A,A) :-
　　write('あたり！！\n').
数当てゲーム診断(_,B) :-
　　not(integer(B)),
　　write('入力されたのは整数ではありません\n').
数当てゲーム診断(A,N) :-
　　not(A == N),
　　write_formatted('残念乱数は%tです\n',[A]).

490:デフォルトの名無しさん
09/07/17 07:27:53
>>487
% Prolog
URLﾘﾝｸ(nojiriko.asia)

491:デフォルトの名無しさん
09/07/17 10:30:13
>>486
ハノイの塔の課題をその仕様通り自然に定義していったらどうなるか？
興味がありますが、私が何か書き込めるまでにはもう少し時間が必要なので、
最小サンプルで確認することによって、ディスクの大小順序問題を
スキップしてしまっている最もよく知られたアルゴリズムによる
プログラム例を URLﾘﾝｸ(nojiriko.asia) に示します。

問題を直感的に理解するには
「Prologプログラミング入門」安部憲広著共立出版刊の29頁図3.3
がよいと思います。

492:デフォルトの名無しさん
09/07/17 12:40:40
ｽﾚﾘﾝｸ(tech板:970番)
# 配列に関する基本問題
# フィールド　int型の配列numberのみ
# コンストラクタ　引数で与えられたScannerから整数を順次読み取る、
# 最初に読み取った整数を配列サイズとみなし、int型の配列を生成し
# numberで参照する
# その後整数を読み取ってnumber[0],number[1]、・・・・と順に代入していき、
# 配列サイズ分だけ読み取る
# number中の全要素,最大値、最小値を表示

493:デフォルトの名無しさん
09/07/17 12:46:04
>>492
% Prolog こういう手続き的なのも可能。

t492 :-
　　get_integer(N),
　　length(L,N),
　　for(1,M,N),
　　get_integer(I),
　　list_nth(M,L,I),
　　M = N,
　　max(L,Max),
　　min(L,Min),
　　write_formatted('全要素 = %t\n最大値 = %t\n最小値 = %t\n',[L,Max,Min]).

get_integer(N) :-
　　repeat,
　　get_line(Line),
　　atom_to_term(Line,N,_),
　　integer(N).

494:デフォルトの名無しさん
09/07/17 14:33:32
ｽﾚﾘﾝｸ(tech板:900番)
# ３つの自然数の合計が１０になるような組み合わせを
# すべて列挙するプログラムを書け
# １＋１＋８と１＋８＋１のように並び順が異なるだけのものは
# 同一と考え、重複して出力しないようにすることが望ましい

495:デフォルトの名無しさん
09/07/17 14:37:18
>>494
% Prolog

t494 :-
　　重複組合せ([1,2,3,4,5,6,7,8,9],3,[A,B,C]),
　　10 is A + B + C,
　　write_formatted('%t + %t + %t\n',[A,B,C]),
　　fail.
t494.

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

496:デフォルトの名無しさん
09/07/17 14:59:38
ｽﾚﾘﾝｸ(tech板:902番)
# 個数Nが与えられたとき
# N個の自然数の合計が１０になるような組み合わせをすべて列挙する
# プログラムを書け

497:デフォルトの名無しさん
09/07/17 15:05:56
>>496
% Prolog

t496(N) :-
　　重複組合せ([1,2,3,4,5,6,7,8,9,10],N,L),
sum(L,10),
concat_atom(L,' + ',S),
write_formatted('%t\n',[S]),
fail.
t496(_).

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

498:デフォルトの名無しさん
09/07/17 15:07:10
>>496 書き直し。
% Prolog

t496(N) :-
　　重複組合せ([1,2,3,4,5,6,7,8,9,10],N,L),
　　sum(L,10),
　　concat_atom(L,' + ',S),
　　write_formatted('%t\n',[S]),
　　fail.
t496(_).

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

499:デフォルトの名無しさん
09/07/17 21:28:54
>>488
import System.Random (getStdRandom, randomR)
import qualified System.IO.UTF8 as U

main = do
a <- getStdRandom $ randomR (0,10) :: IO Int
c <- getLine
U.putStrLn $ if (read c) == a then "あたり！！" else "残念乱数は" ++ show a ++ "です"

500:デフォルトの名無しさん
09/07/17 22:02:58
>>487
import Control.Monad (guard)
import Data.List (permutations)

t487 :: Int -> Int -> [[Int]]
t487 a b = do
xs@[c,d,e,f,g,h,i] <- permutations $ filter (\x -> and [x /= a, x /= b]) [1..9]
let n = a+b+c
guard $ and [d+e+f == n, g+h+i == n, a+d+g == n, b+e+h == n, c+f+i == n, a+e+i == n, c+e+g == n]
return (a:b:xs)

main = let a = t487 8 1 in if null a then putStrLn "Impossible" else mapM_ printer a
where
printer :: [Int] -> IO ()
printer [] = return ()
printer (a:b:c:xs) = print [a,b,c] >> printer xs

501:デフォルトの名無しさん
09/07/17 22:26:05
>>492
import Control.Monad (foldM)

t492 :: Int -> IO (Int,Int)
t492 n = foldM f (maxBound :: Int,minBound :: Int) [1..n]
where
f (a,b) _ = do
s <- getLine
let n = read s
return (min a n, max b n)

main = getLine >>= t492 . read >>= print

502:デフォルトの名無しさん
09/07/17 22:53:38
ｽﾚﾘﾝｸ(tech板:175番)
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
#
# 下に示すように，キーボードから二つの文字列を読み込み，どちらの文字列が
# 何文字長いか
# を表示するプログラムを作成せよ．なお，二つの文字列が同じ長さならば，
# 「二つの文字列は同じ長さです．」と表示させること．
#
# 文字列A : Good
# 文字列B : Morning
# 文字列B の方が3 文字長いです．

503:デフォルトの名無しさん
09/07/17 22:55:55
>>502
% Prolog URLﾘﾝｸ(nojiriko.asia)

入力文字列長の比較 :-
　　write('文字列A ? '),
　　get_line(A),
　　write('文字列B ? '),
　　get_line(B),
　　名前付き文字列長さの診断(文字列A,A,文字列B,B,_診断),
　　write_formatted('%t\n',[_診断).

名前付き文字列長の診断(_名前1,_文字列1,_名前2,_文字列2,_診断) :-
　　atom_chars(_文字列1,L1),
　　atom_chars(_文字列2,L2),
　　length(L1,_長さ1),
　　length(L2,_長さ2),
　　_長さの差 is _長さ1 - _長さ2
　　名前付き文字列長の診断の二(_名前1,_名前2,_長さの差,_診断),!.

名前付き文字列長の診断の二(_,_,0,'二つの文字列は同じです。') :- !.
名前付き文字列長の診断の二(_名前1,_名前2,_長さの差,_診断) :-
　　_長さの差 > 0,
　　concat_atom([_名前1,の方が,_長さの差,文字長いです。],_診断),!.
名前付き文字列長の診断の二(_名前1,_名前2,_長さの差,_診断) :-
　　_長さの差 <　0,
　　_長さの差1 is abs(_長さの差),
　　concat_atom([_名前2,の方が,_長さの差1,文字長いです。],_診断).

504:503
09/07/17 23:01:55
>>503 訂正

　　名前付き文字列長さの診断(文字列A,A,文字列B,B,_診断),
->
　　名前付き文字列長の診断(文字列A,A,文字列B,B,_診断),

505:503
09/07/17 23:32:27
ｽﾚﾘﾝｸ(tech板:973番)
# 課題　URLﾘﾝｸ(uploaders.ddo.jp)
#
# 【　形態　】1. Javaアプリケーション(main()で開始)
# 【　GUI　】制限なし
# 【　期限　】7月21日
# 【　Ver　】1.6.0_11
#
# zipフォルダに詳細ファイルを入れました

506:デフォルトの名無しさん
09/07/17 23:35:14
>>505
% Prolog URLﾘﾝｸ(nojiriko.asia)

rev_str(X,Y) :- reverse_atom(X,Y).

reverse_atom(X,Y) :-
　　atom_chars(X,L),
　　reverse(L,L2),
　　atom_chars(Y,L2).

507:デフォルトの名無しさん
09/07/17 23:49:23
>>494
>>496

import Data.List (sort)

h :: (Ord a) => Int -> [a] -> [[a]]
h 1 xs = map (\ls -> [ls]) xs
h n xs = concat $ map (\x -> map (\ys -> x:ys) (h (n-1) (filter (>= x) xs))) xs

t496 :: Int -> [[Int]]
t496 n = filter ((==10) . sum) $ h n [1..9]

main = print $ t496 3

508:デフォルトの名無しさん
09/07/18 00:05:10
>>502
import System.IO (hFlush, stdout)
import qualified System.IO.UTF8 as U
main = do
U.putStr "文字列A: " >> hFlush stdout
a <- getLine
U.putStr "文字列B: " >> hFlush stdout
b <- getLine
let n = length a
let m = length b
U.putStrLn $ case compare n m of
GT -> "文字列Aの方が" ++ show (n-m) ++ "文字長いです"
LT -> "文字列Bの方が" ++ show (m-n) ++ "文字長いです"
EQ -> "二つの文字列は同じ長さです"

509:デフォルトの名無しさん
09/07/18 00:21:54
ｽﾚﾘﾝｸ(tech板:904番)
# [課題]
# ・23本のマッチ棒からなる山があり，2人のプレーヤが山から交互にマッチ棒を
# 取り除く
# ・一度に取ることのできるマッチ棒は1から3本
# ・山を空にしたプレーヤが勝ち
# 人間2人でこのゲームを行なうプログラムを作成せよ．
#
# プログラムでは各プレーヤの手がルールに反していないかどうかのチェックと，
# 勝負がついたかどうかのチェックを行なうこと。
# また，最初に山にある本数と，各回に取ることができる最大の本数をプログラムの
# 最初に変数にセットしておき，そこを変えるだけで本数の変化に対応できるような
# プログラムにすること。

510:デフォルトの名無しさん
09/07/18 00:24:37
>>509
% Prolog
URLﾘﾝｸ(nojiriko.asia)

511:デフォルトの名無しさん
09/07/18 00:42:42
>>491さん
暇になったらお願いします

512:493
09/07/18 05:40:06
>>493 大間違い! これではリストに整数が貯まらない。再帰はしかたない。
t492 :-
　　get_integer(N),
　　length(L,N),
　　t492(L),
　　max(L,Max),
　　min(L,Min),
　　write_formatted('全要素 = %t\n最大値 = %t\n最小値 = %t\n',[L,Max,Min]).

t492([]) :- !.
t492([I|R]) :-
get_integer(I),
t492(R).

get_integer(N) :-
　　repeat,
　　get_line(Line),
　　atom_to_term(Line,N,_),
　　integer(N).

% バックトラックすると値の束縛は解かれてしまうから。

513:デフォルトの名無しさん
09/07/18 17:34:59
これまでの Prolog による回答の索引を作りました。

URLﾘﾝｸ(nojiriko.asia)

514:デフォルトの名無しさん
09/07/18 18:08:40
Prologで盛り上がっているのは、あんた一人だけだよ

515:デフォルトの名無しさん
09/07/18 18:11:20
prolog恐ろしす・・・

516:デフォルトの名無しさん
09/07/18 19:08:20
ｽﾚﾘﾝｸ(tech板:196番)
# [1] 授業単元：プログラミング論
# [2] 問題文：入力ストリームから読み込んだ文字列を、データベースに格納する前に
# スタックに一時的に格納するプログラムを作成する
# このときデータをまとめたデータ文字列を一つずつスタックへプッシュしたり
# ポップしたりする過程が分かるプログラムを作成する。
# なおスタックを実現するライブラリはスタックのための別のヘッダにまとめる
#
# [プログラムの例]
# 入力ストリームから読み込んだデータ文字列をスタックへプッシュしたり
# ポップしたりするたびにデータベースに格納された全データを表示する。

517:デフォルトの名無しさん
09/07/19 05:02:52
>>516
% Prolog URLﾘﾝｸ(nojiriko.asia)
t516(Instream,Stack1,Stack2) :-
　　get_code(Instream,Code),
　　t516(Instream,Code,Stack1,Stack2).

t516(Instream,-1,Stack1,Stack2) :-
　　t516_popall(Stack1,Stack3,[],L),
　　atom_codes(Atom,L),
　　assertz(database(Atom)),!.
t516(Instream,10,Stack1,Stack2) :-
　　t516_popall(Stack1,Stack3,[],Codes),
　　atom_codes(Atom,Codes),
　　assertz(database(Atom)),
　　get_code(Instream,Code),
　　t516(Instream,Code,Stack3),!.
t516(Insteam,A,Stack1,Stack2) :-
　　push(A,stack1,Stack3),
　　get_code(Instream,B),
　　t516(Instream,B,Stack3,Stack2).

t516_popall(Stack,Stack,X,X) :- empty(Stack),!.
t516_popall(Stack1,Stack2,Y,X) :-
　　pop(A,Stack1,Stack3),
　　t516_popall(Stack3,Stack2,[A|Y],X).

empty([]) :- write('stack empty :: []\n\n').

push(A,Stack,[A|Stack]) :- write_formatted('push:%t :: %t --> %t\n',[A,Stack,[A|Stack]]).

pop(A,[A|Stack],Stack) :- write_formatted('pop:Pop :: %t --> %t Pop=%t\n',[[A|Stack],Stack,A]).

518:デフォルトの名無しさん
09/07/19 06:25:56
>>514
チュートリアルの題材を求めるのが狙いなので、他の言語の人の
書き込みを待たずに進めてしまってちょっと申し訳けない。
Prologの場合は、低水準のコードにサイト上でなかなか出会えないと
いうことがあって、そこが初心者にとって辛いところです。
そこらあたりの欠落を些かでも埋められればと書き込んでいます。
繰り返し、いろんな表記法で、できれば螺旋状に発展していければ
おもしろいと思うのですが、間違いの訂正に数レスとられることが
多くて、1000スレまでの間では貧弱なものにしかなりそうもない。
それにしても、「C/C++の宿題片付けます 12*代目」の方々には感謝です。

519:デフォルトの名無しさん
09/07/19 13:34:31
ｽﾚﾘﾝｸ(tech板:213番)
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# 下に示すように，キーボードから文字列を読み込み，その文字列が
# 回文（前から読んでも後ろから読んでも同じ）かどうかを判定するプログラムを
# 作成せよ．なお，入力する文字列は半角の英数字および記号のみと仮定してよい．
#
# 文字列を入力してください: abcba
# 回文です．

520:デフォルトの名無しさん
09/07/19 13:41:43
>>519
% Prolog

回文読み込み :-
　　get_char(C),
　　回文読み込み(C,[],X,X),
　　write('回文です\n').

回文読み込み('\n',X,X,[]).
回文読み込み(C,Y,X,[C|R]) :-
　　get_char(C2),
　　回文読み込み(C2,[C|Y],X,R).

521:デフォルトの名無しさん
09/07/21 03:00:05
連休見なかったらC/C++の宿題片付けますスレが60も進んでしまった　トホホ

522:デフォルトの名無しさん
09/07/21 09:30:44
(labels ((str-input nil
(format t "文字列を入力してください: ")
(read-line)))
(do ((l (str-input) (str-input)))
((= (length l) 0))
(if (equal l (reverse l))
(format t "回文です~%")
(format t "回文ではありません~%"))))

こんな感じです

523:デフォルトの名無しさん
09/07/21 12:23:09
ｽﾚﾘﾝｸ(tech板:292番)
# [1] 授業単元：プログラミングI
# [2] 問題文(含コード&リンク)：
# typedef struct node *Tree;
# typedef struct node{
# int data;
# Tree left_subtree;
# Tree right_subtree;
# }Node;
#
# 2分木の大きさ(節点の個数)を調べて返す関数
# int size(Tree t)を定義せよ

524:デフォルトの名無しさん
09/07/21 12:26:07
ｽﾚﾘﾝｸ(tech板:291番)
# [1] 授業単元：コンピュータリテラシー
# [2] 問題文(含コード&リンク)：問題文と参考は以下です
# 　　URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
# ・試験の過程を記録
# １,番号、得点を入力したあと平均点を計算
# ２,番号順と得点順に並べ替え（ifを使いどちらか選択できるようにする）
# ３,番号、得点、平均との差を出力
# 以上のプログラムを作成

525:デフォルトの名無しさん
09/07/21 12:32:04
>>523
(define (nodenum t)
(cond ((not (pair? t)) 0)
((or (not (pair? (cdr t))) (not (pair? (cddr t)))) "error:not a binary tree")
(else (+ 1 (nodenum (cadr t)) (nodenum (caddr t))))))
(nodenum '(1 leaf leaf)) ;1
(nodenum '(1 'leaf)) ;error
(nodenum '(1 (2 leaf leaf) (3 leaf (4 leaf leaf)))) ;4

526:デフォルトの名無しさん
09/07/21 12:44:29
>>524
(define bt '((1 60) (3 75) (4 100) (2 80)))
(define (average bt) (exact->inexact (/ (fold + 0 (map cadr bt)) (length bt))))
(define (sorter kind bt)
(cond ((eq? kind 'bangou) (sort bt (lambda (x y) (< (car x) (car y)))))
((eq? kind 'tokuten) (sort bt (lambda (x y) (> (cadr x) (cadr y)))))
(else "designate sort kind")))
(define (output bt)
((lambda (ave)
(map (lambda (x)
(print "bangou:" (car x))
(print "tokuten:" (cadr x))
(print "heikin_diff:" (- (cadr x) ave))
(newline)) bt))
(average bt)))
(average bt)
(sorter 'bangou bt)
(sorter 'tokuten bt)
(output bt)

527:デフォルトの名無しさん
09/07/21 12:57:44
ｽﾚﾘﾝｸ(tech板:256番)
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# ファイルの1行目に2行目以降の各行に含まれる文字列の数が記述され，
# 2行目以降はその数の不定長文字列が空白で区切られているような入力
# ファイルを読み込み，各行を以下に示す構造体の単方向連結リストに
# 保存するプログラムを作成せよ．ここでは，attributes が1行分のデータ
# を保持する．
# struct t_list {
# char **attributes;
# struct t_list *next;
# };
# またにはソースファイルには，生成した単方向連結リストの内容を
# 標準出力に出力する関数 print_tlist を含むものとしprint_tlist により各行
# に含まれる文字列を出力するものとする．動作確認には，以下のテキストを用いよ．
# なお，入力ファイル名はコマンドライン
# 引数で指定するものとし，入力ファイルがオープンできなかった場合の処理も
# 含めること．また，プログラム自身を除く引数の数が0個，
# もしくは2個以上の場合は，何もせず適切なメッセージを出力して終了するものとする
# 入力ファイル：URLﾘﾝｸ(www.uploda.tv)

528:デフォルトの名無しさん
09/07/21 14:47:09
>>523
% Prolog

二分木の総節数([],0).
二分木の総節数(_節,_節の大きさ) :-
　　節(_節,_左枝,_右枝),
　　二分木の総節数(_左枝,_左枝の大きさ),
　　二分木の総節数(_右枝,_右枝の大きさ),
　　_節の大きさ is _左枝の大きさ + _右枝の大きさ + 1.

529:デフォルトの名無しさん
09/07/21 15:36:10
>>524
% Prolog
URLﾘﾝｸ(nojiriko.asia)

530:デフォルトの名無しさん
09/07/21 16:53:46
>>527
% Prolog
URLﾘﾝｸ(nojiriko.asia)

531:デフォルトの名無しさん
09/07/21 16:58:18
>>523
-- Haskell

data BTree a = Node (BTree a) a (BTree a) | Nil

size :: BTree a -> Int
size Nil = 0
size (Node tl _ tr) = 1 + (size tl) + (size tr)

main = print $ size node
where
node = Node (Node (Node Nil 2 Nil) 4 Nil) 0 (Node Nil 2 Nil)

532:デフォルトの名無しさん
09/07/21 17:35:39
>>524
import System.IO (hFlush, stdout)
import qualified System.IO.UTF8 as U
import Control.Monad.Writer
import Data.Function (on)
import Data.List (sortBy)

main = do
U.putStrLn "終了の際は0を二回押す"
grades <- execWriterT t524
U.putStr "(1)学籍番号順 (2)成績順: " >> hFlush stdout
s <- getLine
let cmp = case (read s) of
1 -> compare `on` fst
2 -> compare `on` snd
let av = average $ map snd grades
mapM_ (printer av) $ sortBy cmp grades
where
printer av (g,s) = U.putStrLn $ "学籍番号" ++ (show g) ++ " 成績" ++ (show s) ++ " 平均との差" ++ (show ((fromIntegral s) - av))

t524 :: WriterT [(Int,Int)] IO ()
t524 = do
liftIO $ U.putStr "学籍番号: " >> hFlush stdout
gakuseki <- liftIO getLine
liftIO $ U.putStr "成績: " >> hFlush stdout
seiseki <- liftIO getLine
let g = read gakuseki
let s = read seiseki
unless (g == 0 && s == 0) $ tell [(g,s)] >> t524

average :: [Int] -> Double
average = uncurry ((/) `on` fromIntegral) . foldl (\(s,l) x -> (s+x, l+1)) (0,0)

533:デフォルトの名無しさん
09/07/21 17:57:16
>>527
main = do
_ <- getLine -- just ignore
conn <- getContents
print $ map words $ lines conn

534:デフォルトの名無しさん
09/07/21 19:25:20
全くの初心者で、全然わからないんですがよろしくお願いします。アセンブラらしいです。

[課題] キーボードから10進数表示で2桁以下の正の整数を二つ受け取り，これらの積を求めGR1に保存するプログラムを作成しなさい。
ただし，以下の仕様を満たすこと。

掛け算は（上の例の方法ではなく）以下の（参考）の方法で行い，さらに副プログラム内で行うこと
キーボードから受け取った文字列を数値に変換する部分も副プログラムを用いて作成すること
キーボードからは10進数表示で2桁以下の正の整数が必ず入力されると仮定してよい(それ以外の文字列が入力された場合の対応を考えなくてよい）。

(参考) 二つの数の掛け算は，それぞれの２進数表現を考え，加算とシフトを用いることによって実現できる。たとえば，13x3 を計算するとき，13，3の2進数表現 1101，11 に対して通常の掛け算を筆算で行うように

と計算できる。すなわち，この例では

掛ける数の最下位（一番右）のビットが1なので，1101 を（0 ビットシフトして）(0に)加える。
掛ける数の右から2番目のビットが1なので，1101 を 1 ビットシフトして 11010 として1の結果に加える。
という手順により，二つの数の積を計算することができる。

掛ける数を1ビットずつ右にシフトしたとき，最下位ビットが1であればオーバーフローが発生する。
オーバーフローの発生はJOV命令でチェックできる（7/7の演習内容参照）ので，掛ける数の2進数表現においてどのビットが1であるかは直ちにわかる。
また右シフトを繰り返して0になるとZFフラグが1になるので，右シフトを停止するためにはJZE命令を使用すれば良い。

535:デフォルトの名無しさん
09/07/22 07:32:01
ｽﾚﾘﾝｸ(tech板:303番)
# [1] 授業単元：
# インタラクティブッコミュニケーション
# [2] 問題文(含コード&リンク)：
# 外部変数を使用せずに、main()から関数を呼び出し、円をドルとユーロに換算し、
# main()内のprintf()で結果を出力するプログラムを作成せよ。
# 但し、1ドル = 118円, 1ユーロ = 160円とする。また、プログラムは
# 負の値が入力されるまで繰り返されるものとする。
#
# URLﾘﾝｸ(www.ncc-1701.jp)
# の一番下の演習。
# 最終的にはこの形に
# URLﾘﾝｸ(www.ncc-1701.jp)

536:デフォルトの名無しさん
09/07/22 07:59:46
>>535
% Prolog 題意とは違いますが為替レートはリアルタイムに取得しています。
URLﾘﾝｸ(nojiriko.asia)

537:デフォルトの名無しさん
09/07/22 11:29:25
ｽﾚﾘﾝｸ(tech板:300番)
# [1] 授業単元：プログラミング基礎
# [2] 繰り返しをwhileもしくはdo\uff5ewhile文を使って作成しなさい。
#
# 任意の数字を入力し、その数字分まで１つずつ加算して表示する。
# 入力した数字までいったら逆に１になるまで表示する。
#
# 例
# ８
#
# *
# **
# ***
# ****
# *****
# ******
# *******
# ********
# *******
# ******
# *****
# ****
# ***
# **
# *

538:デフォルトの名無しさん
09/07/22 11:50:49
>>537
% Prolog ちょっと捻ってみた(ｺｳｲｳｺﾄｦｼﾃﾊｲｹﾅｲ)。

t537(N) :- M is N - 1,length(Z,M),t537([*],Z).

t537(L,Z) :- append(L,_,Z),t537_w(L),t537([*|L],Z).
t537(L,Z) :- t537_w(L),fail.
t537([*],_) :- !.

t537_w(L) :- concat_atom(L,S),write_formatted('%t\n',[S]).

539:デフォルトの名無しさん
09/07/22 11:57:44
>>537 一部変更。
% Prolog

t537(N) :- length(L,N),L=[_|Z],t537([*],Z).

t537(L,Z) :- append(L,_,Z),t537_w(L),t537([*|L],Z).
t537(L,Z) :- t537_w(L),fail.
t537([*],_) :- !.

t537_w(L) :- concat_atom(L,S),write_formatted('%t\n',[S]).

540:デフォルトの名無しさん
09/07/22 12:41:10
ｽﾚﾘﾝｸ(tech板:297番)
# [1] 授業単元：数値解析プログラミング
# [2] 問題文(含コード&リンク)： ∫\u20801/1+xx　の積分を
# 方形公式、台形公式、シンプソン公式を用いて数値計算するプログラムを作成せよ

541:デフォルトの名無しさん
09/07/22 14:30:31
>>540 (1)
% Prolog

f(X,Y) :- Y is 1 / (1 + x ^ 2).

シンプソンの公式(A,B,M,X) :-
　　D is (B - A) / (2 * M),
　　f(A,S),
　　N is 2 * M - 1,
　　シンプソン公式の二(1,N,A,D,S,S2),
　　f(B,Z),
　　X is (S2 + Z) * D / 3.

シンプソンの公式の二(M,N,_,_,X,X) :- M > N,!.
シンプソンの公式の二(M,N,A,D,Y,X) :-
　　U is A + M * D,
　　Mod is M mod 2,
　　シンプソンの公式の三(Mod,U,Y,Z),
　　M2 is M + 1,
　　シンプソンの公式の二(M2,N,A,D,Z,X).

シンプソンの公式の三(0,X,S,S2) :- f(X,Y),S2 is S + 2 * Y.
シンプソンの公式の三(1,X,S,S2) :- f(X,Y),S2 is S + 4 * Y.

542:541
09/07/22 14:42:49
>>541 訂正 X が x になっていた。
f(X,Y) :- Y is 1 / (1 + X ^ 2).

543:デフォルトの名無しさん
09/07/23 07:01:58
ｽﾚﾘﾝｸ(tech板:431番)
# [1] 授業単元：C言語
# [2] 問題文(含コード&リンク)：下記
# [3] 環境
# 　[3.1] OS：WindowsVista SP1
# 　[3.2] Visual stdio2008
# 　[3.3] 言語：C
# [4] 期限：2009年7月23日午前7時まで
# [5] その他の制限：できるだけ簡単に
#
# 倍精度浮動小数点型変数で数値を入力し,
# 小数点以下を切り捨て・切り上げ・四捨五入するプログラムを作成せよ.
# ただし, 条件式は使用せず, 型変換を必ず使用すること.

544:デフォルトの名無しさん
09/07/23 08:23:13
>>537
(define (f x)
(dotimes (i x) (dotimes (j (+ i 1)) (display "*"))(newline))
(dotimes (i x) (dotimes (j (- x i 1)) (display "*"))(newline)))
(port-for-each f read)

545:デフォルトの名無しさん
09/07/23 09:08:46
ｽﾚﾘﾝｸ(tech板:448番)
# [1] 授業単元：数値情報解析
# [2] 問題文：ニュートン法により代数方程式を解くプログラムを作りなさい。
# 　　　　　　適当な初期値を自分で設定し、3つの真解すべてを求めなさい。
# 　　　　　　ただし、結果画面には(1)収束解(2)初期値(3)反復回数が表示されている
こと。
# 　　　　　　このとき、1回の実行で3つの真解すべてを求める必要はない。
# 　　　　　　初期値を与え直しながら実行した結果画面が3枚示されていれば
# 　　　　　　よいものとする。
# ・解くべき代数方程式 : x^3 - 6x^2 + 7x +2 = 0
# ・収束条件 : ε < 10^-10
# 　　　　　・微分は自分で計算した結果(3x^2 - 12x + 7 = 0)をソースファイルに
# 　　　　　　直接入力してよいものとする。

546:デフォルトの名無しさん
09/07/23 12:39:50
>>545

(defun f (x)
(let* ((xx (* x x)) (xxx (* xx x)))
(+ xxx (* -6l0 xx) (* 7l0 x) 2l0)))

(defun d (x)
(let ((xx (* x x)))
(+ (* 3l0 xx) (* -12l0 x) 7l0)))

(defconstant err 1.0l-10)

(defun solv (x0)
(do ((n 0) (x x0) xtmp (endf nil))
(endf (format t "x = ~A x0=~A n=~A ~%" x x0 n))
(setf xtmp (- x (/ (f x) (d x))))
(if (< (abs (- x xtmp)) err)
(setf endf t))
(setf x xtmp
n (1+ n))))

(defun input (s)
(format t s)
(read))

(do ((x (input "初期値 x0? ") (input "初期値 x0? ")))
((not (numberp x)))
(solv x))

こんな感じ？

547:デフォルトの名無しさん
09/07/23 16:00:08
>>545
% Prolog
URLﾘﾝｸ(nojiriko.asia)

548:デフォルトの名無しさん
09/07/23 17:06:20
ｽﾚﾘﾝｸ(tech板:450番)
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：
# 下に示す2 行3 列の行列a, b の差を求めて表示するプログラムを作成せよ．
#
# a =
# (
# 6 3 4
# 5 1 2
# )
# b =
# (
# 1 2 3
# 4 5 6
# )

549:デフォルトの名無しさん
09/07/23 17:10:15
>>548
% Prolog

a([[6,3,4],[5,1,2]]).
b([[1,2,3],[4,5,6]]).

t548 :-
a(A),b(B),行列の差(A,B,C),
write_formatted('%t\n',[C]).

行列の差([],[],[]) :- ! .
行列の差([A|R1],[B|R2],[C|R3]) :- 行列の差の一(A,B,C),行列の差(R1,R2,R3),!.

行列の差の一([],[],[]) :- !.
行列の差の一([A|R1],[B|R2],[C|R3]) :- C is A - B,行列の差の一(R1,R2,R3),!.

550:デフォルトの名無しさん
09/07/23 18:38:58
なんかこのスレ
コードばっかで良スレっぽいな

551:デフォルトの名無しさん
09/07/23 19:47:08
>>537
main = do
n <- getLine >>= return . read
mapM_ (putStrLn . flip replicate '*') [1..n]
mapM_ (putStrLn . flip replicate '*') $ reverse [1..n-1]

552:デフォルトの名無しさん
09/07/23 20:11:31
>>548
msub :: (Num a) => [[a]] -> [[a]] -> [[a]]
msub = zipWith (zipWith (-))

main = do
mapM_ print $ a `msub` b
where
a = [[6, 3, 4], [5, 1, 2]]
b = [[1, 2, 3], [4, 5, 6]]

553:デフォルトの名無しさん
09/07/23 21:22:33
>>543
% Prolog 条件式(Prologの場合,節の選択)なしで切り上げ、思いつきません!

切り下げ(_浮動小数点数,_切り下げられた整数) :-
_切り下げられた整数 is truncate(float_integer_part(_浮動少数点数)).

四捨五入(_浮動小数点数,_四捨五入された整数) :-
_四捨五入された整数 is truncate(0.5 + float_integer_part(_浮動少数点数)).

554:デフォルトの名無しさん
09/07/23 22:04:05
ｽﾚﾘﾝｸ(tech板:457番)
# [1] 授業単元　C++
#
# [2] 問題文(含コード&リンク)
# テキストファイルの中のタブコードをそれぞれ、空白N個に置き換えて、
# 新たなファイルに書き出しなさい。ただし、N≧0とする。
# コマンドパラメーター：入力ファイル名、出力ファイル名、N
#
# ＜解答例＞
# Hello（）Bye←入力ファイル
# N=3の場合
# Hello（）Bye←出力ファイル

555:デフォルトの名無しさん
09/07/23 22:26:34
>>554
% Prolog (1/2)

t554(_入力ファイル,_出力ファイル,_空白文字数) :-
　　length(L,_空白文字数),
　　all(L,' '),
　　get_chars(_入力ファイル,Chars),
　　replace_chars(Chars,['\t'],L,Chars2),
　　put_chars(_出力ファイル,Chars2).

replace_chars([],_,_,[]) :- !.
replace_chars(L1,L2,L3,L4) :-
　　append(L2,R1,L1),
　　replace_chars(R1,L2,L3,L5),
　　append(L3,L5,L4),!.
replace_chars([A|R1],L2,L3,[A|R4]) :-
　　replace_chars(R1,L2,L3,R4).

556:デフォルトの名無しさん
09/07/23 22:28:55
>>554
% Prolog (2/2) ユーティリティ

get_chars(File,L) :-
open(File,read,Input),
get_char(Input,X),
get_chars(Input,X,L),
close(Input),!.

get_chars(Input,end_of_file,[]) :- !.
get_chars(Input,X,[X|R]) :-
get_char(Input,Y),
get_chars(Input,Y,R) .

put_chars(F,L) :-
open(F,write,Output),
stream_put_chars(Output,L),
close(Output),!.

stream_put_chars(_,[]) :- !.
stream_put_chars(Stream,[Char|R]) :-
put_char(Stream,Char),
stream_put_chars(Stream,R),!.

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

557:デフォルトの名無しさん
09/07/23 22:30:45
>>554 書き直し
% Prolog (2/2) ユーティリティ

get_chars(File,L) :-
　　open(File,read,Input),
　　get_char(Input,X),
　　get_chars(Input,X,L),
　　close(Input),!.

get_chars(Input,end_of_file,[]) :- !.
get_chars(Input,X,[X|R]) :-
　　get_char(Input,Y),
　　get_chars(Input,Y,R) .

put_chars(F,L) :-
　　open(F,write,Output),
　　stream_put_chars(Output,L),
　　close(Output),!.

stream_put_chars(_,[]) :- !.
stream_put_chars(Stream,[Char|R]) :-
　　put_char(Stream,Char),
　　stream_put_chars(Stream,R),!.

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

558:デフォルトの名無しさん
09/07/23 22:38:53
>>543
Haskell では RealFrac クラスに floor, ceil, round が定義されている

main = do
v <- getLine >>= return . read
mapM_ (print . ($ v)) [floor, ceiling, round]

559:デフォルトの名無しさん
09/07/23 23:01:29
>>554

import System.Environment (getArgs)
import System.IO
import Control.Exception (bracket)

main = do
[infile, outfile, n] <- getArgs
h <- openFile infile ReadMode
conn <- hGetContents h
let s = t554 (read n) conn
bracket (openFile outfile WriteMode) hClose $ flip hPutStr s
hClose h

t554 :: Int -> String -> String
t554 _ [] = []
t554 n ('\t':xs) = replicate n ' ' ++ t554 n xs
t554 n (x:xs) = x : t554 n xs

560:デフォルトの名無しさん
09/07/24 08:19:20
ｽﾚﾘﾝｸ(tech板:910番)
# コンピュータと人間か対戦する形で実行する３目並べのプログラムを作成せよ
#
# ＊先攻、後攻はゲーム毎に乱数で決定する
# ＊人間が手を打った場合、コマを置ける場所かどうかのチェックを行うこと
# ＊勝ち負けの判定を行うこと
# ＊コンピュータ側の手はランダムでも良いが、可能な範囲で工夫してみよ

561:デフォルトの名無しさん
09/07/24 16:59:03
ｽﾚﾘﾝｸ(tech板:473番)
# [1] 授業単元：プログラミング論
# [2] 問題文：入力ストリームから読み込んだデータ文字列を、
# データベースに格納する前にキューに一時的に格納するプログラムを
# 作成する。このとき、データをまとめたデータ文字列を一つずつ、キューへ
# エンキューしたり、デキューしたりする過程が分かるプログラムを作成する。
# なお、キューを実現するライブラリは、キューのための別のヘッダにまとめる。
# [そのほか]
# ・入力ストリームから読み込んだデータ文字列を、キューにエンキューしたり、
# デキューしたりするたびにデータベースに格納された全データを表示する。
# ・構造体オブジェクトは動的な記憶域に生成する。
# ・生徒の名前、試験の点数を構造体オブジェクトに格納することとする。
# ・関数の処理にコメントをつけて、キューをどのように実現しているか、
# そのプログラムの処理内容が分かるようにする。
# [このプログラムの流れ]
# (1)ファイルやキーボードなどの入力ストリームから
# データをデータ文字列として読み込む
# (2)このデータ文字列をキューに一時的に蓄える
# (3)キューからデータ文字列を取り出す
# (4)このデータ文字列からそれぞれデータを取り出して
# 文字列や数値データに変換する
# (5)変換したデータをデータベース（構造体の配列など）に格納してまとめて管理する

# (6)このデータベースからデータを参照し、ディスプレイに出力する

562:デフォルトの名無しさん
09/07/24 17:50:28
>>561
% Prolog
% 仕様通りだと面白くないので、要素を読み込む毎にキューに追加、
% 改行が来るとキューからすべて読み出すように変更した。
URLﾘﾝｸ(nojiriko.asia)

563:デフォルトの名無しさん
09/07/25 04:17:39
>>562
すみません。二ヶ所、述語名の付け違いがありました。
書き直しました。

564:デフォルトの名無しさん
09/07/26 11:25:17
ｽﾚﾘﾝｸ(tech板:535番)
# [1] C++
# [2] 問題文(含コード&リンク)：
# (1) 演算子+,-,*,/と整数と浮動小数点数からなる計算式の文字列から
# 計算木を作成せよ。計算木は次のようなc_tree構造体を使うとする。
#
# struct c_tree
# {
# int type;
# union { int n_value; double d_value; };
# c_tree *left, *right;
# };
# typeは、'+', '-', '*', '/', 'n', 'd'のいずれか。
#
# (2) 優先順位に注意してc_tree構造体からなる計算木から
# 計算式の文字列を作成せよ。

565:デフォルトの名無しさん
09/07/26 13:48:46
>>564
ちょっと長くなったので codepad で
Parsec はすばらしい

Haskell
URLﾘﾝｸ(codepad.org)

566:デフォルトの名無しさん
09/07/26 14:23:08
(quote exp)

567:デフォルトの名無しさん
09/07/27 04:34:19
# [1] 授業単元：プログラミング
# [2]問題文:以下の2つの構造体を用い，sample_data2.txt を単方向連結リストに保存す
るプログラム extra8 を作成せよ．item_list 中の item は各行中の数値を保持し，t_li
st 中の itemset は1行分のデータを保持するものとする．
# struct item_list {
# int item;
# struct item_list *next;
# };
# struct t_list {
# struct item_list itemset;
# struct t_list *next
# };
# ソースファイルの名前は extra8.c とする．また，extra8.c には，
# 生成した単方向連結リストの内容を標準出力に出力する関数 print_tlist を
# 含むものとし，以下の実行例のように print_tlist により各行の内容を出力
# するものとする．
# なお，入力ファイル名はコマンドライン引数で指定するものとし，入力ファイルが
# オープンできなかった場合の処理も含めること．また，プログラム自身を除く
# 引数の数が0個，もしくは2個以上の場合は，何もせず適切なメッセージを出力して
# 終了するものとする．
# （実行例１）
# > .\extra8 sample_data2.txt
# Itemset: 1,3,9,13,23,25,34,36
# Itemset: 2,3,9,14,23,26,34,36,39,40,52,55,59

568:デフォルトの名無しさん
09/07/27 07:42:02
>>567
% Prolog

extra8 :-
　　user_parameters([File]),
　　get_lines(File,Lines),
　　findall(Item_list,(member(Line,Lines),split(Line,[','],Item_list)),T_list),
　　assertz(t_list(T_list)).

print_tlist :-
　　t_list(T_list),
　　member(Item_list,T_list),
　　print_tlist_format(Item_list,Format),
　　write_formatted(Format,Item_list),
　　fail.
print_tlist.

print_tlist_format(Item_list,Format) :-
　　length(Item_list,Len),
　　length(L,Len),
　　all(L,'%t'),
　　concat_atom(L,',',S),
　　concat_atom(['Items : ,S,'\n'],Format),!.

569:デフォルトの名無しさん
09/07/27 20:03:33
ｽﾚﾘﾝｸ(tech板:574番)
# [1] 授業単元：プログラミング序論演習
# [2] 問題文(含コード&リンク)：ＣＵＩ上で動くメーラーを作れ

570:デフォルトの名無しさん
09/07/27 20:08:29
ｽﾚﾘﾝｸ(tech板:559番)
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：
# URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
# 電流Ｉ[A]:　0.3 0.4 0.5 0.6 0.7 0.8
# 電圧Ｖ[V]: 11.6 12.3 12.8 13.4 23.7 14.8
#
# この電流Ｉと電圧Ｖとの関係を最小二乗法によって、
# 以下に示す１次関数で近似したい
#
# Ｖ＝a0+a1I
#
# この時の係数a0とa1 また相関係数を求めなさい。

571:デフォルトの名無しさん
09/07/27 20:12:00
ｽﾚﾘﾝｸ(tech板:53番)
# 【　課題　】
# 以下のURLから正規表現を用いてキーワードの部分のみ抽出する
# プログラムを作成せよ。
#
# URLﾘﾝｸ(www.google.co.jp)キーワード&lr=lang_ja&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:ja:official&client=firefox-a

572:デフォルトの名無しさん
09/07/27 22:08:42
ｽﾚﾘﾝｸ(tech板:580番)
# [1] 授業単元：論理学
# [2] 問題文：　整数からなる配列を受け取り、その最大値を除いた配列を
# 出力するメソッドを定義せよ。
# ただし、配列の長さが３未満のときはnilを出力する。

573:デフォルトの名無しさん
09/07/27 22:13:29
>>572
% Prolog

t572(L,X) :- length(L,Len),Len < 3,!,write('nil\n').
t572(L,X) :-
　　max(L,Max),
　　ならびから削除(Max,L,X).

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

574:デフォルトの名無しさん
09/07/27 23:59:08
>>571
-- Haskell

import Text.Regex
import qualified System.IO.UTF8 as U

main = let Just [_,keyword] = matchRegex reg str in U.putStrLn keyword
where
reg = mkRegex "(\\?|&)q=([^&]+)"
str = "URLﾘﾝｸ(www.google.co.jp)キーワード&lr=lang_ja&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:ja:official&client=firefox-a"

575:デフォルトの名無しさん
09/07/28 00:32:46
>>572
nil は [] で代用した

-- Haskell
import Data.List (delete)

t572 :: (Ord a) => [a] -> [a]
t572 xs | length xs < 3 = []
| otherwise = delete (maximum xs) xs

main = print $ t572 [1,3,2]

576:デフォルトの名無しさん
09/07/28 01:03:39
>>570
-- Haskell

leastSquares :: (Fractional a) => [a] -> [a] -> (a,a)
leastSquares xs ys = ((n*sxy-sx*sy)/(n*sxx-sx*sx), (sxx*sy-sxy*sx)/(n*sxx-sx*sx))
where
n = fromIntegral $ length xs
sx = sum xs
sy = sum ys
sxy = sum $ zipWith (*) xs ys
sxx = sum $ map (^2) xs

pearson :: (Floating a) => [a] -> [a] -> a
pearson xs ys = a / (sqrt b) * (sqrt c)
where
mx = (sum xs) / (fromIntegral (length xs))
my = (sum ys) / (fromIntegral (length ys))
a = sum $ zipWith (\x y -> (x-mx)*(y-my)) xs ys
b = sum $ map (\x -> (x-mx)^2) xs
c = sum $ map (\y -> (y-my)^2) ys

main = do
let (a,b) = leastSquares is vs
putStrLn $ "a0=" ++ show b ++ ", a1=" ++ show a
print $ pearson is vs
where
is = [0.3, 0.4, 0.5, 0.6, 0.7, 0.8]
vs = [11.6, 12.3, 12.8, 13.4, 13.7, 14.8]

577:デフォルトの名無しさん
09/07/28 04:54:25
ｽﾚﾘﾝｸ(tech板:604番)
# [1] 授業単元：C言語
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
# 配列を引数とする再帰呼び出しによるマージソート
#
# 　入出力配列を引数とする再帰的手続きを作成し、マージソートを実現せよ。
# ただし、各入力要素X[i]は整数値をとるものとする。関数として、
# 長さnの配列Xをマージソートによって小さい順に並べ替えた配列Yを求める
# msort(int X[],int n,int Y[]),すでに並べ替えられている長さn1の配列Y1と長さn2の
# 配列Y2を併合した配列Yを求めるmerge(int Y1[],int n1,int Y2[],int n2,intY[]),
# 長さnの配列Xの各要素のアドレス、ならびに内容を表示するshow_addr(int X[],int n)を用意する。

578:デフォルトの名無しさん
09/07/28 05:04:17
>>577
% Prolog
debug(off).

msort([],[]).
msort([X],[X]).
msort(_ならび,_sortされたならび) :-
　　ならびを分割(_ならび,_ならび1,_ならび2),show_list(分割,[_ならび,_ならび1,_ならび2]),
　　msort(_ならび1,_整列されたならび1),show_list(msort,[ならび1,_整列されたならび1]),
　　msort(_ならび2,_整列されたならび2),show_list(msort,[ならび2,_整列されたならび2]),
　　merge(_整列されたならび1,_整列されたならび2,_整列されたならび),show_list(merge,[_整列されたならび1,_整列されたならび2,_整列されたならび]).

ならびを分割([],[],[]).
ならびを分割([X],[X],[]).
ならびを分割([A,B|R1],[A|R2],[B|R3]) :- ならびを分割(R1,R2,R3).

merge([],X,X) :- !.
merge(X,[],X) :- !.
merge([A|R1],[B|R2],[A|R3]) :- A @< B,merge(R1,[B|R2],R3).
merge([A|R1],[B|R2],[B|R3]) :- A @>= B,merge([A|R1],R2,R3).

show_list(_,_) :- debug(off).
show_list(_述語,_ならびのならび) :- debug(on),write_formatted('%t: %t\n',[_述語,_ならびのならび]).

579:デフォルトの名無しさん
09/07/28 06:15:55
>>571
% Prolog は正規表現をサポートしないのでここでは汎用検索述語sub_atom/10を
% 使ってみる。
% sub_atom/10の定義はURLﾘﾝｸ(prolog.asia) 参照。

t571(URL,_キーワード) :-
sub_atom(URL,_,_,_,_,'?q=',G,_,_,_),
sub_atom(G,_,_,_,_キーワード,'&',_,_,_,_),!.

580:579
09/07/28 06:32:16
>>571 >>579 sub_atom/10のリンクを間違えました。再掲。
% Prolog は正規表現をサポートしないのでここでは汎用検索述語sub_atom/10を
% 使ってみる。
% sub_atom/10の定義はURLﾘﾝｸ(nojiriko.asia) 参照。

t571(URL,_キーワード) :-
　　sub_atom(URL,_,_,_,_,'?q=',G,_,_,_),
　　sub_atom(G,_,_,_,_キーワード,'&',_,_,_,_),!.

581:デフォルトの名無しさん
09/07/28 13:18:26
>>577
-- Haskell

import Data.Function (on)

merge :: (Ord a) => [a] -> [a] -> [a]
merge xs [] = xs
merge [] ys = ys
merge a@(x:xs) b@(y:ys) | x < y = x : merge xs b
| otherwise = y : merge a ys

msort :: (Ord a) => [a] -> [a]
msort [] = []
msort [x] = [x]
msort xs = uncurry (merge `on` msort) $ splitAt ((length xs) `div` 2) xs

main = print $ msort [4,1,2,7,5]

582:デフォルトの名無しさん
09/07/29 01:53:48
>>570
相関係数ってどう定義されてんの？

583:デフォルトの名無しさん
09/07/30 04:41:04
ｽﾚﾘﾝｸ(tech板:659番)
# [1] Ｃ言語
# [2] 入力された英字文字列(a~z,A-Z)に、どの文字がいくつ入っているかを
# 調べるプログラムcount_char.cを作成せよ。
#
# 実行例
# String: cbbbAcAccZ
# A: **
# Z: *
# b: ***
# c: ****
# %

584:デフォルトの名無しさん
09/07/30 04:43:43
ｽﾚﾘﾝｸ(tech板:660番)
# [1] C言語
# [2] ２つのファイルを比較し，内容が異なっている最初の行の行番号と内容を
# 　　標準出力に表示するプログラムを作成せよ。
# 　　ファイル名はコマンドライン入力により受け取ることとする。
# [3] 環境
# 　[3.1] OS：Windows
# 　[3.2] コンパイラ：gcc 3.4
# 　[3.3] 言語：C
# [4] 期限：2009年7月31(金)
# [5] その他の制限：ポインタ履修済みです

585:デフォルトの名無しさん
09/07/30 05:00:03
>>584
% Prolog

t584 :-
　　user_parameters([File1,File2]),
　　get_lines(File2,L1),
　　get_lines(File2,L2),
　　append(L,[A|_],L1),
　　append(L,[B|_],L2),
　　\+(A=B),
　　length(L,Len),
　　_行番号 is Len + 1,
　　write_formatted('行番号=%t %t=%t %t=%t\n',[_行番号,File1,A,File2,B]).

次ページ