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

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

745:デフォルトの名無しさん
10/02/20 18:35:05
>>743
% Prolog

'一次方程式y=ax+bの二点[x1,y1][x2,y2]から係数a,bを求める'(X1,Y1,X2,Y2,A,B) :-
　　A is (Y1 - Y2) / (X1 - X2),
　　B is Y1 - (A * X1).

746:デフォルトの名無しさん
10/02/20 21:27:49
>>709
使用言語：Clojure

user=> (def A ["あいうえお","かきくけこ","さしすせそ","たちつてと","なにむねの"])
#'user/A
user=> (defn f [x] (x (int(* (Math/random)(.length x)))))
#'user/f
user=> (f A)
"たちつてと"
user=> (f A)
"かきくけこ"

747:デフォルトの名無しさん
10/02/21 06:21:56
>>742
% Prolog 第二節目は
# 人びとは、真の暗闇、真の静寂を知らない。ただひとつまたたく灯、遠い一瞬の叫ぶ
# 声がどんな感じのものかを知らない。

知らない(人びと,_何かを) :-
　　知らない(_何かを).

知らない(_暗闇) :-
　　真の暗闇(_暗闇).
知らない(_静寂) :-
　　真の静寂(_静寂).

知らない(人びと,_何かの,_感じ) :-
　　感じ(_何かの,_感じ).

感じ(_またたく灯) :-
　　またたく灯(_またたく灯),
　　ただひとつ(_またたく灯).
感じ(_叫ぶ声) :-
　　叫ぶ声(_叫ぶ声),
　　遠い(_叫ぶ声),
一瞬の(_叫ぶ声).

748:デフォルトの名無しさん
10/02/21 20:17:19
ｽﾚﾘﾝｸ(tech板:746番)
# [1] 授業単元：
# UNIX C Programming
# [2] 問題文(含コード&リンク)：
# URLﾘﾝｸ(ime.nu)
#
# 下記のコードはUnixコマンドのmoreの低水準バージョンである。
# このmoreにundoの機能を付加しターミナルで使えるようにしたい。
# 例：ファイルの中を'Enter'で１行進み、'UNDO'で１行戻る。
# 　　'Enter'で１行進み、' '(Space)で１ページ進んだ後、'UNDO'で１ページ元に戻る。
#
# 一案として、/dev/ttyからのinputをarrayの中に残しておき、それを元に作業を一つ戻すことが考えられる。
# 下記のコードはmoreの基本的な機能である、’Enter’で一行前進・’　’（Space）で一ページ前進を既に盛り込んでいる。