Mercurial > repos > icfp2013
view src/requests.tp @ 18:a0e66161bde0
for bug investigation
author | William Morgan <bill@mrgn.org> |
---|---|
date | Fri, 09 Aug 2013 12:55:38 -0700 |
parents | 566960135ea1 |
children | 5a025e6c6f89 |
line wrap: on
line source
#{ quote <- :str { "\"" . str . "\"" } evalRequest <- :_id args { #{ id <- _id string <- { // idStr <- id// method not implemented // idStr <- _id//method not implemented // idStr <- "a"//good // idStr <- quote("id") . quote(id)//segfault // idStr <- "\"id\":\"" . id . "\""// method not implemented // argsStr <- ""//arguments fold: "" with: :acc el {acc . el} argsStr <- "b" "{" . idStr . "," . argsStr . "}" } } } guessRequest <- :id :prog { #{ string <- { idStr <- "\"id\":\"" . id . "\"" progStr <- "\"program\":\"" . prog . "\"" "{" . idStr . "," . progStr . "}" } } } main <- { print: ((evalRequest: #[1 2 3]) string) . "\n" print: ((guessRequest: "someId" "someProg") string) . "\n" } }