mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-19 13:49:16 +02:00
681 lines
149 KiB
Scheme
681 lines
149 KiB
Scheme
[optimized]
|
|
(lambda (k598)
|
|
(let ((k599 (##core#lambda
|
|
(r600)
|
|
(let ((k602 (##core#lambda
|
|
(r603)
|
|
(let ((k605 (##core#lambda
|
|
(r606)
|
|
(let ((k608 (##core#lambda
|
|
(r609)
|
|
(let ((k611 (##core#lambda
|
|
(r612)
|
|
(let ((t614 (set! flush-output-port #f flush-output)))
|
|
(let ((t615 (set! current-jiffy #f current-milliseconds)))
|
|
(let ((t616 (set! jiffies-per-second
|
|
#f
|
|
(lambda (k618) (k618 1000)))))
|
|
(let ((t619 (set! current-second #f current-seconds)))
|
|
(let ((t620 (set! inexact #f exact->inexact)))
|
|
(let ((t621 (set! exact #f inexact->exact)))
|
|
(let ((t622 (set! square
|
|
#f
|
|
(lambda (k624 x61)
|
|
(k624 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
x61
|
|
x61))))))
|
|
(let ((t628 (set! exact-integer? #f integer?)))
|
|
(let ((t629 (set! this-scheme-implementation-name
|
|
#f
|
|
(lambda (k631)
|
|
(let ((k636 (##core#lambda
|
|
(r637)
|
|
(string-append k631 "chicken-" r637))))
|
|
(chicken-version k636))))))
|
|
(let ((t639 (set! lexico
|
|
#f
|
|
(lambda (k641 base66)
|
|
(let ((lex-fixed67 (##core#undefined)))
|
|
(let ((lex-first68 (##core#undefined)))
|
|
(let ((t642 (set! lex-fixed67
|
|
#f
|
|
(lambda (k644 fixed69 lhs70 rhs71)
|
|
(let ((check72 (##core#undefined)))
|
|
(let ((t645 (set! check72
|
|
#f
|
|
(lambda (k647 lhs73 rhs74)
|
|
(if (##core#inline "C_i_nullp" lhs73)
|
|
(k647 fixed69)
|
|
(let ((k654 (##core#lambda
|
|
(r655)
|
|
(let ((r661 (##core#inline "C_eqp" r655 'equal)))
|
|
(let ((r664 (##core#cond
|
|
r661
|
|
r661
|
|
(##core#inline "C_eqp" r655 fixed69))))
|
|
(if r664
|
|
(let ((r671 (##core#inline "C_i_cdr" lhs73)))
|
|
(let ((r675 (##core#inline "C_i_cdr" rhs74)))
|
|
(check72 k647 r671 r675)))
|
|
(k647 'uncomparable)))))))
|
|
(let ((r682 (##core#inline "C_i_car" lhs73)))
|
|
(let ((r686 (##core#inline "C_i_car" rhs74)))
|
|
(base66 k654 r682 r686)))))))))
|
|
(check72 k644 lhs70 rhs71)))))))
|
|
(let ((t691 (set! lex-first68
|
|
#f
|
|
(lambda (k693 lhs80 rhs81)
|
|
(if (##core#inline "C_i_nullp" lhs80)
|
|
(k693 'equal)
|
|
(let ((k700 (##core#lambda
|
|
(r701)
|
|
(let ((r707 (##core#inline "C_eqp" r701 'less)))
|
|
(let ((r710 (##core#cond
|
|
r707
|
|
r707
|
|
(##core#inline "C_eqp" r701 'more))))
|
|
(if r710
|
|
(let ((r717 (##core#inline "C_i_cdr" lhs80)))
|
|
(let ((r721 (##core#inline "C_i_cdr" rhs81)))
|
|
(lex-fixed67 k693 r701 r717 r721)))
|
|
(let ((r727 (##core#inline "C_eqp" r701 'equal)))
|
|
(if r727
|
|
(let ((r734 (##core#inline "C_i_cdr" lhs80)))
|
|
(let ((r738 (##core#inline "C_i_cdr" rhs81)))
|
|
(lex-first68 k693 r734 r738)))
|
|
(let ((r744 (##core#inline "C_eqp" r701 'uncomparable)))
|
|
(k693 (##core#cond
|
|
r744
|
|
'uncomparable
|
|
(##core#undefined))))))))))))
|
|
(let ((r751 (##core#inline "C_i_car" lhs80)))
|
|
(let ((r755 (##core#inline "C_i_car" rhs81)))
|
|
(base66 k700 r751 r755)))))))))
|
|
(k641 lex-first68)))))))))
|
|
(let ((t757 (set! make-lattice
|
|
#f
|
|
(lambda (k759 elem-list95 cmp-func96)
|
|
(k759 (##core#inline_allocate
|
|
("C_a_i_cons" 3)
|
|
elem-list95
|
|
cmp-func96))))))
|
|
(let ((t763 (set! lattice->elements #f car)))
|
|
(let ((t764 (set! lattice->cmp #f cdr)))
|
|
(let ((t765 (set! zulu-select
|
|
#f
|
|
(lambda (k767 test100 lst101)
|
|
(let ((select-a102 (##core#undefined)))
|
|
(let ((t768 (set! select-a102
|
|
#f
|
|
(lambda (k770 ac103 lst104)
|
|
(if (##core#inline "C_i_nullp" lst104)
|
|
(xreverse! k770 ac103)
|
|
(let ((r785 (##core#inline "C_i_car" lst104)))
|
|
(let ((head105 r785))
|
|
(let ((k794 (##core#lambda
|
|
(r795)
|
|
(let ((r788 (##core#cond
|
|
r795
|
|
(##core#inline_allocate
|
|
("C_a_i_cons" 3)
|
|
head105
|
|
ac103)
|
|
ac103)))
|
|
(let ((r792 (##core#inline "C_i_cdr" lst104)))
|
|
(select-a102 k770 r788 r792))))))
|
|
(test100 k794 head105)))))))))
|
|
(select-a102 k767 '() lst101)))))))
|
|
(let ((rotate109 (##core#undefined)))
|
|
(let ((rotate108110
|
|
(lambda (k805 fo111 fum112)
|
|
(let ((r807 (##core#inline "C_i_cdr" fo111)))
|
|
(let ((r810 (##core#inline "C_i_set_cdr" fo111 fum112)))
|
|
(if (##core#inline "C_i_nullp" r807)
|
|
(k805 fo111)
|
|
(rotate109 k805 r807 fo111)))))))
|
|
(let ((t821 (set! rotate109 #f rotate108110)))
|
|
(let ((t803 (set! xreverse!
|
|
#f
|
|
(lambda (k823 lst115)
|
|
(if (##core#inline "C_i_nullp" lst115)
|
|
(k823 '())
|
|
(rotate109 k823 lst115 '()))))))
|
|
(let ((t833 (set! select-map
|
|
#f
|
|
(lambda (k835 test118 func119 lst120)
|
|
(let ((select-a121 (##core#undefined)))
|
|
(let ((t836 (set! select-a121
|
|
#f
|
|
(lambda (k838 ac122 lst123)
|
|
(if (##core#inline "C_i_nullp" lst123)
|
|
(xreverse! k838 ac122)
|
|
(let ((r853 (##core#inline "C_i_car" lst123)))
|
|
(let ((head124 r853))
|
|
(let ((k855 (##core#lambda
|
|
(r856)
|
|
(let ((r860 (##core#inline "C_i_cdr" lst123)))
|
|
(select-a121 k838 r856 r860)))))
|
|
(let ((k862 (##core#lambda
|
|
(r863)
|
|
(if r863
|
|
(let ((k869 (##core#lambda
|
|
(r870)
|
|
(k855 (##core#inline_allocate
|
|
("C_a_i_cons" 3)
|
|
r870
|
|
ac122)))))
|
|
(func119 k869 head124))
|
|
(k855 ac122)))))
|
|
(test118 k862 head124))))))))))
|
|
(select-a121 k835 '() lst120)))))))
|
|
(let ((t875 (set! map-and
|
|
#f
|
|
(lambda (k877 proc127 lst128)
|
|
(if (##core#inline "C_i_nullp" lst128)
|
|
(k877 #t)
|
|
(let ((drudge130 (##core#undefined)))
|
|
(let ((drudge129131
|
|
(lambda (k885 lst132)
|
|
(let ((r887 (##core#inline "C_i_cdr" lst132)))
|
|
(let ((rest133 r887))
|
|
(if (##core#inline "C_i_nullp" rest133)
|
|
(let ((r900 (##core#inline "C_i_car" lst132)))
|
|
(proc127 k885 r900))
|
|
(let ((k905 (##core#lambda
|
|
(r906)
|
|
(if r906 (drudge130 k885 rest133) (k885 #f)))))
|
|
(let ((r913 (##core#inline "C_i_car" lst132)))
|
|
(proc127 k905 r913)))))))))
|
|
(let ((t915 (set! drudge130 #f drudge129131)))
|
|
(drudge130 k877 lst128)))))))))
|
|
(let ((t919 (set! maps-1
|
|
#f
|
|
(lambda (k921 source137 target138 pas139 new140)
|
|
(let ((k922 (##core#lambda
|
|
(r923)
|
|
(let ((scmp141 r923))
|
|
(let ((k925 (##core#lambda
|
|
(r926)
|
|
(let ((tcmp142 r926))
|
|
(let ((k928 (##core#lambda
|
|
(r929)
|
|
(let ((less143 r929))
|
|
(let ((k931 (##core#lambda
|
|
(r932)
|
|
(let ((more144 r932))
|
|
(let ((a937 (lambda (k939 t147)
|
|
(let ((k943 (##core#lambda
|
|
(r944)
|
|
(if r944
|
|
(let ((a949 (lambda (k951 t2150)
|
|
(let ((k956 (##core#lambda
|
|
(r957)
|
|
(k951 (##core#inline "C_i_memq" r957 '(more equal))))))
|
|
(tcmp142 k956 t2150 t147)))))
|
|
(map-and k939 a949 more144))
|
|
(k939 #f)))))
|
|
(let ((a959 (lambda (k961 t2149)
|
|
(let ((k966 (##core#lambda
|
|
(r967)
|
|
(k961 (##core#inline "C_i_memq" r967 '(less equal))))))
|
|
(tcmp142 k966 t2149 t147)))))
|
|
(map-and k943 a959 less143))))))
|
|
(let ((k970 (##core#lambda
|
|
(r971)
|
|
(zulu-select k921 a937 r971))))
|
|
(lattice->elements k970 target138)))))))
|
|
(let ((a973 (lambda (k975 p146)
|
|
(let ((k980 (##core#lambda
|
|
(r981)
|
|
(k975 (##core#inline "C_eqp" 'more r981)))))
|
|
(let ((r985 (##core#inline "C_i_car" p146)))
|
|
(scmp141 k980 r985 new140))))))
|
|
(select-map k931 a973 cdr pas139)))))))
|
|
(let ((a987 (lambda (k989 p145)
|
|
(let ((k994 (##core#lambda
|
|
(r995)
|
|
(k989 (##core#inline "C_eqp" 'less r995)))))
|
|
(let ((r999 (##core#inline "C_i_car" p145)))
|
|
(scmp141 k994 r999 new140))))))
|
|
(select-map k928 a987 cdr pas139)))))))
|
|
(lattice->cmp k925 target138))))))
|
|
(lattice->cmp k922 source137))))))
|
|
(let ((t1001 (set! maps-rest
|
|
#f
|
|
(lambda (k1003
|
|
source152
|
|
target153
|
|
pas154
|
|
rest155
|
|
to-1156
|
|
to-collect157)
|
|
(if (##core#inline "C_i_nullp" rest155)
|
|
(to-1156 k1003 pas154)
|
|
(let ((r1014 (##core#inline "C_i_car" rest155)))
|
|
(let ((next158 r1014))
|
|
(let ((r1017 (##core#inline "C_i_cdr" rest155)))
|
|
(let ((rest159 r1017))
|
|
(let ((r1024 (##core#inline_allocate
|
|
("C_a_i_cons" 3)
|
|
(##core#undefined)
|
|
'())))
|
|
(let ((g167175 r1024))
|
|
(let ((g166176 g167175))
|
|
(let ((g168177
|
|
(lambda (k1027 x179)
|
|
(let ((r1037 (##core#inline_allocate
|
|
("C_a_i_cons" 3)
|
|
next158
|
|
x179)))
|
|
(let ((r1033 (##core#inline_allocate
|
|
("C_a_i_cons" 3)
|
|
r1037
|
|
pas154)))
|
|
(maps-rest
|
|
k1027
|
|
source152
|
|
target153
|
|
r1033
|
|
rest159
|
|
to-1156
|
|
to-collect157))))))
|
|
(let ((k1039 (##core#lambda
|
|
(r1040)
|
|
(let ((r1043 (##core#inline "C_i_check_list_2" r1040 'map)))
|
|
(let ((k1045 (##core#lambda
|
|
(r1046)
|
|
(to-collect157 k1003 r1046))))
|
|
(let ((map-loop162180 (##core#undefined)))
|
|
(let ((t1048 (set! map-loop162180
|
|
#f
|
|
(lambda (k1050 g174181)
|
|
(if (##core#inline "C_i_pairp" g174181)
|
|
(let ((k1072 (##core#lambda
|
|
(r1073)
|
|
(let ((r1058 (##core#inline_allocate
|
|
("C_a_i_cons" 3)
|
|
r1073
|
|
'())))
|
|
(let ((r1061 (##core#inline "C_i_setslot" g167175 1 r1058)))
|
|
(let ((t1063 (set! g167175 #f r1058)))
|
|
(let ((r1069 (##core#inline "C_slot" g174181 1)))
|
|
(map-loop162180 k1050 r1069))))))))
|
|
(let ((r1077 (##core#inline "C_slot" g174181 0)))
|
|
(g168177 k1072 r1077)))
|
|
(k1050 (##core#inline "C_slot" g166176 1)))))))
|
|
(map-loop162180 k1045 r1040))))))))
|
|
(maps-1 k1039 source152 target153 pas154 next158)))))))))))))))
|
|
(let ((t1082 (set! maps
|
|
#f
|
|
(lambda (k1084 source188 target189)
|
|
(let ((k1089 (##core#lambda
|
|
(r1090)
|
|
(let ((a1088 r1090))
|
|
(let ((k1093 (##core#lambda
|
|
(r1094)
|
|
(make-lattice k1084 a1088 r1094))))
|
|
(let ((k1097 (##core#lambda (r1098) (lexico k1093 r1098))))
|
|
(lattice->cmp k1097 target189)))))))
|
|
(let ((k1101 (##core#lambda
|
|
(r1102)
|
|
(let ((a1104 (lambda (k1106 x190)
|
|
(let ((r1112 (##core#inline_allocate
|
|
("C_a_i_cons" 3)
|
|
(##core#undefined)
|
|
'())))
|
|
(let ((g198206 r1112))
|
|
(let ((g197207 g198206))
|
|
(let ((r1115 (##core#inline "C_i_check_list_2" x190 'map)))
|
|
(let ((k1117 (##core#lambda
|
|
(r1118)
|
|
(k1106 (##core#inline_allocate ("C_a_i_list1" 3) r1118)))))
|
|
(let ((map-loop193210 (##core#undefined)))
|
|
(let ((t1120 (set! map-loop193210
|
|
#f
|
|
(lambda (k1122 g205211)
|
|
(if (##core#inline "C_i_pairp" g205211)
|
|
(let ((r1149 (##core#inline "C_slot" g205211 0)))
|
|
(let ((r1145 (##core#inline "C_i_cdr" r1149)))
|
|
(let ((r1130 (##core#inline_allocate
|
|
("C_a_i_cons" 3)
|
|
r1145
|
|
'())))
|
|
(let ((r1133 (##core#inline "C_i_setslot" g198206 1 r1130)))
|
|
(let ((t1135 (set! g198206 #f r1130)))
|
|
(let ((r1141 (##core#inline "C_slot" g205211 1)))
|
|
(map-loop193210 k1122 r1141)))))))
|
|
(k1122 (##core#inline "C_slot" g197207 1)))))))
|
|
(map-loop193210 k1117 x190)))))))))))
|
|
(let ((a1154 (lambda (k1156 x217)
|
|
((##core#proc "C_apply" #t) k1156 append x217))))
|
|
(maps-rest
|
|
k1089
|
|
source188
|
|
target189
|
|
'()
|
|
r1102
|
|
a1104
|
|
a1154))))))
|
|
(lattice->elements k1101 source188)))))))
|
|
(let ((t1160 (set! count-maps
|
|
#f
|
|
(lambda (k1162 source219 target220)
|
|
(let ((k1167 (##core#lambda
|
|
(r1168)
|
|
(let ((a1170 (lambda (k1172 x221) (k1172 1))))
|
|
(maps-rest
|
|
k1162
|
|
source219
|
|
target220
|
|
'()
|
|
r1168
|
|
a1170
|
|
sum)))))
|
|
(lattice->elements k1167 source219))))))
|
|
(let ((t1173 (set! sum
|
|
#f
|
|
(lambda (k1175 lst223)
|
|
(if (##core#inline "C_i_nullp" lst223)
|
|
(k1175 0)
|
|
(let ((r1187 (##core#inline "C_i_car" lst223)))
|
|
(let ((a1185 r1187))
|
|
(let ((k1190 (##core#lambda
|
|
(r1191)
|
|
(k1175 (##core#inline_allocate
|
|
("C_a_i_plus" 4)
|
|
a1185
|
|
r1191)))))
|
|
(let ((r1195 (##core#inline "C_i_cdr" lst223)))
|
|
(sum k1190 r1195))))))))))
|
|
(let ((t1197 (set! run
|
|
#f
|
|
(lambda (k1199 k225)
|
|
(let ((k1200 (##core#lambda
|
|
(r1201)
|
|
(let ((l2226 r1201))
|
|
(let ((k1203 (##core#lambda
|
|
(r1204)
|
|
(let ((l3247 r1204))
|
|
(let ((k1206 (##core#lambda
|
|
(r1207)
|
|
(let ((l4248 r1207))
|
|
(let ((k1209 (##core#lambda
|
|
(r1210)
|
|
(let ((k1212 (##core#lambda
|
|
(r1213)
|
|
(let ((k1215 (##core#lambda
|
|
(r1216)
|
|
(let ((k1218 (##core#lambda
|
|
(r1219)
|
|
(let ((tmp249254 k225))
|
|
(##core#switch
|
|
5
|
|
tmp249254
|
|
33
|
|
(count-maps k1199 l3247 l3247)
|
|
44
|
|
(count-maps k1199 l4248 l4248)
|
|
45
|
|
(let ((k1245 (##core#lambda
|
|
(r1246)
|
|
(count-maps k1199 l4248 r1246))))
|
|
(maps k1245 l4248 l4248))
|
|
54
|
|
(let ((k1257 (##core#lambda
|
|
(r1258)
|
|
(count-maps k1199 r1258 l4248))))
|
|
(maps k1257 l4248 l4248))
|
|
55
|
|
(let ((k1269 (##core#lambda
|
|
(r1270)
|
|
(count-maps k1199 r1270 r1270))))
|
|
(maps k1269 l4248 l4248))
|
|
(error k1199
|
|
"run: unanticipated problem size"
|
|
k225))))))
|
|
(count-maps k1218 l3247 l2226)))))
|
|
(count-maps k1215 l2226 l3247)))))
|
|
(count-maps k1212 l3247 l3247)))))
|
|
(count-maps k1209 l2226 l2226))))))
|
|
(maps k1206 l3247 l3247))))))
|
|
(maps k1203 l2226 l2226))))))
|
|
(let ((a1278 (lambda (k1280 lhs227 rhs228)
|
|
(let ((tmp229234 lhs227))
|
|
(let ((r1285 (##core#inline "C_eqp" tmp229234 'low)))
|
|
(if r1285
|
|
(let ((tmp235240 rhs228))
|
|
(let ((r1291 (##core#inline "C_eqp" tmp235240 'low)))
|
|
(if r1291
|
|
(k1280 'equal)
|
|
(let ((r1297 (##core#inline "C_eqp" tmp235240 'high)))
|
|
(if r1297
|
|
(k1280 'less)
|
|
(error k1280 'make-lattice "base" rhs228))))))
|
|
(let ((r1306 (##core#inline "C_eqp" tmp229234 'high)))
|
|
(if r1306
|
|
(let ((tmp241246 rhs228))
|
|
(let ((r1312 (##core#inline "C_eqp" tmp241246 'low)))
|
|
(if r1312
|
|
(k1280 'more)
|
|
(let ((r1318 (##core#inline "C_eqp" tmp241246 'high)))
|
|
(if r1318
|
|
(k1280 'equal)
|
|
(error k1280 'make-lattice "base" rhs228))))))
|
|
(error k1280 'make-lattice "base" lhs227)))))))))
|
|
(make-lattice k1200 '(low high) a1278)))))))
|
|
(let ((t1326 (set! main
|
|
#f
|
|
(lambda (k1328)
|
|
(let ((k1329 (##core#lambda
|
|
(r1330)
|
|
(let ((count263 r1330))
|
|
(let ((k1332 (##core#lambda
|
|
(r1333)
|
|
(let ((input1264 r1333))
|
|
(let ((k1335 (##core#lambda
|
|
(r1336)
|
|
(let ((output265 r1336))
|
|
(let ((k1338 (##core#lambda
|
|
(r1339)
|
|
(let ((s2266 r1339))
|
|
(let ((k1341 (##core#lambda
|
|
(r1342)
|
|
(let ((k1348 (##core#lambda
|
|
(r1349)
|
|
(let ((a1351 (lambda (k1353)
|
|
(let ((k1358 (##core#lambda (r1359) (run k1353 r1359))))
|
|
(hide k1358 count263 input1264)))))
|
|
(let ((a1361 (lambda (k1363 result269)
|
|
(k1363 (##core#inline "C_i_nequalp" result269 output265)))))
|
|
(run-r7rs-benchmark
|
|
k1328
|
|
r1349
|
|
count263
|
|
a1351
|
|
a1361))))))
|
|
(string-append
|
|
k1348
|
|
"lattice"
|
|
":"
|
|
r1342
|
|
":"
|
|
s2266)))))
|
|
(number->string k1341 input1264))))))
|
|
(number->string k1338 count263))))))
|
|
(read k1335))))))
|
|
(read k1332))))))
|
|
(read k1329))))))
|
|
(let ((t1367 (set! hide
|
|
#f
|
|
(lambda (k1369 r271 x272)
|
|
(let ((a1373 (lambda (k1375)
|
|
(let ((a1390 (lambda (k1392 x273) (k1392 x273))))
|
|
(let ((r1381 (##core#inline_allocate
|
|
("C_a_i_vector2" 3)
|
|
values
|
|
a1390)))
|
|
(let ((r1388 (##core#inline "C_i_lessp" r271 100)))
|
|
(let ((r1385 (##core#cond r1388 0 1)))
|
|
((##core#proc "C_values" #t) k1375 r1381 r1385))))))))
|
|
(let ((a1393 (lambda (k1395 v274 i275)
|
|
(let ((r1397 (##core#inline "C_i_vector_ref" v274 i275)))
|
|
(r1397 k1395 x272)))))
|
|
((##core#proc "C_call_with_values" #t)
|
|
k1369
|
|
a1373
|
|
a1393)))))))
|
|
(let ((t1402 (set! run-r7rs-benchmark
|
|
#f
|
|
(lambda (k1404 name279 count280 thunk281 ok?282)
|
|
(let ((k1419 (##core#lambda
|
|
(r1420)
|
|
(let ((k1422 (##core#lambda
|
|
(r1423)
|
|
(let ((k1425 (##core#lambda
|
|
(r1426)
|
|
(let ((k1428 (##core#lambda
|
|
(r1429)
|
|
(let ((k1431 (##core#lambda
|
|
(r1432)
|
|
(let ((j/s285 r1432))
|
|
(let ((k1434 (##core#lambda
|
|
(r1435)
|
|
(let ((t0286 r1435))
|
|
(let ((k1437 (##core#lambda
|
|
(r1438)
|
|
(let ((j0287 r1438))
|
|
(let ((loop288 (##core#undefined)))
|
|
(let ((t1443 (set! loop288
|
|
#f
|
|
(lambda (k1445 i289 result290)
|
|
(if (##core#inline "C_i_lessp" i289 count280)
|
|
(let ((r1457 (##core#inline_allocate ("C_a_i_plus" 4) i289 1)))
|
|
(let ((a1455 r1457))
|
|
(let ((k1460 (##core#lambda
|
|
(r1461)
|
|
(loop288 k1445 a1455 r1461))))
|
|
(thunk281 k1460))))
|
|
(let ((k1466 (##core#lambda
|
|
(r1467)
|
|
(if r1467
|
|
(let ((k1469 (##core#lambda
|
|
(r1470)
|
|
(let ((j1295 r1470))
|
|
(let ((k1472 (##core#lambda
|
|
(r1473)
|
|
(let ((t1296 r1473))
|
|
(let ((r1476 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
j1295
|
|
j0287)))
|
|
(let ((k1478 (##core#lambda
|
|
(r1479)
|
|
(let ((secs298 r1479))
|
|
(let ((k1481 (##core#lambda
|
|
(r1482)
|
|
(let ((secs2299 r1482))
|
|
(let ((k1484 (##core#lambda
|
|
(r1485)
|
|
(let ((k1487 (##core#lambda
|
|
(r1488)
|
|
(let ((k1490 (##core#lambda
|
|
(r1491)
|
|
(let ((k1493 (##core#lambda
|
|
(r1494)
|
|
(let ((k1496 (##core#lambda
|
|
(r1497)
|
|
(let ((k1499 (##core#lambda
|
|
(r1500)
|
|
(let ((k1502 (##core#lambda
|
|
(r1503)
|
|
(let ((k1505 (##core#lambda
|
|
(r1506)
|
|
(let ((k1508 (##core#lambda
|
|
(r1509)
|
|
(let ((k1511 (##core#lambda
|
|
(r1512)
|
|
(let ((k1514 (##core#lambda
|
|
(r1515)
|
|
(let ((k1517 (##core#lambda
|
|
(r1518)
|
|
(let ((k1520 (##core#lambda
|
|
(r1521)
|
|
(let ((k1523 (##core#lambda
|
|
(r1524)
|
|
(let ((k1526 (##core#lambda (r1527) (k1445 result290))))
|
|
(let ((r1531 ##sys#standard-output))
|
|
(flush-output-port k1526 ##sys#standard-output))))))
|
|
(newline k1523)))))
|
|
(display k1520 secs298)))))
|
|
(display k1517 ",")))))
|
|
(display k1514 name279)))))
|
|
(display k1511 ",")))))
|
|
(let ((k1534 (##core#lambda (r1535) (display k1508 r1535))))
|
|
(this-scheme-implementation-name k1534))))))
|
|
(display k1505 "+!CSVLINE!+")))))
|
|
(newline k1502)))))
|
|
(display k1499 name279)))))
|
|
(display k1496 ") for ")))))
|
|
(write k1493 secs2299)))))
|
|
(display k1490 " seconds (")))))
|
|
(write k1487 secs298)))))
|
|
(display k1484 "Elapsed time: "))))))
|
|
(let ((r1539 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
t1296
|
|
t0286)))
|
|
(let ((k1407 k1481))
|
|
(let ((k1412 (##core#lambda
|
|
(r1413)
|
|
(k1407 (##core#inline_allocate
|
|
("C_a_i_divide" 4)
|
|
r1413
|
|
1000)))))
|
|
(let ((r1417 (##core#inline_allocate
|
|
("C_a_i_times" 4)
|
|
1000
|
|
r1539)))
|
|
(round k1412 r1417))))))))))
|
|
(let ((r1543 (##core#inline_allocate
|
|
("C_a_i_divide" 4)
|
|
r1476
|
|
j/s285)))
|
|
(inexact k1478 r1543))))))))
|
|
(current-second k1472))))))
|
|
(current-jiffy k1469))
|
|
(let ((k1545 (##core#lambda
|
|
(r1546)
|
|
(let ((k1548 (##core#lambda
|
|
(r1549)
|
|
(let ((k1551 (##core#lambda
|
|
(r1552)
|
|
(let ((k1554 (##core#lambda (r1555) (k1445 result290))))
|
|
(let ((r1559 ##sys#standard-output))
|
|
(flush-output-port k1554 ##sys#standard-output))))))
|
|
(newline k1551)))))
|
|
(write k1548 result290)))))
|
|
(display
|
|
k1545
|
|
"ERROR: returned incorrect result: "))))))
|
|
(ok?282 k1466 result290)))))))
|
|
(loop288 k1404 0 #f)))))))
|
|
(current-jiffy k1437))))))
|
|
(current-second k1434))))))
|
|
(jiffies-per-second k1431)))))
|
|
(let ((r1563 ##sys#standard-output))
|
|
(flush-output-port k1428 ##sys#standard-output))))))
|
|
(newline k1425)))))
|
|
(display k1422 name279)))))
|
|
(display k1419 "Running "))))))
|
|
(let ((k1565 (##core#lambda
|
|
(r1566)
|
|
(let ((k1568 (##core#lambda (r1569) (k598 (##core#undefined)))))
|
|
(let ((k1571 (##core#lambda (r1572) (r1572 k1568))))
|
|
(##sys#implicit-exit-handler k1571))))))
|
|
(main k1565))))))))))))))))))))))))))))))))))
|
|
(##sys#require k611 'vector-lib)))))
|
|
(##core#callunit "extras" k608)))))
|
|
(##core#callunit "chicken_2dsyntax" k605)))))
|
|
(##core#callunit "eval" k602)))))
|
|
(##core#callunit "library" k599)))
|