mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-21 22:59:16 +02:00
86 lines
7.9 KiB
Scheme
86 lines
7.9 KiB
Scheme
[optimized]
|
|
(lambda (k28)
|
|
(let ((k29 (##core#lambda
|
|
(r30)
|
|
(let ((k32 (##core#lambda
|
|
(r33)
|
|
(let ((t35 (set! nqueens
|
|
(lambda (k37 n1)
|
|
(let ((try3 (##core#undefined)))
|
|
(let ((ok?4 (##core#undefined)))
|
|
(let ((t64 (set! try3
|
|
(lambda (k66 x10 y11 z12)
|
|
(if (##core#inline "C_i_nullp" x10)
|
|
(let ((r77 (##core#inline "C_i_nullp" y11)))
|
|
(k66 (##core#cond r77 '1 '0)))
|
|
(let ((k83 (##core#lambda
|
|
(r84)
|
|
(let ((k87 (##core#lambda
|
|
(r88)
|
|
(k66 (##core#inline_allocate ("C_a_i_plus" 4) r84 r88)))))
|
|
(let ((r92 (##core#inline "C_i_cdr" x10)))
|
|
(let ((r100 (##core#inline "C_i_car" x10)))
|
|
(let ((r96 (##core#inline_allocate
|
|
("C_a_i_cons" 3)
|
|
r100
|
|
y11)))
|
|
(try3 k87 r92 r96 z12))))))))
|
|
(let ((k102 (##core#lambda
|
|
(r103)
|
|
(if r103
|
|
(let ((k109 (##core#lambda
|
|
(r110)
|
|
(let ((r118 (##core#inline "C_i_car" x10)))
|
|
(let ((r114 (##core#inline_allocate
|
|
("C_a_i_cons" 3)
|
|
r118
|
|
z12)))
|
|
(try3 k83 r110 '() r114))))))
|
|
(let ((r122 (##core#inline "C_i_cdr" x10)))
|
|
(append k109 r122 y11)))
|
|
(k83 '0)))))
|
|
(let ((r126 (##core#inline "C_i_car" x10)))
|
|
(ok?4 k102 r126 '1 z12)))))))))
|
|
(let ((t128 (set! ok?4
|
|
(lambda (k130 row13 dist14 placed15)
|
|
(if (##core#inline "C_i_nullp" placed15)
|
|
(k130 '#t)
|
|
(let ((r178 (##core#inline "C_i_car" placed15)))
|
|
(let ((r182 (##core#inline_allocate
|
|
("C_a_i_plus" 4)
|
|
row13
|
|
dist14)))
|
|
(if (##core#inline "C_i_nequalp" r178 r182)
|
|
(k130 '#f)
|
|
(let ((r166 (##core#inline "C_i_car" placed15)))
|
|
(let ((r170 (##core#inline_allocate
|
|
("C_a_i_minus" 4)
|
|
row13
|
|
dist14)))
|
|
(if (##core#inline "C_i_nequalp" r166 r170)
|
|
(k130 '#f)
|
|
(let ((r154 (##core#inline_allocate
|
|
("C_a_i_plus" 4)
|
|
dist14
|
|
'1)))
|
|
(let ((r158 (##core#inline "C_i_cdr" placed15)))
|
|
(ok?4 k130 row13 r154 r158))))))))))))))
|
|
(let ((k188 (##core#lambda (r189) (try3 k37 r189 '() '()))))
|
|
(let ((loop6 (##core#undefined)))
|
|
(let ((t44 (set! loop6
|
|
(lambda (k46 i7 l8)
|
|
(if (##core#inline "C_i_nequalp" i7 '0)
|
|
(k46 l8)
|
|
(let ((r58 (##core#inline_allocate ("C_a_i_minus" 4) i7 '1)))
|
|
(let ((r62 (##core#inline_allocate ("C_a_i_cons" 3) i7 l8)))
|
|
(loop6 k46 r58 r62))))))))
|
|
(loop6 k188 n1 '()))))))))))))
|
|
(let ((k191 (##core#lambda
|
|
(r192)
|
|
(let ((k194 (##core#lambda (r195) (k28 (##core#undefined)))))
|
|
(let ((k197 (##core#lambda (r198) (r198 k194))))
|
|
(##sys#implicit-exit-handler k197))))))
|
|
(let ((k201 (##core#lambda (r202) (write k191 r202))))
|
|
(nqueens k201 '8)))))))
|
|
(##core#callunit "eval" k32)))))
|
|
(##core#callunit "library" k29)))
|