我遇到下面的代碼片段(函數定義): choose (x:xs) = choosep x xs
where choosep x [] = x
choosep x (_:_) = x
choosep _ (x:xs) = choosep x xs
在 「標準庫」 0 -/usr/lib目錄/咖喱-0.9.11/Success.curry從Muenster Cu
我有一個標準的數據類型表示謂詞邏輯的公式。代表的脫節自然演繹排除規則的函數可能看起來像: d_el p q =
if p =: (Dis r s) && q =: (Neg r) then Just s else
if q =: (Dis r s) && p =: (Neg r) then Just s else
Nothing where r,s free
x
的相當迷人的2013的介紹後對Haskell的基礎KiCS2實施Curry由Wolfgang Jeltsch,A Taste of Curry,提供了inverse組合子定義如下: inverse :: (a -> b) -> (b -> a)
inverse f y | f x =:= y = x where x free
(注:這樣做之類的東西inverse (+1) 3 == 2和in