mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-20 22:29:16 +02:00
158 lines
18 KiB
Scheme
158 lines
18 KiB
Scheme
[cps]
|
|
(lambda (k28)
|
|
(let ((k29 (##core#lambda
|
|
(r30)
|
|
(let ((t22 r30))
|
|
(let ((k32 (##core#lambda
|
|
(r33)
|
|
(let ((t23 r33))
|
|
(let ((t35 (set! nqueens
|
|
(lambda (k37 n1)
|
|
(let ((dec-to2 (##core#undefined)))
|
|
(let ((try3 (##core#undefined)))
|
|
(let ((ok?4 (##core#undefined)))
|
|
(let ((t38 (set! dec-to2
|
|
(lambda (k40 n5)
|
|
(let ((k41 (##core#lambda (r42) (k40 r42))))
|
|
(let ((loop6 (##core#undefined)))
|
|
(let ((t44 (set! loop6
|
|
(lambda (k46 i7 l8)
|
|
(let ((k47 (##core#lambda (r48) (k46 r48))))
|
|
(let ((k50 (##core#lambda
|
|
(r51)
|
|
(if r51
|
|
(k47 l8)
|
|
(let ((k53 (##core#lambda (r54) (k47 r54))))
|
|
(let ((k57 (##core#lambda
|
|
(r58)
|
|
(let ((a56 r58))
|
|
(let ((k61 (##core#lambda
|
|
(r62)
|
|
(let ((a60 r62)) (loop6 k53 a56 a60)))))
|
|
(cons k61 i7 l8))))))
|
|
(- k57 i7 '1)))))))
|
|
(= k50 i7 '0)))))))
|
|
(let ((t9 t44)) (loop6 k41 n5 '())))))))))
|
|
(let ((t18 t38))
|
|
(let ((t64 (set! try3
|
|
(lambda (k66 x10 y11 z12)
|
|
(let ((k67 (##core#lambda (r68) (k66 r68))))
|
|
(let ((k70 (##core#lambda
|
|
(r71)
|
|
(if r71
|
|
(let ((k73 (##core#lambda (r74) (k67 r74))))
|
|
(let ((k76 (##core#lambda (r77) (if r77 (k73 '1) (k73 '0)))))
|
|
(null? k76 y11)))
|
|
(let ((k79 (##core#lambda (r80) (k67 r80))))
|
|
(let ((k83 (##core#lambda
|
|
(r84)
|
|
(let ((a82 r84))
|
|
(let ((k87 (##core#lambda
|
|
(r88)
|
|
(let ((a86 r88)) (+ k79 a82 a86)))))
|
|
(let ((k91 (##core#lambda
|
|
(r92)
|
|
(let ((a90 r92))
|
|
(let ((k95 (##core#lambda
|
|
(r96)
|
|
(let ((a94 r96)) (try3 k87 a90 a94 z12)))))
|
|
(let ((k99 (##core#lambda
|
|
(r100)
|
|
(let ((a98 r100)) (cons k95 a98 y11)))))
|
|
(car k99 x10)))))))
|
|
(cdr k91 x10)))))))
|
|
(let ((k102 (##core#lambda
|
|
(r103)
|
|
(if r103
|
|
(let ((k105 (##core#lambda (r106) (k83 r106))))
|
|
(let ((k109 (##core#lambda
|
|
(r110)
|
|
(let ((a108 r110))
|
|
(let ((k113 (##core#lambda
|
|
(r114)
|
|
(let ((a112 r114)) (try3 k105 a108 '() a112)))))
|
|
(let ((k117 (##core#lambda
|
|
(r118)
|
|
(let ((a116 r118)) (cons k113 a116 z12)))))
|
|
(car k117 x10)))))))
|
|
(let ((k121 (##core#lambda
|
|
(r122)
|
|
(let ((a120 r122)) (append k109 a120 y11)))))
|
|
(cdr k121 x10))))
|
|
(k83 '0)))))
|
|
(let ((k125 (##core#lambda
|
|
(r126)
|
|
(let ((a124 r126)) (ok?4 k102 a124 '1 z12)))))
|
|
(car k125 x10)))))))))
|
|
(null? k70 x10)))))))
|
|
(let ((t19 t64))
|
|
(let ((t128 (set! ok?4
|
|
(lambda (k130 row13 dist14 placed15)
|
|
(let ((k131 (##core#lambda (r132) (k130 r132))))
|
|
(let ((k134 (##core#lambda
|
|
(r135)
|
|
(if r135
|
|
(k131 '#t)
|
|
(let ((k137 (##core#lambda (r138) (k131 r138))))
|
|
(let ((k140 (##core#lambda
|
|
(r141)
|
|
(if r141
|
|
(let ((k143 (##core#lambda (r144) (k137 r144))))
|
|
(let ((k146 (##core#lambda
|
|
(r147)
|
|
(if r147
|
|
(let ((k149 (##core#lambda (r150) (k143 r150))))
|
|
(let ((k153 (##core#lambda
|
|
(r154)
|
|
(let ((a152 r154))
|
|
(let ((k157 (##core#lambda
|
|
(r158)
|
|
(let ((a156 r158)) (ok?4 k149 row13 a152 a156)))))
|
|
(cdr k157 placed15))))))
|
|
(+ k153 dist14 '1)))
|
|
(k143 '#f)))))
|
|
(let ((k161 (##core#lambda
|
|
(r162)
|
|
(let ((a160 r162)) (not k146 a160)))))
|
|
(let ((k165 (##core#lambda
|
|
(r166)
|
|
(let ((a164 r166))
|
|
(let ((k169 (##core#lambda
|
|
(r170)
|
|
(let ((a168 r170)) (= k161 a164 a168)))))
|
|
(- k169 row13 dist14))))))
|
|
(car k165 placed15)))))
|
|
(k137 '#f)))))
|
|
(let ((k173 (##core#lambda
|
|
(r174)
|
|
(let ((a172 r174)) (not k140 a172)))))
|
|
(let ((k177 (##core#lambda
|
|
(r178)
|
|
(let ((a176 r178))
|
|
(let ((k181 (##core#lambda
|
|
(r182)
|
|
(let ((a180 r182)) (= k173 a176 a180)))))
|
|
(+ k181 row13 dist14))))))
|
|
(car k177 placed15)))))))))
|
|
(null? k134 placed15)))))))
|
|
(let ((t20 t128))
|
|
(let ((k184 (##core#lambda (r185) (k37 r185))))
|
|
(let ((k188 (##core#lambda
|
|
(r189)
|
|
(let ((a187 r189)) (try3 k184 a187 '() '())))))
|
|
(dec-to2 k188 n1))))))))))))))))
|
|
(let ((t24 t35))
|
|
(let ((k191 (##core#lambda
|
|
(r192)
|
|
(let ((t25 r192))
|
|
(let ((k194 (##core#lambda
|
|
(r195)
|
|
(let ((t26 r195)) (k28 (##core#undefined))))))
|
|
(let ((k197 (##core#lambda (r198) (r198 k194))))
|
|
(##sys#implicit-exit-handler k197)))))))
|
|
(let ((k201 (##core#lambda
|
|
(r202)
|
|
(let ((a200 r202)) (write k191 a200)))))
|
|
(nqueens k201 '8)))))))))
|
|
(##core#callunit "eval" k32))))))
|
|
(##core#callunit "library" k29)))
|