Ocaml

O(n) の手間でフィボナッチ数が計算できるような関数 fib を作ってみよ。
ヒント： ３引数の補助的な関数を定義することを考えよ。
という課題をOcamlで作るのですが、for文を使わないという制限がついています。
どのようなプログラムを書けばよいのでしょうか？

GET/POST

再帰

模範的な糞スレ

function fib(x) {
return x<=1 ? 1 : fib(x-1)+fib(x-2)
}

>>1
VIPでやれ

>>1
let fib =  let rec fib a b c d x =
        if x = 0 then a else
        let a,b = if x mod 2 = 1 then a*c+b*d,b*c+(a+b)*d else a,b in
            fib a b (c*c+d*d) (d*c+(c+d)*d) (x/2)
    in fib 1 1 0 1;;

岡村にしか読めない

>関数 fib を作ってみよ。
>関数を定義

>どのようなプログラムを書けばよいのでしょうか？

>>7 それでやると、fib9=55、fib10=89となってしまい、正しくありません。
fib 10は55です。ひとつずれているのですが、
どう修正すればいいんでしょうか？

加えてこれもお願いします。言語はOcamlです。
１．リストの intersection
リスト（個々のリストは互いに相異なる要素からなるものとする。次問以下も同様）を２本もらって，どちらのリストにも現れる要素を集めたリストを返すような関数 intersection を書く．

たとえば intersection ['a'; 'c'; 'f'; 'j'; 'q'] ['j'; 'c'] の実行結果が ['j'; 'c'] または ['c'; 'j'] となればよい．

２．リストの difference

リストを二つもらって、最初のリストは現れるが二つ目のリストには現れない要素のリストを返すような関数 difference を書く。

３．リストの symmetric difference
リストを二つもらって、どちらか片方のリストは現れるが両方には現れない要素のリストを返すような関数 symmetric_difference を書く。

ホントに助けてください。

いきなり専用スレを立てておいて、●投げの姿勢が悪印象。

>>10
1 1 0 1 を 0 1 0 1に修正しろ
>>11
let scan f a c =let rec itr a c r=
    match a with | [] -> r | a::b -> let r = if f a c then a::r else r in itr b c r
    in itr a c [];;
let intersection = scan List.mem;;
let difference = scan (fun a b -> ((List.mem a b)=false));;
let symmetric_difference a c= List.rev_append (difference a c) (difference c a);;
>>13
というか、こんなスレ立てるふざけた奴は死ねって感じだな。

伝説の新人死ね

OCaml プログラミング入門
http://www.biocaml.org/~bannai/ocaml-intro/

>>1
重複スレです。
ご自分で削除依頼お願いします。



○誘導

関数型言語ML(SML, OCaml, etc.), Part 3
http://pc8.2ch.net/test/read.cgi/tech/1103606223/

>>17 俺に指図するな。

>>18
勝手に騙るなよ。死ね

あんまり変な人物誘導されても困るんだが。

>>1
重複スレです。
ご自分で削除依頼お願いします。



○誘導

関数型言語ML(SML, OCaml, etc.), Part 3
http://pc8.2ch.net/test/read.cgi/tech/1103606223/

>>21
おれの名前出す意味ないだろう？
そのままスルーするところだったよ。

http://www.google.com/search?num=100&hl=ja&ie=EUC-JP&q=%C5%C1%C0%E2%A4%CE%BF%B7%BF%CD
意味ないね。

昇順にソートされたリストに対する union （論理和） を定義してみよ。
ヒント： match構文は二重の入れ子にして使ってもよい。
自分で書いてみたんですが、サッパリ上手くいきません。ご教授願います。
let rec union a b = match a with
[] -> b
| h::t -> match b with
[] -> []
| g::r -> if h==g then union t b
else h::union t b;;

m(._.)m お願いいたします

克也死ね

m(._.)m お願いいたします

とりあえず
見ず知らずの誰かに作成頼む前に同じ学科のヤツとかに聞いたりとかしてみたか？

俺多分お前と同じ学科なんだが、その場で聞いてくれれば話したこと無いヤツにでも喜んで相談に乗るよ
だからといってこんな匿名掲示板で答えだけ教える気なんて、とても起きないけどな

つまり何が言いたいのかというと
　「見ず知らずの誰かが時間割いてまでお前の課題手伝ってくれるはずないだろーが」








unionのヒント：5,6行目は其れだとbのリストが減っていってない
if 〜、else if　〜、else　〜の3つの場合に分けて考えてみた方が楽

>>28
はい、反省します。。
君の言う通りだよ。。。
友達に聞いても、俺のまわりの友達って授業出てなかったり、プログラミング苦手なのばっかで聞く人がいないよ。。。

ヒントどうも、、、CSの誰かさん。

ここはプログラミングCの質問スレになりました。

早稲田か・・・シネヨ