defineTableFromDB を呼ぶ方法もあると思うのですが、もっと簡潔な手段があれば教えてくださると嬉しく思います。Database.Relational.Relation.table 関数に Database.Relational.Table.table 関数にtable名と絡む名を渡して作った Table 型の値を渡すとできるはずです。defineTableDerivations を呼んでいる関数を遡っていくと、チュートリアル http://khibino.github.io/haskell-relational-record/tutorial.html にも出てくる defineTable 関数にたどり着くのではないかと。stack haddock する:load したい場合はそのままファイル名を指定すればできます。doubleMe x = x + x
:cd /path/to/directory で同じディレクトリーに要ることも確認してみては？> 0.2 + 0.1 == 0.3 False
> map (/ 10) [1 .. 10] [0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0]
Prelude Data.Ratio> [0 :: Rational, 0.2 .. 1] [0 % 1,1 % 5,2 % 5,3 % 5,4 % 5,1 % 1]
[] が find に渡されると，このコードは止まらなくなります． 渡されないことを想定しているものがある場合，次のように明示的に書いておくといいと思います．find _ [] = error "empty list"
() で囲まなくて大丈夫だと思っておけば良いです．例えば今回の場合，(length xs) `div` 2 == length xs `div` 2
[a] は単連結リストになります．(実際には Haskell の構文に違反するので書けないですが，擬似的には次のようなデータ型になりますtype [a] = [] a data [] a = [] | a : [a]
splitAt や last ， length は効率よくできるわけではなく， [] か : をパターンマッチでずっと紐解いていき所定の場所を見つけるみたいなことを行います．find :: Ord a => a -> [a] -> a find _ [] = error "empty list" find n [x] = x find n (x:xs) | x * x >= n = x | otherwise = find n xs
Float を出力にしてしまうと結局桁あふれするのでは。。。 :cold_sweat:Rational にするのを推奨します。load じゃなくて :load ですね。。。GHCiの特別なコマンドは必ずコロン : で始まる点に注意してください。。。import System.Directory putStrLn =<< getCurrentDirectory