2011-06-01から1ヶ月間の記事一覧
前回より、コメント削除関数をすっきりさせてみた import System.IO import Data.List main = do handle <- openFile "haskell.hs" ReadMode; hGetContents handle >>= (\x -> putStrLn $ comment x) >> hClose handle comment [] = [] comment xs = case (t…
Haskellでソースコードを描く際、 Editraでの 文字列のカラー表記がときたま不安定 エラーでPCがフリーズして端末からやむなく再起動といった事態が続き煩わしかったので、ケンピ一押しのvimをFedoraにいれてみることに。 sudo yum install vimだったかな? …
括弧がバランスしていればyes,そうでなければnoを出力 main = getContents >>= (\x->putStr $ unlines $map (judge.scope) $lines x) judge :: [Bool] -> String judge ks = if last ks == True then "yes\n" else "no\n" scope :: String -> [Bool] scope …
なる、大学生のプログラミングコンテストが存在するらしい 高校生の時に挑戦した、パソコン甲子園のようなものですね 使用言語も、C/C++,Javaと、 あのときとなにも変わらない 例によって Haskellで解いてみよう! 先ずは易しい。第一問から 入力されたnに対…
というわけで 帰宅して、夕食を食べたので、さきほどのをそのまんま流用し、Queueを書いてみた data Queue a = Empty | Value a (Queue a) deriving Show fqueue :: Queue String -> String -> Queue String fqueue queue str = case str of "dequeue" -> de…
HaskellでStackを書いてみた。 リストの処理をすればいいだけなんですけどね。 代数的データ型の扱いに慣れようと思って data Stack a = Empty | Value a (Stack a) deriving Show fstack :: Stack String -> String -> Stack String fstack stack str = cas…
Haskellで、四則演算を書いてみた priority :: Char -> Int priority c | c == '+' || c == '-' = 1 | otherwise = 2 calc :: String -> [Int] -> Int calc (x:xs) num@(n:ns) | ns == [] = n | xs == [] = calc' x num | priority x >= priority (head xs) …
今日は朝から忙しかったー。 8時に親の運転で家を出て、高知人と僻地のキャンパスまで大移動。 今日は漫才のリハーサル。 カップ麺のお湯が出ないなどのハプニングがあったり。 一番乗り 練習してたら、ウッチーらも到着。 リハを終え、駅までてくてく。 ...…
去年同様、今年も新人寄席がやってきた!!私はトリで二十四孝をば。 朝9時に部室に集合としたんですが 朝、起きてみると、なんと 8時44..........だと!!!!! ま、まずい!! とりあえず、メールで指示を出すためメールを打っていると。 ふと、携帯電話の時計…
何だか日に日に起床時間が早くなっている気がする この3日くらい7時半起きだったけど、今日は7時 暑いからかな 豆腐と酢の物、ご飯、天ぷら?を食べて準備 その前に、n-PCにGHCをインストールしないと PCを開き、端末から sudo yum install ghcと入力したら…
そうそう。 今のコード、Fedoraで書いた初めてのHaskellコードですが、 エディタにはEditraを使いました。 sudo yum install editraでは、まだpythonが入っていないため、パッケージを利用できませんでした。 次に、 editraと打ち込んでやると、wxPythonをイ…
Haskellで木を書こう というわけで。 数日前に、大学で課題で出た二分木を書いてみることに まだ途中だけれども、掲載 data Tree a = Empty | Leaf a | Branch a (Tree a) (Tree a) deriving (Show , Eq) main = do cs <- getLine; print $ mkTree $ delChar…
結局、Fedoraがうまくインストールできました! 参考にしたサイトは、 ttp://d.hatena.ne.jp/kano4/20110525/fedora15_install です。 このサイトの通りに進めたらインストールが無事成功しました。 あとはこれに開発環境を整えるだけ Fedora LiveUSB Creato…
先日購入したPCに、 Ubuntuを入れようと、数日前から作業していたけれど、どうやってもGUIがでない..... CUIでは、sudo命令とか認識してるから動くと思うのだけど、ちょっと使えない。 なんでも、DisplayManagerがインストールされてない、とかPCIがどうとか…
今日、これまたふと、バイナリファイルの扱いを勉強しようと思い立つ。 使用言語は、現在ノベルゲーム開発中のC++。 今考えたらHaskellでやってもよかったんだけど笑 この記事書き終わったら調べてみよう。 というわけで、ファイルの書き込み、読み出しをや…
今日はHaskellでレクサーを書こうと思い立つ。 Parsecの勉強をしようしようと思いつつ、なかなかまとまったサイトがないので、本腰入れないといけなさそう なら、自作で何かしらやってみるか というわけで。 基本となる関数は、 parse :: String -> Char -> …
久々にC++を触った。 Haskellで何か書こうかと、 とりあえずParsecの勉強でもしようかと思っていたけれど、先にやるべきことを片づけていこうと思い、長らく手つかずのC++のスクリプト言語作り。 うう..........汚い なんとかしてもっともっと綺麗にしたい …
朝10時に起床 ひさびさにベッドでなたら、長らくとれなかった足の疲れがとれ、すっきり! 朝ごはんにひき肉と牛乳を入れて卵焼きをつくり納豆ごはんとパクパク 出かける準備をして出発 虚は友人らとメイド喫茶に行く予定 本屋とかぶらぶらしつつ、なんば到着…
昨日の日記 昨日は一日いいでしたー! ちょっとしたイベントの日だったのですが、 そのためい朝から鰻丼!! 美味しい☆ テンション上げたあと、落語の練習してから家を出て大学に 授業を一時間受ける。 その最中、ケンピ、世紀末と今日の夕飯を考える。 授業…
前も書いた、Haskellでの拡張型辞書。 一応の検索機能、追加機能を実装し、version1.0は完成 あとはこれに、逆引き機能つけたり、文字列内検索付けたり、 あわよくばGUIにしたりできればいいんですが 上の二つの機能はすぐできるにしても、それ以上はまだ今…
最近部ログの更新が...... 夜遅くにしか作業しないのがいけないですね お陰で最近全然、C++もHaskellも触れていない。 今度の休日は一日作業したい といっても、新人寄席後になるろうけど 今日も授業 朝一から4時限連続 ふいー 疲れたー それからバイト。 バ…
く..........空腹............. 早く寝よう 今日は、javascriptとJQueryを触ってみた うん まだよくわからないな、使い方が(JQuery) 明日またやろう とりあえず明日の朝は早起きしないと
機能は部活で文字をひたすら書いた後、帰宅してプログラミングしようとそいたら激しい腹痛に見舞われ結局何もできずじまいだった..... さあ、じゃあ今日は??? 朝8時くらいに起床 朝食食べて、量子論レポートの間違えて記述していた部分を訂正。 父母と出…
昨日?だったかな。 プログラミングするのにも、何か目標が欲しいなあ、と思って話していたんだが。 PCやandroidを使ったプロジェクトを立ち上げよう! ということで、ある程度の方針が決まった! GUIはまだしも、webプログラミングとかやったことないな 経…
まずはソースコード import IO main = do cs <- getContents search $ lines cs search :: [String] -> IO() search (w:ws)=do handle <- openFile "list.txt" ReadMode fs <- hGetContents handle putStrLn $ search' w (maketouple $ words fs) hClose han…
あ、今日の日記を書き忘れるところだった笑 朝9時にバイト開始 今日は、前回で起訴は一通りやったので、単純な迷路を作ることに 入力デバイスとしては、ジョイスティックを採用。 こいつの入力に合わせて、LedMatrix上でドットを動かし、GOALを目指す。 壁の…
あ、今気付いたけどString内で - や {- を使った場合の処理を書いてないや笑 なんてこったーー まあ、同様の処理を書き加えるだけ というわけで delcomment :: String -> String delcomment [] = "" delcomment (a:b:fs) | a == '"' = literal (b:fs) | a ==…
今日も今日とてHaskell!! この間C言語で書いたコメント削除のプログラム あれをHaskellで書きなおしてみた といっても、Haskell版なので、 対応しているコメントは、 {- ............... -} と、 ................... ですけどね。 import IO main = do ha…
バイトから帰ってきて夕食食べて 姉と母と話をしてわいわい 風呂に入ってネタ繰りをして、風呂上がりにアイスをぱく ってしたはいいけど。 うーむ 今日、Erlangとかいう面白そうな関数型言語見つけたからそのインストーラを今インストールしてるんだけど、進…
6時過ぎ起床 眠いからだが辛いー 昨日勢いに乗ってhtmlをいじりまくったのがいけない。 今日は小テストもあるのに。 朝食食べて大学に 今日から統計力学! 結構楽しかったー それから解析学 今日はローラン展開あたりをば M,けんぴとと昼食、そのまま小テス…