Pārlūkot izejas kodu

Implement function ispal

DricomDragon 5 gadi atpakaļ
vecāks
revīzija
d7a0019652
1 mainītis faili ar 1 papildinājumiem un 1 dzēšanām
  1. 1 1
      hpal.hs

+ 1 - 1
hpal.hs

@@ -1,6 +1,6 @@
 r _ = 1
 
-ispal n = True
+ispal n = r n == n
 
 hpal n = 
 	if ispal n