module File1
//リストを使ってみる
//リストを宣言する
let strs= ["dogs";"cats";"bird"]

//printfnでフォーマットを宣言してみる
printfn "%A" strs //["dogs"; "cats"; "bird"]が表示される
printfn "%O" strs //[dogs; cats; bird]が表示される

//パターンマッチを使ってリストにアクセスする
//パターンマッチ　その１
let rec accessList strs =
    match strs with
    |x::xs->printfn "%O " x;printfn "%O " (accessList xs);x+" a"
    |[]->printfn "おしまい";"b"

//パターンマッチ　その２
let rec accessList2 strs =
    match strs with
    |x::xs->printf "%O " x; accessList2 xs
    |[]->printfn "おしまい";

in
//戻り値があるので、letで結果を束縛する必要がある
let a=accessList strs
//dogs
//cats
//bird
//おしまい
//b
//bird a
//cats a
//が表示される

printfn  "letで束縛された結果を表示する"
printfn "%s" a
//letで束縛された結果を表示する
//dogs a
//が表示される

accessList2 strs
//dogs cats bird おしまい が表示される