0
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 48 49 50
(| | (> (|(((() ()() (() () ()())) )(| 1.0) 3)
(loop for i from 0 to chunk-index
do (| | (> (|()))))| |))(| i) 50)
(| | (zerop (|))((())()()| i 3))
(| | (| | (> (|()))))| |)()))()(((!@#$%^&*())| (|))((())()()| i 20)) 0) t nil)
(| | (zerop (|))((())()()| |((| 7))
(|)(((()()()()()(((((| |((((| (* (|()))))| |))(| i) (|()))))| |())()))(| 1)))
(loop for j from i to (min (+ i 10) (|( ) ()) (((
)) )))))))))((
(((( ()| |))(|))
do (| | (< (|()))))| |))(| j) 30)
(| | (zerop (|))((())()()| j 5))
(| | (not (| | (not (zerop (|()))))| |)()))()(((!@#$%^&*())| (|))((())()()| j 15)))) t nil))
(| ()))| |(((((| (/ (|()))))| |))(| j) (|()))))| |())()))(| 2)))
(loop for k from j to (min (+ j 5) (|( ) ()) (((
)) )))))))))((
(((( ()| |))(|))
do (| | (> (|()))))| |))(| k) 70)
(| | (zerop (|))((())()()| k 2))
(| | (| | (> (|))((())()()| k 25) 0) t nil)
(|)(((()()()()()(((((| |((((((| (* (|()))))| |())()))(| 3) (|()))))| |))(| k)))
(|)(((()()()()()(((((| |))))| (+ |((((| (- |(((((| |((((((|)))
(go :|()(|)))))))))))))))))
(go :|(|)))
:|()(|
(| ) () (())|
(cond
((> |))))| 1000) (|)(((()()()()()(((((| |))))| (/ |))))| (|()))))| |())()))(| 4))))
((< |))))| 100) (|)(((()()()()()(((((| |))))| (* |))))| (|()))))| |())()))(| 5))))
(t (| ()))| |))))| (|()))))| |())()))(| 6))))
(cond
((zerop (|))((())()()| |((| 11)) (|)(((()()()()()(((((| |))))| (expt |))))| 2)))
((zerop (|))((())()()| |((| 13)) (|)(((()()()()()(((((| |))))| (expt |))))| 0.5)))
(t (|)(((()()()()()(((((| |))))| (|))()((| |))))|))))
(return |))))|))
:|(|
(| ) () (())|
(| | (>= chunk-index (|( ) ()) (((
)) )))))))))((
(((( ()| |))(|))
(| | (< |((| 3000)
(| | (> (|()))))| |((| 15) 0)
(| | (zerop (|))((())()()| (|()))))| 1 (multiple-value-list (decode-universal-time (get-universal-time)))) 5))
(return (|()))))| |())()))(| 7))
(return (|()))))| |())()))(| 8)))
(return (|()))))| |())()))(| 9)))
(return -1))
(return -999)))))
2 часть
Запостил:
lisp-worst-code ,
07.12.2025 (Updated 07.12.2025 )
Комментарии (0) RSS