mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-19 13:49:16 +02:00
1759 lines
512 KiB
Scheme
1759 lines
512 KiB
Scheme
[optimized]
|
|
(lambda (k924)
|
|
(let ((k925 (##core#lambda
|
|
(r926)
|
|
(let ((k928 (##core#lambda
|
|
(r929)
|
|
(let ((k931 (##core#lambda
|
|
(r932)
|
|
(let ((k934 (##core#lambda
|
|
(r935)
|
|
(let ((k937 (##core#lambda
|
|
(r938)
|
|
(let ((t940 (set! flush-output-port #f flush-output)))
|
|
(let ((t941 (set! current-jiffy #f current-milliseconds)))
|
|
(let ((t942 (set! jiffies-per-second
|
|
#f
|
|
(lambda (k944) (k944 1000)))))
|
|
(let ((t945 (set! current-second #f current-seconds)))
|
|
(let ((t946 (set! inexact #f exact->inexact)))
|
|
(let ((t947 (set! exact #f inexact->exact)))
|
|
(let ((t948 (set! square
|
|
#f
|
|
(lambda (k950 x61)
|
|
(k950 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
x61
|
|
x61))))))
|
|
(let ((t954 (set! exact-integer? #f integer?)))
|
|
(let ((t955 (set! this-scheme-implementation-name
|
|
#f
|
|
(lambda (k957)
|
|
(let ((k962 (##core#lambda
|
|
(r963)
|
|
(string-append k957 "chicken-" r963))))
|
|
(chicken-version k962))))))
|
|
(let ((t965 (set! bitwise-not
|
|
#f
|
|
(lambda (k967 x66)
|
|
(let ((k972 (##core#lambda
|
|
(r973)
|
|
(k967 (##core#inline_allocate ("C_a_i_minus" 4) r973 1)))))
|
|
((##core#proc "C_minus" #t) k972 x66))))))
|
|
(let ((t975 (set! bitwise-and
|
|
#f
|
|
(lambda (k977 x68 y69)
|
|
(if (##core#inline "C_i_nequalp" x68 0)
|
|
(k977 0)
|
|
(if (##core#inline "C_i_nequalp" y69 0)
|
|
(k977 0)
|
|
(if (##core#inline "C_i_nequalp" x68 -1)
|
|
(k977 y69)
|
|
(if (##core#inline "C_i_nequalp" y69 -1)
|
|
(k977 x68)
|
|
(let ((k1024 (##core#lambda
|
|
(r1025)
|
|
(let ((a1023 r1025))
|
|
(let ((k1028 (##core#lambda
|
|
(r1029)
|
|
(let ((r1003 (##core#inline_allocate
|
|
("C_a_i_bitwise_and" 4)
|
|
a1023
|
|
r1029)))
|
|
(let ((r1018 (##core#inline "C_i_oddp" x68)))
|
|
(let ((r1009 (##core#cond
|
|
r1018
|
|
(##core#inline "C_i_oddp" y69)
|
|
#f)))
|
|
(if r1009
|
|
((##core#proc "C_plus" #t) k977 r1003 r1003 1)
|
|
(k977 (##core#inline_allocate
|
|
("C_a_i_plus" 4)
|
|
r1003
|
|
r1003)))))))))
|
|
(div k1028 y69 2))))))
|
|
(div k1024 x68 2))))))))))
|
|
(let ((t1031 (set! div
|
|
#f
|
|
(lambda (k1033 x77 y78)
|
|
(let ((k1037 (##core#lambda
|
|
(r1038)
|
|
(if r1038
|
|
((##core#proc "C_quotient" #t) k1033 x77 y78)
|
|
(if (##core#inline "C_i_lessp" y78 0)
|
|
(let ((k1049 (##core#lambda
|
|
(r1050)
|
|
(let ((r1066 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
r1050
|
|
y78)))
|
|
(let ((r1053 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
x77
|
|
r1066)))
|
|
(let ((r1059 (##core#inline "C_i_nequalp" r1053 0)))
|
|
(k1033 (##core#cond
|
|
r1059
|
|
r1050
|
|
(##core#inline_allocate ("C_a_i_plus" 4) r1050 1)))))))))
|
|
((##core#proc "C_quotient" #t) k1049 x77 y78))
|
|
(let ((k1068 (##core#lambda
|
|
(r1069)
|
|
(let ((r1085 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
r1069
|
|
y78)))
|
|
(let ((r1072 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
x77
|
|
r1085)))
|
|
(let ((r1078 (##core#inline "C_i_nequalp" r1072 0)))
|
|
(k1033 (##core#cond
|
|
r1078
|
|
r1069
|
|
(##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
r1069
|
|
1)))))))))
|
|
((##core#proc "C_quotient" #t) k1068 x77 y78)))))))
|
|
(let ((k1087 (##core#lambda
|
|
(r1088)
|
|
(if r1088
|
|
(let ((k1093 (##core#lambda
|
|
(r1094)
|
|
(k1037 (##core#cond
|
|
r1094
|
|
(##core#inline "C_i_greater_or_equalp" x77 0)
|
|
#f)))))
|
|
(exact-integer? k1093 y78))
|
|
(k1037 #f)))))
|
|
(exact-integer? k1087 x77)))))))
|
|
(let ((t1099 (set! mod
|
|
#f
|
|
(lambda (k1101 x90 y91)
|
|
(let ((k1105 (##core#lambda
|
|
(r1106)
|
|
(if r1106
|
|
(remainder k1101 x90 y91)
|
|
(if (##core#inline "C_i_lessp" y91 0)
|
|
(let ((k1117 (##core#lambda
|
|
(r1118)
|
|
(let ((r1134 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
r1118
|
|
y91)))
|
|
(let ((r1121 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
x90
|
|
r1134)))
|
|
(let ((r1127 (##core#inline "C_i_nequalp" r1121 0)))
|
|
(k1101 (##core#cond
|
|
r1127
|
|
0
|
|
(##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
r1121
|
|
y91)))))))))
|
|
((##core#proc "C_quotient" #t) k1117 x90 y91))
|
|
(let ((k1136 (##core#lambda
|
|
(r1137)
|
|
(let ((r1153 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
r1137
|
|
y91)))
|
|
(let ((r1140 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
x90
|
|
r1153)))
|
|
(let ((r1146 (##core#inline "C_i_nequalp" r1140 0)))
|
|
(k1101 (##core#cond
|
|
r1146
|
|
0
|
|
(##core#inline_allocate
|
|
("C_a_i_plus" 4)
|
|
r1140
|
|
y91)))))))))
|
|
((##core#proc "C_quotient" #t) k1136 x90 y91)))))))
|
|
(let ((k1155 (##core#lambda
|
|
(r1156)
|
|
(if r1156
|
|
(let ((k1161 (##core#lambda
|
|
(r1162)
|
|
(k1105 (##core#cond
|
|
r1162
|
|
(##core#inline "C_i_greater_or_equalp" x90 0)
|
|
#f)))))
|
|
(exact-integer? k1161 y91))
|
|
(k1105 #f)))))
|
|
(exact-integer? k1155 x90)))))))
|
|
(let ((t1167 (set! random-state
|
|
#f
|
|
(lambda (k1169 n103)
|
|
(k1169 (##core#inline_allocate ("C_a_i_cons" 3) n103 #f))))))
|
|
(let ((t1173 (set! rand
|
|
#f
|
|
(lambda (k1175 state105)
|
|
(let ((r1177 (##core#inline "C_i_car" state105)))
|
|
(let ((seed106 r1177))
|
|
(let ((k1179 (##core#lambda
|
|
(r1180)
|
|
(let ((hi111 r1180))
|
|
(let ((k1182 (##core#lambda
|
|
(r1183)
|
|
(let ((r1202 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
2813
|
|
r1183)))
|
|
(let ((r1206 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
2699
|
|
hi111)))
|
|
(let ((r1186 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
r1202
|
|
r1206)))
|
|
(let ((r1195 (##core#inline "C_i_greaterp" r1186 0)))
|
|
(let ((r1189 (##core#cond
|
|
r1195
|
|
r1186
|
|
(##core#inline_allocate
|
|
("C_a_i_plus" 4)
|
|
r1186
|
|
8388607))))
|
|
(let ((r1192 (##core#inline "C_i_set_car" state105 r1189)))
|
|
(k1175 r1189))))))))))
|
|
(mod k1182 seed106 2787))))))
|
|
(div k1179 seed106 2787))))))))
|
|
(let ((t1208 (set! random-int
|
|
#f
|
|
(lambda (k1210 n117 state118)
|
|
(let ((k1215 (##core#lambda (r1216) (mod k1210 r1216 n117))))
|
|
(rand k1215 state118))))))
|
|
(let ((t1218 (set! base-set
|
|
#f
|
|
(lambda (k1220 nelts120)
|
|
(k1220 (##core#inline_allocate
|
|
("C_a_i_cons" 3)
|
|
nelts120
|
|
'()))))))
|
|
(let ((t1224 (set! get-set-root
|
|
#f
|
|
(lambda (k1226 s122)
|
|
(let ((lp123 (##core#undefined)))
|
|
(let ((t1230 (set! lp123
|
|
#f
|
|
(lambda (k1232 r124)
|
|
(let ((r1234 (##core#inline "C_i_cdr" r124)))
|
|
(if (##core#inline "C_i_pairp" r1234)
|
|
(lp123 k1232 r1234)
|
|
(let ((k1245 (##core#lambda (r1246) (k1232 r124))))
|
|
(let ((r1278 (##core#inline "C_eqp" r124 s122)))
|
|
(if r1278
|
|
(k1245 (##core#undefined))
|
|
(let ((lp130 (##core#undefined)))
|
|
(let ((t1254 (set! lp130
|
|
#f
|
|
(lambda (k1256 x131)
|
|
(let ((r1258 (##core#inline "C_i_cdr" x131)))
|
|
(let ((r1274 (##core#inline "C_eqp" r124 r1258)))
|
|
(if r1274
|
|
(k1256 (##core#undefined))
|
|
(let ((r1267 (##core#inline "C_i_set_cdr" x131 r124)))
|
|
(lp130 k1256 r1258)))))))))
|
|
(lp130 k1245 s122))))))))))))
|
|
(lp123 k1226 s122)))))))
|
|
(let ((t1280 (set! set-equal?
|
|
#f
|
|
(lambda (k1282 s1142 s2143)
|
|
(let ((k1287 (##core#lambda
|
|
(r1288)
|
|
(let ((a1286 r1288))
|
|
(let ((k1291 (##core#lambda
|
|
(r1292)
|
|
(k1282 (##core#inline "C_eqp" a1286 r1292)))))
|
|
(get-set-root k1291 s2143))))))
|
|
(get-set-root k1287 s1142))))))
|
|
(let ((t1294 (set! set-size
|
|
#f
|
|
(lambda (k1296 s145)
|
|
(let ((k1301 (##core#lambda
|
|
(r1302)
|
|
(k1296 (##core#inline "C_i_car" r1302)))))
|
|
(get-set-root k1301 s145))))))
|
|
(let ((t1304 (set! union!
|
|
#f
|
|
(lambda (k1306 s1147 s2148)
|
|
(let ((k1307 (##core#lambda
|
|
(r1308)
|
|
(let ((r1149 r1308))
|
|
(let ((k1310 (##core#lambda
|
|
(r1311)
|
|
(let ((r2150 r1311))
|
|
(let ((k1313 (##core#lambda
|
|
(r1314)
|
|
(let ((n1151 r1314))
|
|
(let ((k1316 (##core#lambda
|
|
(r1317)
|
|
(let ((r1320 (##core#inline_allocate
|
|
("C_a_i_plus" 4)
|
|
n1151
|
|
r1317)))
|
|
(if (##core#inline "C_i_greaterp" n1151 r1317)
|
|
(let ((r1329 (##core#inline "C_i_set_cdr" r2150 r1149)))
|
|
(k1306 (##core#inline "C_i_set_car" r1149 r1320)))
|
|
(let ((r1335 (##core#inline "C_i_set_cdr" r1149 r2150)))
|
|
(k1306 (##core#inline "C_i_set_car" r2150 r1320))))))))
|
|
(set-size k1316 r2150))))))
|
|
(set-size k1313 r1149))))))
|
|
(get-set-root k1310 s2148))))))
|
|
(get-set-root k1307 s1147))))))
|
|
(let ((t1340 (set! make-wall
|
|
#f
|
|
(lambda (k1342 owner161 neighbor162 bit163)
|
|
(k1342 (##core#inline_allocate
|
|
("C_a_i_vector4" 5)
|
|
'wall
|
|
owner161
|
|
neighbor162
|
|
bit163))))))
|
|
(let ((t1346 (set! wall:owner
|
|
#f
|
|
(lambda (k1348 o165)
|
|
(k1348 (##core#inline "C_i_vector_ref" o165 1))))))
|
|
(let ((t1352 (set! set-wall:owner
|
|
#f
|
|
(lambda (k1354 o167 v168)
|
|
(k1354 (##core#inline "C_i_vector_set" o167 1 v168))))))
|
|
(let ((t1358 (set! wall:neighbor
|
|
#f
|
|
(lambda (k1360 o170)
|
|
(k1360 (##core#inline "C_i_vector_ref" o170 2))))))
|
|
(let ((t1364 (set! set-wall:neighbor
|
|
#f
|
|
(lambda (k1366 o172 v173)
|
|
(k1366 (##core#inline "C_i_vector_set" o172 2 v173))))))
|
|
(let ((t1370 (set! wall:bit
|
|
#f
|
|
(lambda (k1372 o175)
|
|
(k1372 (##core#inline "C_i_vector_ref" o175 3))))))
|
|
(let ((t1376 (set! set-wall:bit
|
|
#f
|
|
(lambda (k1378 o177 v178)
|
|
(k1378 (##core#inline "C_i_vector_set" o177 3 v178))))))
|
|
(let ((t1382 (set! make-cell
|
|
#f
|
|
(lambda (k1384 reachable180 id181)
|
|
(k1384 (##core#inline_allocate
|
|
("C_a_i_vector6" 7)
|
|
'cell
|
|
reachable180
|
|
id181
|
|
-1
|
|
#f
|
|
#f))))))
|
|
(let ((t1388 (set! cell:reachable
|
|
#f
|
|
(lambda (k1390 o183)
|
|
(k1390 (##core#inline "C_i_vector_ref" o183 1))))))
|
|
(let ((t1394 (set! set-cell:reachable
|
|
#f
|
|
(lambda (k1396 o185 v186)
|
|
(k1396 (##core#inline "C_i_vector_set" o185 1 v186))))))
|
|
(let ((t1400 (set! cell:id
|
|
#f
|
|
(lambda (k1402 o188)
|
|
(k1402 (##core#inline "C_i_vector_ref" o188 2))))))
|
|
(let ((t1406 (set! set-cell:id
|
|
#f
|
|
(lambda (k1408 o190 v191)
|
|
(k1408 (##core#inline "C_i_vector_set" o190 2 v191))))))
|
|
(let ((t1412 (set! cell:walls
|
|
#f
|
|
(lambda (k1414 o193)
|
|
(k1414 (##core#inline "C_i_vector_ref" o193 3))))))
|
|
(let ((t1418 (set! set-cell:walls
|
|
#f
|
|
(lambda (k1420 o195 v196)
|
|
(k1420 (##core#inline "C_i_vector_set" o195 3 v196))))))
|
|
(let ((t1424 (set! cell:parent
|
|
#f
|
|
(lambda (k1426 o198)
|
|
(k1426 (##core#inline "C_i_vector_ref" o198 4))))))
|
|
(let ((t1430 (set! set-cell:parent
|
|
#f
|
|
(lambda (k1432 o200 v201)
|
|
(k1432 (##core#inline "C_i_vector_set" o200 4 v201))))))
|
|
(let ((t1436 (set! cell:mark
|
|
#f
|
|
(lambda (k1438 o203)
|
|
(k1438 (##core#inline "C_i_vector_ref" o203 5))))))
|
|
(let ((t1442 (set! set-cell:mark
|
|
#f
|
|
(lambda (k1444 o205 v206)
|
|
(k1444 (##core#inline "C_i_vector_set" o205 5 v206))))))
|
|
(let ((t1448 (set! vector-for-each-rev
|
|
#f
|
|
(lambda (k1450 proc208 v209)
|
|
(let ((r1483 (##core#inline "C_i_vector_length" v209)))
|
|
(let ((r1456 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
r1483
|
|
1)))
|
|
(let ((lp210 (##core#undefined)))
|
|
(let ((t1458 (set! lp210
|
|
#f
|
|
(lambda (k1460 i211)
|
|
(if (##core#inline "C_i_greater_or_equalp" i211 0)
|
|
(let ((k1467 (##core#lambda
|
|
(r1468)
|
|
(let ((r1475 (##core#inline_allocate ("C_a_i_minus" 4) i211 1)))
|
|
(lp210 k1460 r1475)))))
|
|
(let ((r1479 (##core#inline "C_i_vector_ref" v209 i211)))
|
|
(proc208 k1467 r1479)))
|
|
(k1460 (##core#undefined)))))))
|
|
(lp210 k1450 r1456)))))))))
|
|
(let ((t1485 (set! permute-vec!
|
|
#f
|
|
(lambda (k1487 v219 random-state220)
|
|
(let ((k1488 (##core#lambda (r1489) (k1487 v219))))
|
|
(let ((r1529 (##core#inline "C_i_vector_length" v219)))
|
|
(let ((r1493 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
r1529
|
|
1)))
|
|
(let ((lp221 (##core#undefined)))
|
|
(let ((t1495 (set! lp221
|
|
#f
|
|
(lambda (k1497 i222)
|
|
(if (##core#inline "C_i_greaterp" i222 1)
|
|
(let ((r1505 (##core#inline "C_i_vector_ref" v219 i222)))
|
|
(let ((elt-i227 r1505))
|
|
(let ((k1507 (##core#lambda
|
|
(r1508)
|
|
(let ((r1525 (##core#inline "C_i_vector_ref" v219 r1508)))
|
|
(let ((r1511 (##core#inline "C_i_vector_set" v219 i222 r1525)))
|
|
(let ((r1514 (##core#inline
|
|
"C_i_vector_set"
|
|
v219
|
|
r1508
|
|
elt-i227)))
|
|
(let ((r1521 (##core#inline_allocate ("C_a_i_minus" 4) i222 1)))
|
|
(lp221 k1497 r1521))))))))
|
|
(random-int k1507 i222 random-state220))))
|
|
(k1497 (##core#undefined)))))))
|
|
(lp221 k1488 r1493))))))))))
|
|
(let ((t1531 (set! dig-maze
|
|
#f
|
|
(lambda (k1533 walls234 ncells235)
|
|
(let ((a1537 (lambda (k1539 quit236)
|
|
(let ((a1543 (lambda (k1545 wall237)
|
|
(let ((k1546 (##core#lambda
|
|
(r1547)
|
|
(let ((c1238 r1547))
|
|
(let ((k1549 (##core#lambda
|
|
(r1550)
|
|
(let ((set1239 r1550))
|
|
(let ((k1552 (##core#lambda
|
|
(r1553)
|
|
(let ((k1555 (##core#lambda
|
|
(r1556)
|
|
(let ((set2241 r1556))
|
|
(let ((k1598 (##core#lambda
|
|
(r1599)
|
|
(if r1599
|
|
(k1545 (##core#undefined))
|
|
(let ((k1564 (##core#lambda
|
|
(r1565)
|
|
(let ((walls242 r1565))
|
|
(let ((k1594 (##core#lambda
|
|
(r1595)
|
|
(let ((r1568 (##core#inline_allocate
|
|
("C_a_i_bitwise_not" 4)
|
|
r1595)))
|
|
(let ((wall-mask243 r1568))
|
|
(let ((k1570 (##core#lambda
|
|
(r1571)
|
|
(let ((k1573 (##core#lambda
|
|
(r1574)
|
|
(let ((k1586 (##core#lambda
|
|
(r1587)
|
|
(if (##core#inline "C_i_nequalp" r1587 ncells235)
|
|
(quit236 k1545 #f)
|
|
(k1545 (##core#undefined))))))
|
|
(set-size k1586 set1239)))))
|
|
(let ((r1591 (##core#inline_allocate
|
|
("C_a_i_bitwise_and" 4)
|
|
walls242
|
|
wall-mask243)))
|
|
(set-cell:walls k1573 c1238 r1591))))))
|
|
(union! k1570 set1239 set2241)))))))
|
|
(wall:bit k1594 wall237))))))
|
|
(cell:walls k1564 c1238))))))
|
|
(set-equal? k1598 set1239 set2241))))))
|
|
(cell:reachable k1555 r1553)))))
|
|
(wall:neighbor k1552 wall237))))))
|
|
(cell:reachable k1549 c1238))))))
|
|
(wall:owner k1546 wall237)))))
|
|
(vector-for-each-rev k1539 a1543 walls234)))))
|
|
(call-with-current-continuation k1533 a1537))))))
|
|
(let ((t1601 (set! dfs-maze
|
|
#f
|
|
(lambda (k1603 maze247 root248 do-children249)
|
|
(let ((search250 (##core#undefined)))
|
|
(let ((t1607 (set! search250
|
|
#f
|
|
(lambda (k1609 node251 parent252)
|
|
(let ((k1610 (##core#lambda
|
|
(r1611)
|
|
(let ((a1616 (lambda (k1618 child253)
|
|
(let ((r1630 (##core#inline "C_eqp" child253 parent252)))
|
|
(if r1630
|
|
(k1618 (##core#undefined))
|
|
(search250 k1618 child253 node251))))))
|
|
(do-children249 k1609 a1616 maze247 node251)))))
|
|
(set-cell:parent k1610 node251 parent252))))))
|
|
(search250 k1603 root248 #f)))))))
|
|
(let ((t1632 (set! reroot-maze
|
|
#f
|
|
(lambda (k1634 new-root257)
|
|
(let ((lp258 (##core#undefined)))
|
|
(let ((t1638 (set! lp258
|
|
#f
|
|
(lambda (k1640 node259 new-parent260)
|
|
(let ((k1641 (##core#lambda
|
|
(r1642)
|
|
(let ((old-parent261 r1642))
|
|
(let ((k1644 (##core#lambda
|
|
(r1645)
|
|
(if old-parent261
|
|
(lp258 k1640 old-parent261 node259)
|
|
(k1640 (##core#undefined))))))
|
|
(set-cell:parent k1644 node259 new-parent260))))))
|
|
(cell:parent k1641 node259))))))
|
|
(lp258 k1634 new-root257 #f)))))))
|
|
(let ((t1653 (set! path-length
|
|
#f
|
|
(lambda (k1655 cell265)
|
|
(let ((k1660 (##core#lambda
|
|
(r1661)
|
|
(let ((doloop266267 (##core#undefined)))
|
|
(let ((t1663 (set! doloop266267
|
|
#f
|
|
(lambda (k1665 len268 node269)
|
|
(let ((r1670 node269))
|
|
(if r1670
|
|
(let ((r1677 (##core#inline_allocate
|
|
("C_a_i_plus" 4)
|
|
len268
|
|
1)))
|
|
(let ((a1675 r1677))
|
|
(let ((k1680 (##core#lambda
|
|
(r1681)
|
|
(doloop266267 k1665 a1675 r1681))))
|
|
(cell:parent k1680 node269))))
|
|
(k1665 len268)))))))
|
|
(doloop266267 k1655 0 r1661))))))
|
|
(cell:parent k1660 cell265))))))
|
|
(let ((t1683 (set! mark-path
|
|
#f
|
|
(lambda (k1685 node272)
|
|
(let ((lp273 (##core#undefined)))
|
|
(let ((t1689 (set! lp273
|
|
#f
|
|
(lambda (k1691 node274)
|
|
(let ((k1692 (##core#lambda
|
|
(r1693)
|
|
(let ((k1695 (##core#lambda
|
|
(r1696)
|
|
(if r1696
|
|
(lp273 k1691 r1696)
|
|
(k1691 (##core#undefined))))))
|
|
(cell:parent k1695 node274)))))
|
|
(set-cell:mark k1692 node274 #t))))))
|
|
(lp273 k1685 node272)))))))
|
|
(let ((t1704 (set! make-harr
|
|
#f
|
|
(lambda (k1706 nrows284 ncols285 elts286)
|
|
(k1706 (##core#inline_allocate
|
|
("C_a_i_vector4" 5)
|
|
'harr
|
|
nrows284
|
|
ncols285
|
|
elts286))))))
|
|
(let ((t1710 (set! harr:nrows
|
|
#f
|
|
(lambda (k1712 o288)
|
|
(k1712 (##core#inline "C_i_vector_ref" o288 1))))))
|
|
(let ((t1716 (set! set-harr:nrows
|
|
#f
|
|
(lambda (k1718 o290 v291)
|
|
(k1718 (##core#inline "C_i_vector_set" o290 1 v291))))))
|
|
(let ((t1722 (set! harr:ncols
|
|
#f
|
|
(lambda (k1724 o293)
|
|
(k1724 (##core#inline "C_i_vector_ref" o293 2))))))
|
|
(let ((t1728 (set! set-harr:ncols
|
|
#f
|
|
(lambda (k1730 o295 v296)
|
|
(k1730 (##core#inline "C_i_vector_set" o295 2 v296))))))
|
|
(let ((t1734 (set! harr:elts
|
|
#f
|
|
(lambda (k1736 o298)
|
|
(k1736 (##core#inline "C_i_vector_ref" o298 3))))))
|
|
(let ((t1740 (set! set-harr:elts
|
|
#f
|
|
(lambda (k1742 o300 v301)
|
|
(k1742 (##core#inline "C_i_vector_set" o300 3 v301))))))
|
|
(let ((t1746 (set! harr
|
|
#f
|
|
(lambda (k1748 r303 c304)
|
|
(let ((k1753 (##core#lambda
|
|
(r1754)
|
|
(make-harr k1748 r303 c304 r1754))))
|
|
(let ((r1758 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
r303
|
|
c304)))
|
|
(make-vector k1753 r1758)))))))
|
|
(let ((t1760 (set! href
|
|
#f
|
|
(lambda (k1762 ha306 x307 y308)
|
|
(let ((k1763 (##core#lambda
|
|
(r1764)
|
|
(let ((r309 r1764))
|
|
(let ((k1766 (##core#lambda
|
|
(r1767)
|
|
(let ((c310 r1767))
|
|
(let ((k1773 (##core#lambda
|
|
(r1774)
|
|
(let ((a1772 r1774))
|
|
(let ((k1785 (##core#lambda
|
|
(r1786)
|
|
(let ((r1782 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
r1786
|
|
r309)))
|
|
(let ((r1778 (##core#inline_allocate
|
|
("C_a_i_plus" 4)
|
|
r1782
|
|
c310)))
|
|
(k1762 (##core#inline "C_i_vector_ref" a1772 r1778)))))))
|
|
(harr:ncols k1785 ha306))))))
|
|
(harr:elts k1773 ha306))))))
|
|
(div k1766 x307 3))))))
|
|
(div k1763 y308 2))))))
|
|
(let ((t1788 (set! hset!
|
|
#f
|
|
(lambda (k1790 ha312 x313 y314 val315)
|
|
(let ((k1791 (##core#lambda
|
|
(r1792)
|
|
(let ((r316 r1792))
|
|
(let ((k1794 (##core#lambda
|
|
(r1795)
|
|
(let ((c317 r1795))
|
|
(let ((k1801 (##core#lambda
|
|
(r1802)
|
|
(let ((a1800 r1802))
|
|
(let ((k1813 (##core#lambda
|
|
(r1814)
|
|
(let ((r1810 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
r1814
|
|
r316)))
|
|
(let ((r1806 (##core#inline_allocate
|
|
("C_a_i_plus" 4)
|
|
r1810
|
|
c317)))
|
|
(k1790 (##core#inline
|
|
"C_i_vector_set"
|
|
a1800
|
|
r1806
|
|
val315)))))))
|
|
(harr:ncols k1813 ha312))))))
|
|
(harr:elts k1801 ha312))))))
|
|
(div k1794 x313 3))))))
|
|
(div k1791 y314 2))))))
|
|
(let ((t1816 (set! href/rc
|
|
#f
|
|
(lambda (k1818 ha319 r320 c321)
|
|
(let ((k1823 (##core#lambda
|
|
(r1824)
|
|
(let ((a1822 r1824))
|
|
(let ((k1835 (##core#lambda
|
|
(r1836)
|
|
(let ((r1832 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
r1836
|
|
r320)))
|
|
(let ((r1828 (##core#inline_allocate
|
|
("C_a_i_plus" 4)
|
|
r1832
|
|
c321)))
|
|
(k1818 (##core#inline "C_i_vector_ref" a1822 r1828)))))))
|
|
(harr:ncols k1835 ha319))))))
|
|
(harr:elts k1823 ha319))))))
|
|
(let ((t1838 (set! harr-tabulate
|
|
#f
|
|
(lambda (k1840 nrows323 ncols324 proc325)
|
|
(let ((k1841 (##core#lambda
|
|
(r1842)
|
|
(let ((v326 r1842))
|
|
(let ((k1844 (##core#lambda
|
|
(r1845)
|
|
(make-harr k1840 nrows323 ncols324 v326))))
|
|
(let ((r1852 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
nrows323
|
|
1)))
|
|
(let ((doloop327328 (##core#undefined)))
|
|
(let ((t1854 (set! doloop327328
|
|
#f
|
|
(lambda (k1856 r329)
|
|
(if (##core#inline "C_i_lessp" r329 0)
|
|
(k1856 (##core#undefined))
|
|
(let ((k1863 (##core#lambda
|
|
(r1864)
|
|
(let ((r1871 (##core#inline_allocate ("C_a_i_minus" 4) r329 1)))
|
|
(doloop327328 k1856 r1871)))))
|
|
(let ((r1875 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
r329
|
|
ncols324)))
|
|
(let ((doloop330331 (##core#undefined)))
|
|
(let ((t1877 (set! doloop330331
|
|
#f
|
|
(lambda (k1879 c332 i333)
|
|
(if (##core#inline "C_i_nequalp" c332 ncols324)
|
|
(k1879 (##core#undefined))
|
|
(let ((k1901 (##core#lambda
|
|
(r1902)
|
|
(let ((r1887 (##core#inline "C_i_vector_set" v326 i333 r1902)))
|
|
(let ((r1894 (##core#inline_allocate ("C_a_i_plus" 4) c332 1)))
|
|
(let ((r1898 (##core#inline_allocate ("C_a_i_plus" 4) i333 1)))
|
|
(doloop330331 k1879 r1894 r1898)))))))
|
|
(let ((r1906 (##core#inline_allocate ("C_a_i_times" 4) 3 c332)))
|
|
(let ((r1914 (##core#inline_allocate ("C_a_i_times" 4) 2 r329)))
|
|
(let ((r1918 (##core#inline_allocate
|
|
("C_a_i_bitwise_and" 4)
|
|
c332
|
|
1)))
|
|
(let ((r1910 (##core#inline_allocate
|
|
("C_a_i_plus" 4)
|
|
r1914
|
|
r1918)))
|
|
(proc325 k1901 r1906 r1910)))))))))))
|
|
(doloop330331 k1863 0 r1875))))))))))
|
|
(doloop327328 k1844 r1852)))))))))
|
|
(let ((r1922 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
nrows323
|
|
ncols324)))
|
|
(make-vector k1841 r1922)))))))
|
|
(let ((t1924 (set! harr-for-each
|
|
#f
|
|
(lambda (k1926 proc340 harr341)
|
|
(let ((k1931 (##core#lambda
|
|
(r1932)
|
|
(vector-for-each-rev k1926 proc340 r1932))))
|
|
(harr:elts k1931 harr341))))))
|
|
(let ((t1934 (set! south-west #t 1)))
|
|
(let ((t1935 (set! south #t 2)))
|
|
(let ((t1936 (set! south-east #t 4)))
|
|
(let ((t1937 (set! gen-maze-array
|
|
#f
|
|
(lambda (k1939 r346 c347)
|
|
(let ((a1943 (lambda (k1945 x348 y349)
|
|
(let ((k1950 (##core#lambda
|
|
(r1951)
|
|
(let ((r1955 (##core#inline_allocate
|
|
("C_a_i_cons" 3)
|
|
x348
|
|
y349)))
|
|
(make-cell k1945 r1951 r1955)))))
|
|
(base-set k1950 1)))))
|
|
(harr-tabulate k1939 r346 c347 a1943))))))
|
|
(let ((t1957 (set! make-wall-vec
|
|
#f
|
|
(lambda (k1959 harr351)
|
|
(let ((k1960 (##core#lambda
|
|
(r1961)
|
|
(let ((nrows352 r1961))
|
|
(let ((k1963 (##core#lambda
|
|
(r1964)
|
|
(let ((ncols353 r1964))
|
|
(let ((r2207 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
ncols353
|
|
1)))
|
|
(let ((r1967 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
3
|
|
r2207)))
|
|
(let ((xmax354 r1967))
|
|
(let ((walls355 '()))
|
|
(let ((add-wall356
|
|
(lambda (k1970 o357 n358 b359)
|
|
(let ((k1976 (##core#lambda
|
|
(r1977)
|
|
(let ((r1973 (##core#inline_allocate
|
|
("C_a_i_cons" 3)
|
|
r1977
|
|
walls355)))
|
|
(let ((t1971 (set! walls355 #f r1973)))
|
|
(k1970 t1971))))))
|
|
(make-wall k1976 o357 n358 b359)))))
|
|
(let ((k1979 (##core#lambda
|
|
(r1980)
|
|
(let ((k1982 (##core#lambda
|
|
(r1983)
|
|
(vector-lib#list->vector k1959 walls355))))
|
|
(if (##core#inline "C_i_greaterp" ncols353 1)
|
|
(let ((k2079 (##core#lambda
|
|
(r2080)
|
|
(let ((r2076 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
6
|
|
r2080)))
|
|
(let ((r1992 (##core#inline_allocate ("C_a_i_plus" 4) 3 r2076)))
|
|
(let ((rmoc-x373 r1992))
|
|
(let ((k1994 (##core#lambda
|
|
(r1995)
|
|
(let ((rmoc-hex374 r1995))
|
|
(let ((k1997 (##core#lambda
|
|
(r1998)
|
|
(let ((k2000 (##core#lambda
|
|
(r2001)
|
|
(let ((r2008 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
rmoc-x373
|
|
6)))
|
|
(let ((doloop376377 (##core#undefined)))
|
|
(let ((t2010 (set! doloop376377
|
|
#f
|
|
(lambda (k2012 x378)
|
|
(if (##core#inline "C_i_lessp" x378 3)
|
|
(k2012 (##core#undefined))
|
|
(let ((k2019 (##core#lambda
|
|
(r2020)
|
|
(let ((k2022 (##core#lambda
|
|
(r2023)
|
|
(let ((r2030 (##core#inline_allocate ("C_a_i_minus" 4) x378 6)))
|
|
(doloop376377 k2012 r2030)))))
|
|
(let ((k2033 (##core#lambda
|
|
(r2034)
|
|
(let ((a2032 r2034))
|
|
(let ((k2037 (##core#lambda
|
|
(r2038)
|
|
(add-wall356 k2022 a2032 r2038 south-east))))
|
|
(let ((r2042 (##core#inline_allocate ("C_a_i_plus" 4) x378 3)))
|
|
(href k2037 harr351 r2042 0)))))))
|
|
(href k2033 harr351 x378 1))))))
|
|
(let ((k2045 (##core#lambda
|
|
(r2046)
|
|
(let ((a2044 r2046))
|
|
(let ((k2049 (##core#lambda
|
|
(r2050)
|
|
(add-wall356 k2019 a2044 r2050 south-west))))
|
|
(let ((r2054 (##core#inline_allocate ("C_a_i_minus" 4) x378 3)))
|
|
(href k2049 harr351 r2054 0)))))))
|
|
(href k2045 harr351 x378 1))))))))
|
|
(doloop376377 k1982 r2008)))))))
|
|
(let ((k2057 (##core#lambda
|
|
(r2058)
|
|
(add-wall356 k2000 rmoc-hex374 r2058 south-west))))
|
|
(let ((r2062 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
rmoc-x373
|
|
3)))
|
|
(href k2057 harr351 r2062 0)))))))
|
|
(if (##core#inline "C_i_lessp" rmoc-x373 xmax354)
|
|
(let ((k2071 (##core#lambda
|
|
(r2072)
|
|
(add-wall356 k1997 rmoc-hex374 r2072 south-east))))
|
|
(href k2071 harr351 xmax354 0))
|
|
(k1997 (##core#undefined))))))))
|
|
(href k1994 harr351 rmoc-x373 1))))))))
|
|
(let ((r2084 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
ncols353
|
|
2)))
|
|
(div k2079 r2084 2)))
|
|
(k1982 (##core#undefined)))))))
|
|
(let ((r2203 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
ncols353
|
|
1)))
|
|
(let ((r2088 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
r2203
|
|
3)))
|
|
(let ((doloop360361 (##core#undefined)))
|
|
(let ((t2090 (set! doloop360361
|
|
#f
|
|
(lambda (k2092 x362)
|
|
(if (##core#inline "C_i_lessp" x362 0)
|
|
(k2092 (##core#undefined))
|
|
(let ((k2099 (##core#lambda
|
|
(r2100)
|
|
(let ((r2107 (##core#inline_allocate ("C_a_i_minus" 4) x362 3)))
|
|
(doloop360361 k2092 r2107)))))
|
|
(let ((r2199 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
nrows352
|
|
1)))
|
|
(let ((r2191 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
r2199
|
|
2)))
|
|
(let ((r2195 (##core#inline_allocate
|
|
("C_a_i_bitwise_and" 4)
|
|
x362
|
|
1)))
|
|
(let ((r2111 (##core#inline_allocate
|
|
("C_a_i_plus" 4)
|
|
r2191
|
|
r2195)))
|
|
(let ((doloop363364 (##core#undefined)))
|
|
(let ((t2113 (set! doloop363364
|
|
#f
|
|
(lambda (k2115 y365)
|
|
(if (##core#inline "C_i_less_or_equalp" y365 1)
|
|
(k2115 (##core#undefined))
|
|
(let ((k2122 (##core#lambda
|
|
(r2123)
|
|
(let ((hex366 r2123))
|
|
(let ((k2125 (##core#lambda
|
|
(r2126)
|
|
(let ((k2128 (##core#lambda
|
|
(r2129)
|
|
(let ((k2131 (##core#lambda
|
|
(r2132)
|
|
(let ((r2139 (##core#inline_allocate ("C_a_i_minus" 4) y365 2)))
|
|
(doloop363364 k2115 r2139)))))
|
|
(if (##core#inline "C_i_lessp" x362 xmax354)
|
|
(let ((k2148 (##core#lambda
|
|
(r2149)
|
|
(add-wall356 k2131 hex366 r2149 south-east))))
|
|
(let ((r2153 (##core#inline_allocate ("C_a_i_plus" 4) x362 3)))
|
|
(let ((r2157 (##core#inline_allocate ("C_a_i_minus" 4) y365 1)))
|
|
(href k2148 harr351 r2153 r2157))))
|
|
(k2131 (##core#undefined)))))))
|
|
(let ((k2160 (##core#lambda
|
|
(r2161)
|
|
(add-wall356 k2128 hex366 r2161 south))))
|
|
(let ((r2165 (##core#inline_allocate ("C_a_i_minus" 4) y365 2)))
|
|
(href k2160 harr351 x362 r2165)))))))
|
|
(if (##core#inline "C_i_zerop" x362)
|
|
(k2125 (##core#undefined))
|
|
(let ((k2174 (##core#lambda
|
|
(r2175)
|
|
(add-wall356 k2125 hex366 r2175 south-west))))
|
|
(let ((r2179 (##core#inline_allocate ("C_a_i_minus" 4) x362 3)))
|
|
(let ((r2183 (##core#inline_allocate ("C_a_i_minus" 4) y365 1)))
|
|
(href k2174 harr351 r2179 r2183))))))))))
|
|
(href k2122 harr351 x362 y365)))))))
|
|
(doloop363364 k2099 r2111)))))))))))))
|
|
(doloop360361 k1979 r2088)))))))))))))))
|
|
(harr:ncols k1963 harr351))))))
|
|
(harr:nrows k1960 harr351))))))
|
|
(let ((t2209 (set! pick-entrances
|
|
#f
|
|
(lambda (k2211 harr386)
|
|
(let ((k2212 (##core#lambda
|
|
(r2213)
|
|
(let ((k2215 (##core#lambda
|
|
(r2216)
|
|
(let ((nrows387 r2216))
|
|
(let ((k2218 (##core#lambda
|
|
(r2219)
|
|
(let ((ncols388 r2219))
|
|
(let ((r2226 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
ncols388
|
|
1)))
|
|
(let ((tp-lp389 (##core#undefined)))
|
|
(let ((t2228 (set! tp-lp389
|
|
#f
|
|
(lambda (k2230 max-len390 entrance391 exit392 tcol393)
|
|
(if (##core#inline "C_i_lessp" tcol393 0)
|
|
(k2230 (##core#inline_allocate
|
|
("C_a_i_vector2" 3)
|
|
entrance391
|
|
exit392))
|
|
(let ((k2240 (##core#lambda
|
|
(r2241)
|
|
(let ((k2243 (##core#lambda
|
|
(r2244)
|
|
(let ((k2246 (##core#lambda
|
|
(r2247)
|
|
(let ((r2250 (##core#inline "C_i_vector_ref" r2247 0)))
|
|
(let ((r2253 (##core#inline "C_i_vector_ref" r2247 1)))
|
|
(let ((r2256 (##core#inline "C_i_vector_ref" r2247 2)))
|
|
(let ((r2263 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
tcol393
|
|
1)))
|
|
(tp-lp389 k2230 r2250 r2253 r2256 r2263))))))))
|
|
(let ((r2267 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
ncols388
|
|
1)))
|
|
(let ((bt-lp396 (##core#undefined)))
|
|
(let ((t2269 (set! bt-lp396
|
|
#f
|
|
(lambda (k2271 max-len397 entrance398 exit399 bcol400)
|
|
(if (##core#inline "C_i_lessp" bcol400 0)
|
|
(k2271 (##core#inline_allocate
|
|
("C_a_i_vector3" 4)
|
|
max-len397
|
|
entrance398
|
|
exit399))
|
|
(let ((k2281 (##core#lambda
|
|
(r2282)
|
|
(if (##core#inline "C_i_greaterp" r2282 max-len397)
|
|
(let ((r2295 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
bcol400
|
|
1)))
|
|
(bt-lp396 k2271 r2282 tcol393 bcol400 r2295))
|
|
(let ((r2302 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
bcol400
|
|
1)))
|
|
(bt-lp396
|
|
k2271
|
|
max-len397
|
|
entrance398
|
|
exit399
|
|
r2302))))))
|
|
(let ((k2305 (##core#lambda (r2306) (path-length k2281 r2306))))
|
|
(href/rc k2305 harr386 0 bcol400))))))))
|
|
(bt-lp396
|
|
k2246
|
|
max-len390
|
|
entrance391
|
|
exit392
|
|
r2267))))))))
|
|
(reroot-maze k2243 r2241)))))
|
|
(let ((r2310 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
nrows387
|
|
1)))
|
|
(href/rc k2240 harr386 r2310 tcol393))))))))
|
|
(tp-lp389 k2211 -1 #f #f r2226))))))))
|
|
(harr:ncols k2218 harr386))))))
|
|
(harr:nrows k2215 harr386)))))
|
|
(let ((k2313 (##core#lambda
|
|
(r2314)
|
|
(dfs-maze k2212 harr386 r2314 for-each-hex-child))))
|
|
(href/rc k2313 harr386 0 0)))))))
|
|
(let ((t2316 (set! for-each-hex-child
|
|
#f
|
|
(lambda (k2318 proc410 harr411 cell412)
|
|
(let ((k2319 (##core#lambda
|
|
(r2320)
|
|
(let ((walls413 r2320))
|
|
(let ((k2322 (##core#lambda
|
|
(r2323)
|
|
(let ((r2326 (##core#inline "C_i_car" r2323)))
|
|
(let ((x415 r2326))
|
|
(let ((r2329 (##core#inline "C_i_cdr" r2323)))
|
|
(let ((y416 r2329))
|
|
(let ((k2331 (##core#lambda
|
|
(r2332)
|
|
(let ((nr417 r2332))
|
|
(let ((k2334 (##core#lambda
|
|
(r2335)
|
|
(let ((r2550 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
nr417
|
|
1)))
|
|
(let ((r2338 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
2
|
|
r2550)))
|
|
(let ((maxy419 r2338))
|
|
(let ((r2546 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
r2335
|
|
1)))
|
|
(let ((r2341 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
3
|
|
r2546)))
|
|
(let ((maxx420 r2341))
|
|
(let ((k2343 (##core#lambda
|
|
(r2344)
|
|
(let ((k2346 (##core#lambda
|
|
(r2347)
|
|
(let ((k2349 (##core#lambda
|
|
(r2350)
|
|
(let ((k2352 (##core#lambda
|
|
(r2353)
|
|
(let ((k2355 (##core#lambda
|
|
(r2356)
|
|
(let ((k2361 (##core#lambda
|
|
(r2362)
|
|
(if r2362
|
|
(let ((k2364 (##core#lambda
|
|
(r2365)
|
|
(let ((ne431 r2365))
|
|
(let ((k2377 (##core#lambda
|
|
(r2378)
|
|
(if r2378
|
|
(k2318 (##core#undefined))
|
|
(proc410 k2318 ne431)))))
|
|
(let ((k2381 (##core#lambda
|
|
(r2382)
|
|
(bit-test k2377 r2382 south-west))))
|
|
(cell:walls k2381 ne431)))))))
|
|
(let ((r2386 (##core#inline_allocate ("C_a_i_plus" 4) x415 3)))
|
|
(let ((r2390 (##core#inline_allocate ("C_a_i_plus" 4) y416 1)))
|
|
(href k2364 harr411 r2386 r2390))))
|
|
(k2318 (##core#undefined))))))
|
|
(if (##core#inline "C_i_lessp" x415 maxx420)
|
|
(let ((r2396 (##core#inline "C_i_less_or_equalp" y416 maxy419)))
|
|
(if r2396
|
|
(k2361 r2396)
|
|
(let ((k2405 (##core#lambda
|
|
(r2406)
|
|
(k2361 (##core#inline "C_i_zerop" r2406)))))
|
|
(mod k2405 x415 6))))
|
|
(k2361 #f))))))
|
|
(if (##core#inline "C_i_lessp" y416 maxy419)
|
|
(let ((k2411 (##core#lambda
|
|
(r2412)
|
|
(let ((n426 r2412))
|
|
(let ((k2424 (##core#lambda
|
|
(r2425)
|
|
(if r2425
|
|
(k2355 (##core#undefined))
|
|
(proc410 k2355 n426)))))
|
|
(let ((k2428 (##core#lambda
|
|
(r2429)
|
|
(bit-test k2424 r2429 south))))
|
|
(cell:walls k2428 n426)))))))
|
|
(let ((r2433 (##core#inline_allocate ("C_a_i_plus" 4) y416 2)))
|
|
(href k2411 harr411 x415 r2433)))
|
|
(k2355 (##core#undefined)))))))
|
|
(let ((k2435 (##core#lambda
|
|
(r2436)
|
|
(if r2436
|
|
(let ((k2438 (##core#lambda
|
|
(r2439)
|
|
(let ((nw425 r2439))
|
|
(let ((k2451 (##core#lambda
|
|
(r2452)
|
|
(if r2452
|
|
(k2352 (##core#undefined))
|
|
(proc410 k2352 nw425)))))
|
|
(let ((k2455 (##core#lambda
|
|
(r2456)
|
|
(bit-test k2451 r2456 south-east))))
|
|
(cell:walls k2455 nw425)))))))
|
|
(let ((r2460 (##core#inline_allocate ("C_a_i_minus" 4) x415 3)))
|
|
(let ((r2464 (##core#inline_allocate ("C_a_i_plus" 4) y416 1)))
|
|
(href k2438 harr411 r2460 r2464))))
|
|
(k2352 (##core#undefined))))))
|
|
(if (##core#inline "C_i_greaterp" x415 0)
|
|
(let ((r2470 (##core#inline "C_i_less_or_equalp" y416 maxy419)))
|
|
(if r2470
|
|
(k2435 r2470)
|
|
(let ((k2479 (##core#lambda
|
|
(r2480)
|
|
(k2435 (##core#inline "C_i_zerop" r2480)))))
|
|
(mod k2479 x415 6))))
|
|
(k2435 #f)))))))
|
|
(let ((k2501 (##core#lambda
|
|
(r2502)
|
|
(if r2502
|
|
(k2349 (##core#undefined))
|
|
(let ((k2489 (##core#lambda (r2490) (proc410 k2349 r2490))))
|
|
(let ((r2494 (##core#inline_allocate ("C_a_i_plus" 4) x415 3)))
|
|
(let ((r2498 (##core#inline_allocate ("C_a_i_minus" 4) y416 1)))
|
|
(href k2489 harr411 r2494 r2498))))))))
|
|
(bit-test k2501 walls413 south-east))))))
|
|
(let ((k2519 (##core#lambda
|
|
(r2520)
|
|
(if r2520
|
|
(k2346 (##core#undefined))
|
|
(let ((k2511 (##core#lambda (r2512) (proc410 k2346 r2512))))
|
|
(let ((r2516 (##core#inline_allocate ("C_a_i_minus" 4) y416 2)))
|
|
(href k2511 harr411 x415 r2516)))))))
|
|
(bit-test k2519 walls413 south))))))
|
|
(let ((k2541 (##core#lambda
|
|
(r2542)
|
|
(if r2542
|
|
(k2343 (##core#undefined))
|
|
(let ((k2529 (##core#lambda (r2530) (proc410 k2343 r2530))))
|
|
(let ((r2534 (##core#inline_allocate ("C_a_i_minus" 4) x415 3)))
|
|
(let ((r2538 (##core#inline_allocate ("C_a_i_minus" 4) y416 1)))
|
|
(href k2529 harr411 r2534 r2538))))))))
|
|
(bit-test k2541 walls413 south-west))))))))))))
|
|
(harr:ncols k2334 harr411))))))
|
|
(harr:nrows k2331 harr411)))))))))
|
|
(cell:id k2322 cell412))))))
|
|
(cell:walls k2319 cell412))))))
|
|
(let ((t2552 (set! make-maze
|
|
#f
|
|
(lambda (k2554 nrows438 ncols439)
|
|
(let ((k2555 (##core#lambda
|
|
(r2556)
|
|
(let ((cells440 r2556))
|
|
(let ((k2558 (##core#lambda
|
|
(r2559)
|
|
(let ((k2561 (##core#lambda
|
|
(r2562)
|
|
(let ((k2564 (##core#lambda
|
|
(r2565)
|
|
(let ((r2568 (##core#inline "C_i_vector_ref" r2565 0)))
|
|
(let ((entrance443 r2568))
|
|
(let ((r2571 (##core#inline "C_i_vector_ref" r2565 1)))
|
|
(let ((exit444 r2571))
|
|
(let ((k2573 (##core#lambda
|
|
(r2574)
|
|
(let ((exit-cell445 r2574))
|
|
(let ((k2576 (##core#lambda
|
|
(r2577)
|
|
(let ((walls446 r2577))
|
|
(let ((k2579 (##core#lambda
|
|
(r2580)
|
|
(let ((k2582 (##core#lambda
|
|
(r2583)
|
|
(let ((k2585 (##core#lambda
|
|
(r2586)
|
|
(k2554 (##core#inline_allocate
|
|
("C_a_i_vector3" 4)
|
|
cells440
|
|
entrance443
|
|
exit444)))))
|
|
(let ((r2597 (##core#inline_allocate
|
|
("C_a_i_bitwise_not" 4)
|
|
south)))
|
|
(let ((r2593 (##core#inline_allocate
|
|
("C_a_i_bitwise_and" 4)
|
|
walls446
|
|
r2597)))
|
|
(set-cell:walls k2585 exit-cell445 r2593)))))))
|
|
(mark-path k2582 exit-cell445)))))
|
|
(let ((k2600 (##core#lambda (r2601) (reroot-maze k2579 r2601))))
|
|
(let ((r2605 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
nrows438
|
|
1)))
|
|
(href/rc k2600 cells440 r2605 entrance443))))))))
|
|
(cell:walls k2576 exit-cell445))))))
|
|
(href/rc k2573 cells440 0 exit444)))))))))
|
|
(pick-entrances k2564 cells440)))))
|
|
(let ((r2609 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
nrows438
|
|
ncols439)))
|
|
(dig-maze k2561 r2559 r2609))))))
|
|
(let ((k2612 (##core#lambda
|
|
(r2613)
|
|
(let ((a2611 r2613))
|
|
(let ((k2616 (##core#lambda
|
|
(r2617)
|
|
(permute-vec! k2558 a2611 r2617))))
|
|
(random-state k2616 20))))))
|
|
(make-wall-vec k2612 cells440)))))))
|
|
(gen-maze-array k2555 nrows438 ncols439))))))
|
|
(let ((t2619 (set! pmaze
|
|
#f
|
|
(lambda (k2621 nrows452 ncols453)
|
|
(let ((k2622 (##core#lambda
|
|
(r2623)
|
|
(let ((r2626 (##core#inline "C_i_vector_ref" r2623 0)))
|
|
(let ((r2629 (##core#inline "C_i_vector_ref" r2623 1)))
|
|
(let ((r2632 (##core#inline "C_i_vector_ref" r2623 2)))
|
|
(print-hexmaze k2621 r2626 r2629)))))))
|
|
(make-maze k2622 nrows452 ncols453))))))
|
|
(let ((t2637 (set! output #f #f)))
|
|
(let ((t2638 (set! write-ch
|
|
#f
|
|
(lambda (k2640 c460)
|
|
(let ((r2643 (##core#inline_allocate
|
|
("C_a_i_cons" 3)
|
|
c460
|
|
output)))
|
|
(let ((t2641 (set! output #f r2643)))
|
|
(k2640 t2641)))))))
|
|
(let ((t2645 (set! print-hexmaze
|
|
#f
|
|
(lambda (k2647 harr462 entrance463)
|
|
(let ((k2648 (##core#lambda
|
|
(r2649)
|
|
(let ((nrows464 r2649))
|
|
(let ((k2651 (##core#lambda
|
|
(r2652)
|
|
(let ((ncols465 r2652))
|
|
(let ((k2947 (##core#lambda
|
|
(r2948)
|
|
(let ((r2655 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
2
|
|
r2948)))
|
|
(let ((ncols2466 r2655))
|
|
(let ((k2657 (##core#lambda
|
|
(r2658)
|
|
(let ((k2660 (##core#lambda
|
|
(r2661)
|
|
(let ((k2663 (##core#lambda
|
|
(r2664)
|
|
(let ((k2666 (##core#lambda
|
|
(r2667)
|
|
(let ((k2669 (##core#lambda
|
|
(r2670)
|
|
(let ((k2672 (##core#lambda
|
|
(r2673)
|
|
(let ((r2680 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
nrows464
|
|
1)))
|
|
(let ((doloop483484 (##core#undefined)))
|
|
(let ((t2682 (set! doloop483484
|
|
#f
|
|
(lambda (k2684 r485)
|
|
(if (##core#inline "C_i_lessp" r485 0)
|
|
(k2684 (##core#undefined))
|
|
(let ((k2691 (##core#lambda
|
|
(r2692)
|
|
(let ((k2694 (##core#lambda
|
|
(r2695)
|
|
(let ((k2697 (##core#lambda
|
|
(r2698)
|
|
(let ((k2700 (##core#lambda
|
|
(r2701)
|
|
(let ((k2703 (##core#lambda
|
|
(r2704)
|
|
(let ((k2706 (##core#lambda
|
|
(r2707)
|
|
(let ((k2709 (##core#lambda
|
|
(r2710)
|
|
(let ((r2717 (##core#inline_allocate ("C_a_i_minus" 4) r485 1)))
|
|
(doloop483484 k2684 r2717)))))
|
|
(write-ch k2709 #\newline)))))
|
|
(if (##core#inline "C_i_oddp" ncols465)
|
|
(let ((k2726 (##core#lambda
|
|
(r2727)
|
|
(display-hexbottom k2706 r2727))))
|
|
(let ((k2730 (##core#lambda (r2731) (cell:walls k2726 r2731))))
|
|
(let ((r2735 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
ncols465
|
|
1)))
|
|
(href/rc k2730 harr462 r485 r2735))))
|
|
(if (##core#inline "C_i_zerop" r485)
|
|
(k2706 (##core#undefined))
|
|
(write-ch k2706 #\\)))))))
|
|
(let ((doloop497498 (##core#undefined)))
|
|
(let ((t2750 (set! doloop497498
|
|
#f
|
|
(lambda (k2752 c499)
|
|
(if (##core#inline
|
|
"C_i_greater_or_equalp"
|
|
c499
|
|
ncols2466)
|
|
(k2752 (##core#undefined))
|
|
(let ((k2759 (##core#lambda
|
|
(r2760)
|
|
(let ((k2762 (##core#lambda
|
|
(r2763)
|
|
(let ((r2770 (##core#inline_allocate ("C_a_i_plus" 4) c499 2)))
|
|
(doloop497498 k2752 r2770)))))
|
|
(let ((k2773 (##core#lambda (r2774) (write-ch k2762 r2774))))
|
|
(let ((r2778 (##core#inline_allocate ("C_a_i_minus" 4) r485 1)))
|
|
(let ((r2782 (##core#inline_allocate ("C_a_i_plus" 4) c499 1)))
|
|
(dot/space k2773 harr462 r2778 r2782))))))))
|
|
(let ((k2785 (##core#lambda
|
|
(r2786)
|
|
(display-hexbottom k2759 r2786))))
|
|
(let ((k2789 (##core#lambda (r2790) (cell:walls k2785 r2790))))
|
|
(href/rc k2789 harr462 r485 c499)))))))))
|
|
(doloop497498 k2703 0)))))))
|
|
(write-ch k2700 #\newline)))))
|
|
(if (##core#inline "C_i_oddp" ncols465)
|
|
(let ((k2795 (##core#lambda (r2796) (write-ch k2697 #\\))))
|
|
(let ((k2802 (##core#lambda (r2803) (write-ch k2795 r2803))))
|
|
(let ((r2807 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
ncols465
|
|
1)))
|
|
(dot/space k2802 harr462 r485 r2807))))
|
|
(k2697 (##core#undefined)))))))
|
|
(let ((doloop486487 (##core#undefined)))
|
|
(let ((t2809 (set! doloop486487
|
|
#f
|
|
(lambda (k2811 c488)
|
|
(if (##core#inline
|
|
"C_i_greater_or_equalp"
|
|
c488
|
|
ncols2466)
|
|
(k2811 (##core#undefined))
|
|
(let ((k2818 (##core#lambda
|
|
(r2819)
|
|
(let ((k2821 (##core#lambda
|
|
(r2822)
|
|
(let ((r2829 (##core#inline_allocate ("C_a_i_plus" 4) c488 2)))
|
|
(doloop486487 k2811 r2829)))))
|
|
(let ((k2832 (##core#lambda
|
|
(r2833)
|
|
(display-hexbottom k2821 r2833))))
|
|
(let ((k2836 (##core#lambda (r2837) (cell:walls k2832 r2837))))
|
|
(href/rc k2836 harr462 r485 c488)))))))
|
|
(let ((k2840 (##core#lambda (r2841) (write-ch k2818 r2841))))
|
|
(let ((r2845 (##core#inline_allocate ("C_a_i_minus" 4) c488 1)))
|
|
(dot/space k2840 harr462 r485 r2845)))))))))
|
|
(doloop486487 k2694 1)))))))
|
|
(write-ch k2691 #\/)))))))
|
|
(doloop483484 k2647 r2680)))))))
|
|
(write-ch k2672 #\newline)))))
|
|
(if (##core#inline "C_i_oddp" ncols465)
|
|
(let ((r2862 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
ncols465
|
|
1)))
|
|
(let ((r2858 (##core#inline "C_i_nequalp" entrance463 r2862)))
|
|
(let ((r2855 (##core#cond r2858 #\space #\_)))
|
|
(write-ch k2669 r2855))))
|
|
(k2669 (##core#undefined)))))))
|
|
(let ((doloop475476 (##core#undefined)))
|
|
(let ((t2864 (set! doloop475476
|
|
#f
|
|
(lambda (k2866 c477)
|
|
(if (##core#inline
|
|
"C_i_greater_or_equalp"
|
|
c477
|
|
ncols2466)
|
|
(k2866 (##core#undefined))
|
|
(let ((k2873 (##core#lambda
|
|
(r2874)
|
|
(let ((k2876 (##core#lambda
|
|
(r2877)
|
|
(let ((k2879 (##core#lambda
|
|
(r2880)
|
|
(let ((k2882 (##core#lambda
|
|
(r2883)
|
|
(let ((r2890 (##core#inline_allocate ("C_a_i_plus" 4) c477 2)))
|
|
(doloop475476 k2866 r2890)))))
|
|
(write-ch k2882 #\\)))))
|
|
(let ((k2893 (##core#lambda (r2894) (write-ch k2879 r2894))))
|
|
(let ((r2898 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
nrows464
|
|
1)))
|
|
(let ((r2902 (##core#inline_allocate ("C_a_i_plus" 4) c477 1)))
|
|
(dot/space k2893 harr462 r2898 r2902))))))))
|
|
(write-ch k2876 #\/)))))
|
|
(let ((r2909 (##core#inline "C_i_nequalp" c477 entrance463)))
|
|
(let ((r2906 (##core#cond r2909 #\space #\_)))
|
|
(write-ch k2873 r2906)))))))))
|
|
(doloop475476 k2666 0)))))))
|
|
(write-ch k2663 #\space)))))
|
|
(write-ch k2660 #\newline)))))
|
|
(let ((doloop467468 (##core#undefined)))
|
|
(let ((t2911 (set! doloop467468
|
|
#f
|
|
(lambda (k2913 c469)
|
|
(if (##core#inline
|
|
"C_i_greater_or_equalp"
|
|
c469
|
|
ncols465)
|
|
(k2913 (##core#undefined))
|
|
(let ((k2920 (##core#lambda
|
|
(r2921)
|
|
(let ((k2923 (##core#lambda
|
|
(r2924)
|
|
(let ((k2926 (##core#lambda
|
|
(r2927)
|
|
(let ((k2929 (##core#lambda
|
|
(r2930)
|
|
(let ((r2937 (##core#inline_allocate ("C_a_i_plus" 4) c469 2)))
|
|
(doloop467468 k2913 r2937)))))
|
|
(let ((r2944 (##core#inline "C_i_nequalp" c469 entrance463)))
|
|
(let ((r2941 (##core#cond r2944 #\space #\_)))
|
|
(write-ch k2929 r2941)))))))
|
|
(write-ch k2926 #\space)))))
|
|
(write-ch k2923 #\space)))))
|
|
(write-ch k2920 #\space)))))))
|
|
(doloop467468 k2657 1)))))))))
|
|
(div k2947 ncols465 2))))))
|
|
(harr:ncols k2651 harr462))))))
|
|
(harr:nrows k2648 harr462))))))
|
|
(let ((t2950 (set! bit-test
|
|
#f
|
|
(lambda (k2952 j522 bit523)
|
|
(let ((r2962 (##core#inline_allocate
|
|
("C_a_i_bitwise_and" 4)
|
|
j522
|
|
bit523)))
|
|
(let ((r2958 (##core#inline "C_i_zerop" r2962)))
|
|
(k2952 (##core#inline "C_i_not" r2958))))))))
|
|
(let ((t2964 (set! dot/space
|
|
#f
|
|
(lambda (k2966 harr525 r526 c527)
|
|
(let ((k2970 (##core#lambda
|
|
(r2971)
|
|
(k2966 (##core#cond r2971 #\. #\space)))))
|
|
(if (##core#inline "C_i_greater_or_equalp" r526 0)
|
|
(let ((k2980 (##core#lambda (r2981) (cell:mark k2970 r2981))))
|
|
(href/rc k2980 harr525 r526 c527))
|
|
(k2970 #f)))))))
|
|
(let ((t2983 (set! display-hexbottom
|
|
#f
|
|
(lambda (k2985 hexwalls530)
|
|
(let ((k2986 (##core#lambda
|
|
(r2987)
|
|
(let ((k2989 (##core#lambda
|
|
(r2990)
|
|
(let ((k2999 (##core#lambda
|
|
(r3000)
|
|
(let ((r2997 (##core#cond r3000 #\/ #\space)))
|
|
(write-ch k2985 r2997)))))
|
|
(bit-test k2999 hexwalls530 south-east)))))
|
|
(let ((k3006 (##core#lambda
|
|
(r3007)
|
|
(let ((r3004 (##core#cond r3007 #\_ #\space)))
|
|
(write-ch k2989 r3004)))))
|
|
(bit-test k3006 hexwalls530 south))))))
|
|
(let ((k3013 (##core#lambda
|
|
(r3014)
|
|
(let ((r3011 (##core#cond r3014 #\\ #\space)))
|
|
(write-ch k2986 r3011)))))
|
|
(bit-test k3013 hexwalls530 south-west)))))))
|
|
(let ((t3016 (set! run
|
|
#f
|
|
(lambda (k3018 nrows534 ncols535)
|
|
(let ((t3019 (set! output #t '())))
|
|
(let ((k3020 (##core#lambda (r3021) (reverse k3018 output))))
|
|
(pmaze k3020 nrows534 ncols535)))))))
|
|
(let ((t3026 (set! main
|
|
#f
|
|
(lambda (k3028)
|
|
(let ((k3029 (##core#lambda
|
|
(r3030)
|
|
(let ((count539 r3030))
|
|
(let ((k3032 (##core#lambda
|
|
(r3033)
|
|
(let ((input1540 r3033))
|
|
(let ((k3035 (##core#lambda
|
|
(r3036)
|
|
(let ((input2541 r3036))
|
|
(let ((k3038 (##core#lambda
|
|
(r3039)
|
|
(let ((output542 r3039))
|
|
(let ((k3041 (##core#lambda
|
|
(r3042)
|
|
(let ((s3543 r3042))
|
|
(let ((k3044 (##core#lambda
|
|
(r3045)
|
|
(let ((s2544 r3045))
|
|
(let ((k3047 (##core#lambda
|
|
(r3048)
|
|
(let ((k3054 (##core#lambda
|
|
(r3055)
|
|
(let ((a3057 (lambda (k3059)
|
|
(let ((k3064 (##core#lambda
|
|
(r3065)
|
|
(let ((a3063 r3065))
|
|
(let ((k3068 (##core#lambda (r3069) (run k3059 a3063 r3069))))
|
|
(hide k3068 count539 input2541))))))
|
|
(hide k3064 count539 input1540)))))
|
|
(let ((a3071 (lambda (k3073 result547)
|
|
(k3073 (##core#inline "C_i_equalp" result547 output542)))))
|
|
(run-r7rs-benchmark
|
|
k3028
|
|
r3055
|
|
count539
|
|
a3057
|
|
a3071))))))
|
|
(string-append
|
|
k3054
|
|
"maze"
|
|
":"
|
|
r3048
|
|
":"
|
|
s2544
|
|
":"
|
|
s3543)))))
|
|
(number->string k3047 input1540))))))
|
|
(number->string k3044 input2541))))))
|
|
(number->string k3041 count539))))))
|
|
(read k3038))))))
|
|
(read k3035))))))
|
|
(read k3032))))))
|
|
(read k3029))))))
|
|
(let ((t3077 (set! hide
|
|
#f
|
|
(lambda (k3079 r549 x550)
|
|
(let ((a3083 (lambda (k3085)
|
|
(let ((a3100 (lambda (k3102 x551) (k3102 x551))))
|
|
(let ((r3091 (##core#inline_allocate
|
|
("C_a_i_vector2" 3)
|
|
values
|
|
a3100)))
|
|
(let ((r3098 (##core#inline "C_i_lessp" r549 100)))
|
|
(let ((r3095 (##core#cond r3098 0 1)))
|
|
((##core#proc "C_values" #t) k3085 r3091 r3095))))))))
|
|
(let ((a3103 (lambda (k3105 v552 i553)
|
|
(let ((r3107 (##core#inline "C_i_vector_ref" v552 i553)))
|
|
(r3107 k3105 x550)))))
|
|
((##core#proc "C_call_with_values" #t)
|
|
k3079
|
|
a3083
|
|
a3103)))))))
|
|
(let ((t3112 (set! run-r7rs-benchmark
|
|
#f
|
|
(lambda (k3114 name557 count558 thunk559 ok?560)
|
|
(let ((k3129 (##core#lambda
|
|
(r3130)
|
|
(let ((k3132 (##core#lambda
|
|
(r3133)
|
|
(let ((k3135 (##core#lambda
|
|
(r3136)
|
|
(let ((k3138 (##core#lambda
|
|
(r3139)
|
|
(let ((k3141 (##core#lambda
|
|
(r3142)
|
|
(let ((j/s563 r3142))
|
|
(let ((k3144 (##core#lambda
|
|
(r3145)
|
|
(let ((t0564 r3145))
|
|
(let ((k3147 (##core#lambda
|
|
(r3148)
|
|
(let ((j0565 r3148))
|
|
(let ((loop566 (##core#undefined)))
|
|
(let ((t3153 (set! loop566
|
|
#f
|
|
(lambda (k3155 i567 result568)
|
|
(if (##core#inline "C_i_lessp" i567 count558)
|
|
(let ((r3167 (##core#inline_allocate ("C_a_i_plus" 4) i567 1)))
|
|
(let ((a3165 r3167))
|
|
(let ((k3170 (##core#lambda
|
|
(r3171)
|
|
(loop566 k3155 a3165 r3171))))
|
|
(thunk559 k3170))))
|
|
(let ((k3176 (##core#lambda
|
|
(r3177)
|
|
(if r3177
|
|
(let ((k3179 (##core#lambda
|
|
(r3180)
|
|
(let ((j1573 r3180))
|
|
(let ((k3182 (##core#lambda
|
|
(r3183)
|
|
(let ((t1574 r3183))
|
|
(let ((r3186 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
j1573
|
|
j0565)))
|
|
(let ((k3188 (##core#lambda
|
|
(r3189)
|
|
(let ((secs576 r3189))
|
|
(let ((k3191 (##core#lambda
|
|
(r3192)
|
|
(let ((secs2577 r3192))
|
|
(let ((k3194 (##core#lambda
|
|
(r3195)
|
|
(let ((k3197 (##core#lambda
|
|
(r3198)
|
|
(let ((k3200 (##core#lambda
|
|
(r3201)
|
|
(let ((k3203 (##core#lambda
|
|
(r3204)
|
|
(let ((k3206 (##core#lambda
|
|
(r3207)
|
|
(let ((k3209 (##core#lambda
|
|
(r3210)
|
|
(let ((k3212 (##core#lambda
|
|
(r3213)
|
|
(let ((k3215 (##core#lambda
|
|
(r3216)
|
|
(let ((k3218 (##core#lambda
|
|
(r3219)
|
|
(let ((k3221 (##core#lambda
|
|
(r3222)
|
|
(let ((k3224 (##core#lambda
|
|
(r3225)
|
|
(let ((k3227 (##core#lambda
|
|
(r3228)
|
|
(let ((k3230 (##core#lambda
|
|
(r3231)
|
|
(let ((k3233 (##core#lambda
|
|
(r3234)
|
|
(let ((k3236 (##core#lambda (r3237) (k3155 result568))))
|
|
(let ((r3241 ##sys#standard-output))
|
|
(flush-output-port k3236 ##sys#standard-output))))))
|
|
(newline k3233)))))
|
|
(display k3230 secs576)))))
|
|
(display k3227 ",")))))
|
|
(display k3224 name557)))))
|
|
(display k3221 ",")))))
|
|
(let ((k3244 (##core#lambda (r3245) (display k3218 r3245))))
|
|
(this-scheme-implementation-name k3244))))))
|
|
(display k3215 "+!CSVLINE!+")))))
|
|
(newline k3212)))))
|
|
(display k3209 name557)))))
|
|
(display k3206 ") for ")))))
|
|
(write k3203 secs2577)))))
|
|
(display k3200 " seconds (")))))
|
|
(write k3197 secs576)))))
|
|
(display k3194 "Elapsed time: "))))))
|
|
(let ((r3249 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
t1574
|
|
t0564)))
|
|
(let ((k3117 k3191))
|
|
(let ((k3122 (##core#lambda
|
|
(r3123)
|
|
(k3117 (##core#inline_allocate
|
|
("C_a_i_divide" 4)
|
|
r3123
|
|
1000)))))
|
|
(let ((r3127 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
1000
|
|
r3249)))
|
|
(round k3122 r3127))))))))))
|
|
(let ((r3253 (##core#inline_allocate
|
|
("C_a_i_divide" 4)
|
|
r3186
|
|
j/s563)))
|
|
(inexact k3188 r3253))))))))
|
|
(current-second k3182))))))
|
|
(current-jiffy k3179))
|
|
(let ((k3255 (##core#lambda
|
|
(r3256)
|
|
(let ((k3258 (##core#lambda
|
|
(r3259)
|
|
(let ((k3261 (##core#lambda
|
|
(r3262)
|
|
(let ((k3264 (##core#lambda (r3265) (k3155 result568))))
|
|
(let ((r3269 ##sys#standard-output))
|
|
(flush-output-port k3264 ##sys#standard-output))))))
|
|
(newline k3261)))))
|
|
(write k3258 result568)))))
|
|
(display
|
|
k3255
|
|
"ERROR: returned incorrect result: "))))))
|
|
(ok?560 k3176 result568)))))))
|
|
(loop566 k3114 0 #f)))))))
|
|
(current-jiffy k3147))))))
|
|
(current-second k3144))))))
|
|
(jiffies-per-second k3141)))))
|
|
(let ((r3273 ##sys#standard-output))
|
|
(flush-output-port k3138 ##sys#standard-output))))))
|
|
(newline k3135)))))
|
|
(display k3132 name557)))))
|
|
(display k3129 "Running "))))))
|
|
(let ((k3275 (##core#lambda
|
|
(r3276)
|
|
(let ((k3278 (##core#lambda (r3279) (k924 (##core#undefined)))))
|
|
(let ((k3281 (##core#lambda (r3282) (r3282 k3278))))
|
|
(##sys#implicit-exit-handler k3281))))))
|
|
(main k3275)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
|
|
(##sys#require k937 'vector-lib)))))
|
|
(##core#callunit "extras" k934)))))
|
|
(##core#callunit "chicken_2dsyntax" k931)))))
|
|
(##core#callunit "eval" k928)))))
|
|
(##core#callunit "library" k925)))
|