perm [] = [[]] perm xs = concatMap f xs where f x = map (x :) (perm (delete x xs)) ----------------- FunBind [Match (SrcLoc {srcFilename = "<unknown>.hs", srcLine = 5, srcColumn = 1}) (Ident "perm") [PList []] Nothing (UnGuardedRhs (List [List []])</unknown>…

data Hoge = Hoge ---------------------- DataDecl (SrcLoc {srcFilename = "<unknown>.hs", srcLine = 12, srcColumn = 1}) DataType [] (Ident "Hoge") [] [QualConDecl (SrcLoc {srcFilename = "<unknown>.hs", srcLine = 12, srcColumn = 13}) [] [] (ConDecl (Ident "Hog</unknown></unknown>…

type Cont = [Op] type Test = Hoge type Test1 a = [a] type Test2 = (Cont, String) type Test3 = (Cont, [String]) type Test4 = [(Cont, String)] type Test5 a = a TypeDecl (SrcLoc {srcFilename = "<unknown>.hs", srcLine = 4, srcColumn = 1}) (Ident "Cont"</unknown>…

httpdが初期設定では起動しない # /etc/init.d/httpd startシステム->管理->サーバー設定->サービス でいじると毎回起動するようになる mysqlが初期設定では起動しない /etc/init.d/mysqld startシステム->管理->サーバー設定->サービス でいじると毎回起動…

下準備 moodleはPHPのバージョンが5.2系列でないといけないらしい． しかしCentOSにyumで入るのは5.1系列なのでまずアップデートした． （PHPのアップデート） # wget -q -O – http://www.atomicorp.com/installers/atomic.sh | sh # yum update http://vps.…

マイナスはどうなってんのかなということで解析． 結果として別々である． x = -3 y = 5 - 6 Module (SrcLoc {srcFilename = "<unknown>.hs", srcLine = 1, srcColumn = 1}) (ModuleName "Main") [] Nothing (Just [EVar (UnQual (Ident "main"))]) [] [PatBind (SrcL</unknown>…