Mercurial > repos > icfp2013
comparison src/requests.tp @ 21:a4ac42c69285
cleanup.
author | William Morgan <bill@mrgn.org> |
---|---|
date | Fri, 09 Aug 2013 15:53:53 -0700 |
parents | 92db3d1e8809 |
children | a4837071b73d |
comparison
equal
deleted
inserted
replaced
20:92db3d1e8809 | 21:a4ac42c69285 |
---|---|
1 #{ | 1 #{ |
2 | 2 |
3 strJoin <- :str arr { | 3 strJoin <- :str arr { |
4 //head <- arr.get(0) | |
5 //tail <- arr. | |
6 print: "go\n" | |
7 //print: (string: (arr length)) | |
8 acc <- "" | 4 acc <- "" |
9 arr foreach: :i el { | 5 arr foreach: :i el { |
10 print: (string: i) . " " . (string: el) . "\n" | |
11 if: i = 0 { | 6 if: i = 0 { |
12 acc <- (string: el) | 7 acc <- (string: el) |
13 } else: { | 8 } else: { |
14 acc <- acc . ", " . (string: el) | 9 acc <- acc . ", " . (string: el) |
15 } | 10 } |
16 } | 11 } |
17 print: "stop\n" | |
18 acc | 12 acc |
19 //arr fold: "" with: :acc el {acc . el} | 13 //arr fold: "" with: :acc el {acc . el} |
20 } | 14 } |
21 | 15 |
22 quote <- :str { | 16 quote <- :str { |