Erlang

さて、1時間ほどかかり、インストーラを導入環境変数を通してから、Erlangを起動。 Haskell同様、Editraを使ってファイル作成どうやら、ファイル名とモジュール名は統一しないといけないようです test.erlとして保存 -module(test). -export([hello_world/…

2011-06-06

GLUT

8時前に家をでて大学に。すこし部室にいってリハの予定を書き込んでから学内バスでキャンパス移動。グラフ理論の勉強をやるそれから量子論スタックをポインタで書いてみたりしてたら、演習のプリントが配られたそういえば先週、そんなこと言ってましたね…

2011-06-05

単方向

さてさて今日は日曜日。朝起きて朝食食べて。 PCをまた調べてから家を出る。今日は会議らしい。二つ目の最寄り駅、到着しかし私、時間を間違えて一時間早く到着してしまった！！！なんてこった、パンナコッタ！仕方がないので駅をうろうろしながら二…

2011-06-04

時間表示

Haskell

先ほどのものに、更に、ネットの資料を参考に時間機能をつけてみた。といっても、main関数の中を以下のように書き換えただけ import Time main = do start <- getClockTime putStrLn "Start game!" >> game25 1 end <- getClockTime putStr "Time Record::"…

2011-06-04

モナド！！！

Haskell

昨日けんぴとHaskell談義した内容を思い出しながら、さっき記事にあげたプログラムを更に書きすすめてみた。といっても、構造からして全部変わっちゃってますけど笑 Touch the NumbersのCUIバージョン。これに時間管理の機能をつければもう立派なアプリで…

2011-06-04

25

Haskell

Haskellで、touch the numbersのCUIバージョンを作れるかなあ、と思案中 main = do cs <- getContents print $ rewrite (read.head $ lines cs) (zip [1..25][0,0..]) rewrite :: Int -> [(Int,Int)] -> [(Int,Int)] rewrite n xs | n > 25 || n < 0 = xs | …

2011-06-04

寄席

今日の日記朝起きたら6時。よし、良い時間に起きたぞ！と思ったけど、あまりにも眠い。強力な重力加速度を感じ、瞬き1回したら8時半.....だと！ 9時に集合なのに！！急いで準備して出発。準備をして、リーナ、高知人、1回生男子を連れてお昼ご飯を買い…

2011-06-04

splitAt

Haskell

main = do cs <- getLine print $ mysplitAt 5 $ cs mysplitAt :: Int -> [a] ->([a],[a]) mysplitAt n xs | n == 0 = ([],[]) | n > length xs = (xs,[]) | otherwise = (take n xs , drop n xs) splitAtを自分で書いてみた。空白で、前後の二つをタプルに…

2011-06-03

思案中

今日は朝7時半起床でも昨日、C,Wiring,Haskellやったはいいけど、そのあと空の軌跡をやってしまったばかりに朝から眠くて眠くて。ソファで1時間半仮眠。それから車運転して大学数日前に親が自転車を大学に運んでくれたので今日から私に死角はなくなった…

2011-06-02

List

朝の記事は大学の図書館で書いたわけですがそのあと2時限目、アルゴリズムの授業今日からハッシュ！なつかしいねハッシュ！でも少し触った程度で前は終わってしまったからなあ見なおしておこうっと昼、MAと昼食してからPCルームにプログラミング今日…

2011-06-02

length

Haskell

mylength :: [a]->Int mylength [] = 0 mylength (x:xs) = 1 + mylength xs 標準のlength関数と挙動は同じ。また、さっきネットサーフィンしてたら、リストの回文を生成せよ、という問題を見つけたのでやってみた main = putStr $unlines. map show $ kaibu…

2011-06-02

4進数

Haskell

Haskellで10進数→4進数のプログラム main = do cs <- getContents putStr $unlines $ map (show.notate.read) $lines cs notate :: Int -> Int notate x = if x < 4 then x else x `mod` 4 + 10* notate (x`div`4)