Tiny MML in OCaml DouKaku?

Tiny MML

文字列の入力をとり、音を鳴らすプログラムを作ってください。

入力はcがド、dがレ、eがミ、fがファ、gがソ、aがラ、bがシ、rが休符とします。この8文字以外の文字は入力に含まれていないと仮定して構いません。おのおのの音符・休符は八分音符・八分休符とします。

オクターブや音の長さの変更、同時発音などの機能は不要です。

サンプル入力(カエルの歌)

cdefedcrefgagfercrcrcrcrcdefedcr

post comment

Posted feedbacks - OCaml

#light
open System
open System.Runtime.InteropServices
open System.Threading

[<DllImport("kernel32.dll")>]

let Beep (dwFreq:int) (dwDuration:int) :bool = failwith ""
let toNum = function
    | 'c' -> 262
    | 'd' -> 294
    | 'e' -> 330
    | 'f' -> 349
    | 'g' -> 392
    | 'a' -> 440
    | 'b' -> 494
    | _ -> 0

let play (s:string) =
    for c in s do
        if (toNum c) = 0 then Thread.Sleep( 500 )
        else Beep (toNum c) 500 |> (fun b -> ())
    done

do play "cdefedcrefgagfercrcrcrcrcdefedcr"

DouKaku?

Tiny MML

Posted feedbacks - OCaml

Index

Feed

Other

Link

Pathtraq