diff options
| author | Camil Staps | 2016-01-26 08:54:44 +0100 |
|---|---|---|
| committer | Camil Staps | 2016-01-26 08:54:44 +0100 |
| commit | 21ec2f99bef9576c83576ad4bb42de0249653f6b (patch) | |
| tree | e195a9d639fb4411af36d566ee840010de13a81c | |
| parent | Further golfed census (diff) | |
census -1
| -rw-r--r-- | census.icl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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] |