2016-03-12 15 views

答えて

8

実際にそれがコンストラクタ関数の引数で動作することを試しました。

data BinHeap a where 
    Empty :: (Ord a) => BinHeap a 
    HeapNode :: (Ord a) => a -> {-# UNPACK #-} !Int -> BinHeap a -> BinHeap a -> BinHeap a 

ニース。

関連する問題