ymorika

//F# の詳細 (http://fsharp.net)

let rec makeRamdom = fun(rand:System.Random, arr:string) ->
    match arr with
    | "JOPS" -> arr
    | _ -> 
        let index = rand.Next(4)
        let c = "JOPS".[index..index]
        printf "%s" (c + "!")
        let next = arr + c