Mercurial > repos > icfp2013

comparison src/requests.tp @ 41:4750da71cae6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
parsing myproblems.json, needs fix
author William Morgan <bill@mrgn.org>
date Sun, 11 Aug 2013 02:16:55 -0700
parents c42d3c8b1d75
children e9e01cd64993
comparison
equal deleted inserted replaced
36:c42d3c8b1d75 41:4750da71cae6
176 } else: { 176 } else: {
177 #{print <- print: "HTTP response gave error! code was: " . _code . "\n"} 177 #{print <- print: "HTTP response gave error! code was: " . _code . "\n"}
178 } 178 }
179 } 179 }
180 180
181 problem <- :bod { 181 _problem <- :decoded {
182 decoded <- json decode: bod
183 #{ 182 #{
184 id <- decoded get: "id" withDefault: -1 183 id <- decoded get: "id" withDefault: -1
185 size <- decoded get: "size" withDefault: -1 184 size <- decoded get: "size" withDefault: -1
186 operators <- decoded get: "operators" withDefault: #[] 185 operators <- decoded get: "operators" withDefault: #[]
187 //solved <- decoded get: "solved" withDefault: false // todo: B ool up ean this son of a j 186 //solved <- decoded get: "solved" withDefault: false // todo: B ool up ean this son of a j
199 print: string . "\n" 198 print: string . "\n"
200 } 199 }
201 } 200 }
202 } 201 }
203 202
203 problem <- :bod {
204 decoded <- json decode: bod
205 _problem: decoded
206 }
207
208 problems <- :bod {
209 decoded <- json decode: bod
210 decoded map: :idx el{
211 _problem: el
212 }
213 }
214
204 main <- :args { 215 main <- :args {
216 print: "Program Start."
205 testId0 <- "wdThP1AgVrS2rp7q6qt9mLqp" // TRAINING PROGRAM ID! not real one. response in data folder. 217 testId0 <- "wdThP1AgVrS2rp7q6qt9mLqp" // TRAINING PROGRAM ID! not real one. response in data folder.
206 testId1 <- "QwhG7ZpaVsfXiLRvbJfIfxl8" // TRAINING PROGRAM ID! not real one. response in data folder. 218 testId1 <- "QwhG7ZpaVsfXiLRvbJfIfxl8" // TRAINING PROGRAM ID! not real one. response in data folder.
207 someProblem <- "{\"id\":\"QwhG7ZpaVsfXiLRvbJfIfxl8\",\"size\":15,\"operators\":[\"and\",\"if0\",\"shl1\",\"shr16\",\"tfold\"]}" 219 someProblem <- "{\"id\":\"QwhG7ZpaVsfXiLRvbJfIfxl8\",\"size\":15,\"operators\":[\"and\",\"if0\",\"shl1\",\"shr16\",\"tfold\"]}"
208 someProgram <- "(lambda (input) (shl1 input))" 220 someProgram <- "(lambda (input) (shl1 input))"
209 221
210 //print: ((evalId: "someId" #[1u64 2u64 3u64]) string) . "\n" 222 //print: ((evalId: "someId" #[1u64 2u64 3u64]) string) . "\n"
211 //print: ((guess: "someId" "someProg") string) . "\n" 223 //print: ((guess: "someId" "someProg") string) . "\n"
212 print: ((problem: someProblem) string) . "\n" 224 //print: ((problem: someProblem) string) . "\n"
225
226 file <- os open: "/home/wbm25/Desktop/icfp2013/data/myproblems.json" (os O_RDONLY)
227 fstr <- (os read: file 400 * 1024) // file was 276k before bonus problems...
228 os close: file
229
230 print: (((problems: fstr) get: 0) string )
231
232
213 233
214 if: (args length) > 1 { 234 if: (args length) > 1 {
215 key <- args get: 1 235 key <- args get: 1
216 236
217 //print: ((evalProgram: "(lambda (input) (shl1 input))" #[1u64 0xEFFFFFFFFFFFFFu64]) sendWithKey: key) 237 //print: ((evalProgram: "(lambda (input) (shl1 input))" #[1u64 0xEFFFFFFFFFFFFFu64]) sendWithKey: key)
218 //print: ((evalId: testId0 #[1u64 0xEFFFFFFFFFFFFFu64]) sendWithKey: key) 238 //print: ((evalId: testId0 #[1u64 0xEFFFFFFFFFFFFFu64]) sendWithKey: key)
219 print: ((guess: testId0 someProgram) sendWithKey: key) 239 //print: ((guess: testId0 someProgram) sendWithKey: key)
220 240 println: "derp"
221 } 241 }
222 } 242 }
223 } 243 }