Mercurial > repos > icfp2013

comparison src/requests.tp @ 31:8a2925ab0d4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working guess request and response.
author William Morgan <bill@mrgn.org>
date Sat, 10 Aug 2013 21:23:33 -0700
parents a4bffcd381cd
children 9d5c3b078c78
comparison
equal deleted inserted replaced
30:a4bffcd381cd 31:8a2925ab0d4a
60 evalResponse: resp 60 evalResponse: resp
61 } 61 }
62 } 62 }
63 } 63 }
64 64
65 guessRequest <- :id :prog { 65 guess <- :id :prog {
66 #{ 66 #{
67 string <- { 67 string <- {
68 idStr <- "\"id\":\"" . id . "\"" 68 idStr <- "\"id\":\"" . id . "\""
69 progStr <- "\"program\":\"" . prog . "\"" 69 progStr <- "\"program\":\"" . prog . "\""
70 "{" . idStr . "," . progStr . "}" 70 "{" . idStr . "," . progStr . "}"
71 }
72 sendWithKey <- :key {
73 print: "Sending: " . string . "\n"
74 cli <- http client: "icfpc2013.cloudapp.net"
75 resp <- cli post: string toPath: "/guess?auth=" . key withType: "application/json"
76 guessResponse: resp
71 } 77 }
72 } 78 }
73 } 79 }
74 80
75 evalResponse <- :httpResp { 81 evalResponse <- :httpResp {
171 #{print <- print: "HTTP response gave error! code was: " . _code . "\n"} 177 #{print <- print: "HTTP response gave error! code was: " . _code . "\n"}
172 } 178 }
173 } 179 }
174 180
175 main <- :args { 181 main <- :args {
176 print: ((evalId: "someId" #[1u64 2u64 3u64]) string) . "\n" 182 //print: ((evalId: "someId" #[1u64 2u64 3u64]) string) . "\n"
177 print: ((guessRequest: "someId" "someProg") string) . "\n" 183 //print: ((guess: "someId" "someProg") string) . "\n"
178 184
179 if: (args length) > 1 { 185 if: (args length) > 1 {
180 key <- args get: 1 186 key <- args get: 1
187 testId <- "wdThP1AgVrS2rp7q6qt9mLqp" // my first training problem
188 someId <- "QwhG7ZpaVsfXiLRvbJfIfxl8" // TRAINING PROGRAM IDs!!! not real ones.
189
190 someProgram <- "(lambda (input) (shl1 input))"
191
181 //print: ((evalProgram: "(lambda (input) (shl1 input))" #[1u64 0xEFFFFFFFFFFFFFu64]) sendWithKey: key) 192 //print: ((evalProgram: "(lambda (input) (shl1 input))" #[1u64 0xEFFFFFFFFFFFFFu64]) sendWithKey: key)
182 print: ((evalId: "QwhG7ZpaVsfXiLRvbJfIfxl8" #[1u64 0xEFFFFFFFFFFFFFu64]) sendWithKey: key) 193 //print: ((evalId: testId #[1u64 0xEFFFFFFFFFFFFFu64]) sendWithKey: key)
194 print: ((guess: testId someProgram) sendWithKey: key)
195
183 } 196 }
184 } 197 }
185 } 198 }