Rodhos Soft

備忘録を兼ねた技術的なメモです。Rofhos SoftではiOSアプリ開発を中心としてAndroid, Webサービス等の開発を承っております。まずはご相談下さい。

haskell

htmlを吐き出す4

何か形になってきた気が。とりあえず根本的にタグを定義してみた。 しかしdivとかを手で入れるようになってしまい面倒さは変わらないような気も。 import Data.List main = print (display html) type ClassName = String -- data DIV a = DIV ClassName a d…

htmlを吐き出す3

不要なデータ型を削除した少しスッキリしたが属性とかつけるとめんどくさいことになりそう。 import Data.List main = putStr (tag_doctype ++ html) tag_doctype = "" html = string (HTML [header,body]) header = HEAD [String "OK!"] body = BODY htmlbo…

htmlを吐き出す2

html吐き出すコード、DivTag DIVとか書くのはおかしい。もっとまとまるはず。。 import Data.List main = putStr (tag_doctype ++ html) tag_doctype = "" html = string (HTML [header,body]) header = HeadTag (HEAD (String "OK!")) body = BodyTag (BODY…

単にテンプレート的にhtmlを吐き出す

単純に関数に代入してhtmlを作ってみたがお世辞にも簡潔には書けなかった。。 import Data.List main = putStrLn html tag_doctype = "\n" tag_html txt = "\n<html>\n" ++ txt ++ "\n</html>\n" tag_head txt = "\n<head>\n" ++ txt ++ "\n</head>\n" tag_body txt = "\n<body>\n" ++ txt ++</body>…

htmlを吐き出してみる。

データ型と型クラスを使って少しまとめてみた。 同じようなコードを書かなくてはいけなくて面倒に感じる。 良い方法はないのだろうか。 import Data.List main = print (tag_doctype ++ html) tag_doctype = "" html = string (HTML [header,body]) header =…

お絵かき

haskellでお絵かきをするhtmlのコードを無理やり吐き出させてみた。もっとスマートにやれるはず。。 import Data.List main = print tag_doctype tag_doctype = "" ++ html html = tag_html (tag_header (tag_title "OK!") ++ tag_body (tag_p "hello") ++ t…

複数行の文字列

改行を含むような複数行の文字列を入れたい場合 main = print kakko kakko = " \ \ AB" のようにすれば良い。

haskellを触ってみる

参考にしたのはこちら 高階関数 - ウォークスルー Haskell まず基本をならった。 -- haskell sample -- putStrLn "Hello World!" -- main = do { putStrLn "hello" ; putStrLn "world" } {- ブロックコメント -} main = do { print (funcC 3)} helloKat :: S…