language: CLIPS (clips 6.24)
date: 155 days 19 hours ago
link:
visibility: public
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 (funcall (lambda (toi three xexp xx pred)
           (funcall (lambda (x)
                      (map (quote (vector character)) (lambda (i) (funcall (lambda (x) (code-char (+ 48 x))) (ldb (byte (funcall toi (lambda (f) (lambda (x) (funcall f (funcall f (funcall f x)))))) i) x)))
                           (funcall (lambda (x)
                                      (declare (special x))
                                      (funcall (lambda (tf) (funcall (lambda (f) (funcall tf f)) (lambda (f) (funcall tf f))))
                                               (lambda (f)
                                                 (cons (funcall toi x)
                                                       (unless (funcall (funcall x (lambda (x) nil)) t)
                                                         (let ((x (funcall pred x)))
                                                           (declare (special x))
                                                           (funcall f f)))))))
                                    (funcall pred (funcall pred (funcall xx three (lambda (f)
                                                                                    (lambda (x)
                                                                                      (funcall f
                                                                                               (funcall f
                                                                                                        (funcall f
                                                                                                                 (funcall f
                                                                                                                          (funcall f
                                                                                                                                   (funcall f
                                                                                                                                            (funcall f
                                                                                                                                                     (funcall f
                                                                                                                                                              (funcall
                                                                                                                                                               f
                                                                                                                                                               (funcall
                                                                                                                                                                f
                                                                                                                                                                (funcall
                                                                                                                                                                 f
                                                                                                                                                                 x)))))))))))))))))))
                    (funcall toi (funcall xexp (lambda (f)
                                                 (lambda (x)
                                                   (funcall f
                                                            (funcall f
                                                                     (funcall f
                                                                              (funcall f
                                                                                       (funcall f
                                                                                                (funcall f
                                                                                                         (funcall f
                                                                                                                  (funcall f
                                                                                                                           (funcall
                                                                                                                            f
                                                                                                                            x)))))))))))))))
         (lambda (x) (funcall (funcall x (function 1+)) 0))
         (lambda (f) (lambda (x) (funcall f (funcall f (funcall f x)))))
         (lambda (x) (funcall x x))
         (lambda (m n) (lambda (f) (funcall n (funcall m f))))
         (lambda (n) (lambda (f) (lambda (x) (funcall (funcall (funcall n (lambda (g) (lambda (h) (funcall h (funcall g f))))) (lambda (u) x)) (lambda (u) u))))))
  • upload with new input
  • result: Runtime error     time: 0.11s    memory: 3068 kB     signal: -1

    11