data Nat = Z | S Nat
{-# OPTIONS -fglasgow-exts #-} data Z = Z data S a = S a z = Z s = S the :: S Z -> () the _ = ()
[ Home | Post Entry | Log in | Search | Browse Options | Site Map ]
no subject
(no subject)
no subject
Тогда the (s z) становится действительно избранным - другие применения функции the не компилятся (кроме the undefined, конечно)
(no subject)
no subject
Серега Котов, мой бывший коллега, выбрал себе ником thesk. ;)
Тоже, по-моему, неплохо, хотя и не очень верно. ;)
(no subject)
(no subject)
no subject
начал смотреть включив мозг - понял :)
(no subject)
no subject
(no subject)
(no subject)
(no subject)
(no subject)
(no subject)
(no subject)