data Nat = Z | S Nat
{-# OPTIONS -fglasgow-exts #-} data Z = Z data S a = S a z = Z s = S the :: S Z -> () the _ = ()
no subject
Date: 2007-05-03 02:28 pm (UTC)no subject
Date: 2007-05-03 03:24 pm (UTC)no subject
Date: 2007-05-03 02:34 pm (UTC)Тогда the (s z) становится действительно избранным - другие применения функции the не компилятся (кроме the undefined, конечно)
no subject
Date: 2007-05-03 03:23 pm (UTC)no subject
Date: 2007-05-03 02:57 pm (UTC)Серега Котов, мой бывший коллега, выбрал себе ником thesk. ;)
Тоже, по-моему, неплохо, хотя и не очень верно. ;)
no subject
Date: 2007-05-03 03:21 pm (UTC)no subject
Date: 2007-05-03 03:47 pm (UTC)no subject
Date: 2007-05-03 03:09 pm (UTC)начал смотреть включив мозг - понял :)
no subject
Date: 2007-05-03 03:21 pm (UTC)no subject
Date: 2007-05-03 03:16 pm (UTC)no subject
Date: 2007-05-03 03:22 pm (UTC)no subject
Date: 2007-05-03 03:27 pm (UTC)no subject
Date: 2007-05-03 07:20 pm (UTC)no subject
Date: 2007-05-03 03:41 pm (UTC)no subject
Date: 2007-05-03 07:18 pm (UTC)no subject
Date: 2007-05-03 07:28 pm (UTC):-)