Mercurial > repos > icfp2013
view 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 |
line wrap: on
line source
#{ strJoin <- :str arr { acc <- "" arr foreach: :i el { if: i = 0 { acc <- (string: el) } else: { acc <- acc . ", " . (string: el) } } acc //arr fold: "" with: :acc el {acc . el} } quote <- :str { "\"" . str . "\"" } evalRequest <- :id args { #{ string <- { idStr <- (quote: "id") . ":" . (quote: id) argsStr <- (quote: "arguments") . ":" . (quote: (strJoin: "," args)) "{" . idStr . "," . argsStr . "}" } } } guessRequest <- :id :prog { #{ string <- { idStr <- "\"id\":\"" . id . "\"" progStr <- "\"program\":\"" . prog . "\"" "{" . idStr . "," . progStr . "}" } } } main <- { print: ((evalRequest: "someId" #[1 2i64 3i64]) string) . "\n" print: ((guessRequest: "someId" "someProg") string) . "\n" } }