find-impossible-24 ( -- n )

Vocabulary

benchmark.backtrack

Inputs

None

Outputs

n

an object

Definition

USING: kernel locals.backend ranges sequences ;

IN: benchmark.backtrack

: find-impossible-24 ( -- n )
    10 [1..b] [
        load-local 10 [1..b] 0 get-local [
            load-local 0 get-local [
                load-local load-local
                10 [1..b] -1 get-local 0 get-local [
                    2 load-locals -1 get-local 0 get-local [
                        2 load-locals load-local
                        10 [1..b] -2 get-local -1 get-local 0
                        get-local ~quotation~ curry curry curry
                        count 3 drop-locals
                    ] curry curry call 2 drop-locals
                ] curry curry map-sum 2 drop-locals
            ] curry call 1 drop-locals
        ] curry map-sum 1 drop-locals
    ] map-sum ;