音声合成でHello, world!
Posted feedbacks - Haskell
他力本願 eSpeak のコマンドを呼ぶ。 espeakはおもしろいですね。 ちゃんとそれらしく、聞える
see: eSpeak: Speech Synthesizer
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | module Main (main) where
import System.Environment
import System.Cmd
main = system . mkcmd . unwords =<< getArgs
mkcmd s = "espeak '" ++ s ++ "'"
{-
字では表現できませんが、以下でちゃんとしゃべってくれます。
*Main> :main Hello, world!
ExitSuccess
*Main> :main con nitch were
ExitSuccess
*Main> :main daw cat coo org, sole what program mar know tum yen know Colosseum death
ExitSuccess
-}
|
にしお
#3415()
Rating4/4=1.00
使用したライブラリはタグでつけてください。またOSに依存する場合もタグでつけてください。日本語文字列も発音できることが好ましいですが、必須ではありません。
以下はサンプルです。
>>> say("Hello, world!") >>> say("con nitch were") # 「こんにちは」 >>> say("daw cat coo org, sole what program mar know tum yen know Colosseum death")[ reply ]