女房が私のことをアスペだと云います。TVの特集を観て、みんな当てはまると云います。・自分の言いたいことを周りの反応を無視して云い続ける。確かに、このようなことが、家では度々あります。この前もこのようなことがあり、長男が激怒しました。

プログラミング覚書 F#-001

F#で、はろー
----------------------------------------------------------------------

printfn "はろーわーるど";;

----------------------------------------------------------------------

プログラミング覚書 ML-009

複数の値を返す関数
----------------------------------------------------------------------

- fun bar(x, y) =
=   if x = y then (0, 0)
=   else if x > y then (1, x - y)
=   else (~1, y - x);
val bar = fn : int * int -> int * int
- bar( 20, 10);
val it = (1,10) : int * int
- bar( 10, 20);
val it = (~1,10) : int * int
- bar( 10, 10);
val it = (0,0) : int * int

----------------------------------------------------------------------

プログラミング覚書 ML-008

複数の引数
----------------------------------------------------------------------

- fun f(x, y) = 3 * x + 4 * y;
val f = fn : int * int -> int
- f(2, 3);
val it = 18 : int

----------------------------------------------------------------------

プログラミング覚書 ML-007

リスト
----------------------------------------------------------------------

- val a = [1, 2, 3, 4];
val a = [1,2,3,4] : int list
- val b = ["abc", "def", "ghi"];
val b = ["abc","def","ghi"] : string list
- a;
val it = [1,2,3,4] : int list
- hd( a );
val it = 1 : int
- tl( a );
val it = [2,3,4] : int list
- val c = 0 :: a;
val c = [0,1,2,3,4] : int list
- val d= [1, 2, 3] @ [4, 5, 6];
val d = [1,2,3,4,5,6] : int list

----------------------------------------------------------------------

プログラミング覚書 ML-006

タプル tuple 組
----------------------------------------------------------------------

val a = (1,2) : int * int
- val b = (10, 89.7);
val b = (10,89.7) : int * real
- val c = ("hello", 45.6, 12);
val c = ("hello",45.6,12) : string * real * int
- #2(a);
val it = 2 : int
- #1(c);
val it = "hello" : string

----------------------------------------------------------------------

プログラミング覚書 ML-005

if
----------------------------------------------------------------------

- if 1 < 2 then 3 * 4 else 5 * 6;
val it = 12 : int
- if 1 > 2 then 3 * 4 else 5 * 6;
val it = 30 : int

----------------------------------------------------------------------

プログラミング覚書 ML-004

関数定義
----------------------------------------------------------------------

- fun NiBai x = x * 2;
val NiBai = fn : int -> int
- NiBai 20;
val it = 40 : int
- NiBai( 30 );
val it = 60 : int

----------------------------------------------------------------------

　缶チューハイ１本と日本酒４合瓶１本を飲みました。普段、酒を飲まないのでフラフラです。長男も高校生なのに、缶チューハイ１本を飲み、試験勉強・受験勉強どころではありませんでした。部活を引退し、４時半と早く帰ってくる生活にまだ、なじまないようです。昨夜はミュージック・フェアを観ましたが、私が歌えそうな曲は１曲もなかったです。火曜８時のNHK歌謡コンサートの方が私には合っているようです。

リーマスを３年以上飲み続けている。疲労感がある以外の副作用はない。
　激躁状態になるのを予防してくれている。