重音テト - 桃色しーくれっと.exe

Well, since it's been a while since I last posted any actual content, I'll post some song lyrics. This song is one of my favorites these days. (Yes, the illustration is derived from Oreimo.

And according to here, these are the lyrics:

わん、とぅー、
わん　とぅー　さん　しっ　

Ah　気が付けばいつだって　魔法にかかったように
追いかけて夢中になってた　キミのこと

ぎゅぅっと胸締め付ける　トドメを刺した声が
離れなくて　どうしよう　今日も眠れないよ（*´Д｀）

ずっと言えないままのこのキモチ
誰かに聞いてほしいの
蕩れる妄想（セカイ）の pass（カギ）を解凍して（とかちて）
キミに会いにゆくよ！

桃色のトキメキが降りそそぐ
24時過ぎ　二人だけの物語　鐘が鳴って
止まらないドキドキ　vol 上げた
ヒミツの夜　とろけそうな甘いユメ
カラフルなハートに今見せてあげる

ねえ　気が付いてほしいけど　ずっとそのままでいてね
気付いたら　きっと熱暴走しちゃうkshvdhうぇlfふじこ

ホントはあたしだって　教えてほしいくらい
ググっても　この気持ちなんてわからないし

「もっと近くにきてよ」
どうしても伝えられないコトバ
見えない壁のその向こう側
キミと触れたいから！

ミルク色のカクテルが降りそそぐ
26時　二人だけの「冒険の書」を描いて
溢れそうなシロップ　vol 下げた
イケナイ夜　とろけそうな口唇で
ムネノコドウ　たしかめて？

誰にも言えない「好き」の一言がね、
駆け巡った電子の世界
誰かがこの気持ち　バカにしてもね、
好きなんだもん。しょうがないじゃない？

二次色のトキメキが降りそそぐ
ユメの続き　終わりのないエンディング　何度だって　

切り取ったモザイク　フラグ立てた
クライマックス　とろけそうな甘い声　震わせる

キミの中　桃色に染め上げて
濡れた瞳　漏れる吐息　ぎゅぅっと掴んだ
小さな手を　握りしめて　朝が来るまで
続いていく　二人だけの物語　
ユメを見せて　

Lala... Lala...

Google+?

According to Google, I should be able to share this post directly to Google+. Let's see if it works.

My First Haskell Program

Haskell has always been a bit difficult for me to understand, but thanks to this guide, I learned quite a bit. It took me about fifteen minutes, but I have my first Haskell program running!

import System.Random
import Text.Printf

parseAnswer :: String -> IO Bool
parseAnswer "y" = return True
parseAnswer a = return False



testLuck :: (RandomGen g) => g -> Bool -> Int -> IO Int
testLuck seed True x =
do let (addition, newseed) = randomR (-4, 4) seed
mainloop newseed (x + addition)
testLuck seed False x = return x

mainloop :: (RandomGen g) => g -> Int -> IO Int
mainloop seed x =
do printf "Would you like to roll? You currently have: %d\n" x
rolled <- getLine >>= parseAnswer
testLuck seed rolled x

main =
do putStrLn "Welcome to herpaderp."
seed <- newStdGen
mainloop seed 0 >>= printf "You ended up with: %d\n"It's a pretty silly little thing that just asks you if you want to roll and returns some value. I learned quite a bit about monads with both this and the guide, too.