こんないくつかの値をまとめて扱うためにレコードを定義した。 type some_record = {x:int list;y:float list} そして、これを操作する関数をいくつか書いた。 let append {x=x1;y=y1} {x=x2;y=y2}= {x=x1@x1; y=y1@y1} こういった関数がいくつかできてくる…

30分プログラム、その313。Problem40 - Project Euler。 正の整数を順に連結して得られる以下の10進の無理数を考える: 0.123456789101112131415161718192021...小数点第12位は1である. dnで小数点第n位の数を表す. d1 × d10 × d100 × d1000 × d10000 × d1000…