エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
二分木を作ってみる - komamitsu.log
そういえば、二分木を探索するコードは書いたことがあったけど、二分木を作るコードは書いた記憶がなか... そういえば、二分木を探索するコードは書いたことがあったけど、二分木を作るコードは書いた記憶がなかったなぁ、と思いやってみることにしました。 いつもはWebの情報とかを参考にしがちなんだけど、脳に汗を書かせたい気分なので自力で頑張るぞ、と。 type 'a t = Lf | Br of 'a * 'a t * 'a t let rec set v = function | Lf -> Br(v, Lf, Lf) | Br(orig, left, right) -> if v < orig then Br(orig, (set v left), right) else Br(orig, left, (set v right)) let _ = let sample = [5; 2; 7; 1; 8; 3; 6; 4] in List.fold_left (fun t i -> set i t)