From 21ec2f99bef9576c83576ad4bb42de0249653f6b Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 26 Jan 2016 08:54:44 +0100
Subject: census -1

---
 census.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/census.icl b/census.icl
index 29dab81..4b3cade 100644
--- a/census.icl
+++ b/census.icl
@@ -9,7 +9,7 @@ import StdEnv
 Start=v 100 [("A",12.0),("B",8.0),("C",3.0),("D",0.0)]
 
 v n s=sortBy(\(a,b)(c,d).b>d)([(t,3.0)\\t<-s|fst t=="DC"]++w(n-3*(length s))[(t,1.0)\\t<-s|fst t<>"DC"])
-w 0 s=[(p,r+2.0)\\(p,r)<-s]
+w 0s=[(p,r+2.0)\\(p,r)<-s]
 w n s#s=sortBy(\a b.A a>A b)s
 #(p,r)=hd s
 =w(n-1)[(p,r+1.0):tl s]
-- 
cgit v1.2.3