Телеграмм чат группы fprog

maximumOf each (100,3)
Just 100

00:21пожаловаться #1

Кажется я снова что-то подтасовываю

00:21пожаловаться #2

3 + Ох

00:21пожаловаться #3

Ох + 3

00:21пожаловаться #4

Andrey Ivanov in fprog_spb

+ 3 Ох

00:21пожаловаться #5

00:21пожаловаться #6

+ Ох Ох Ох

00:21пожаловаться #7

00:21пожаловаться #8

Andrey Ivanov in fprog_spb

cons не подтасуешь - не продашь

00:23пожаловаться #9

("не" "подтасуешь" - "не" "продашь")

00:23пожаловаться #10

system "uname -r"

00:25пожаловаться #11

19.5.0

00:26пожаловаться #12

defun ackermann (m n)
(cond ((= m 0) (+ n 1))
((= m 1) (+ n 2))
((= m 2) (+ 3 (* n 2)))
((= m 3) (+ 5 (* 8 (- (expt 2 n) 1))))
(t (cond ((= n 0) (ackermann (- m 1) 1))
(t (ackermann (- m 1) (ackermann m (- n 1))))
))
)

00:28пожаловаться #13

😈

00:28пожаловаться #14

defn ackermann (m n)
(cond ((= m 0) (+ n 1))
((= m 1) (+ n 2))
((= m 2) (+ 3 (* n 2)))
((= m 3) (+ 5 (* 8 (- (expt 2 n) 1))))
(t (cond ((= n 0) (ackermann (- m 1) 1))
(t (ackermann (- m 1) (ackermann m (- n 1))))
))
)

00:29пожаловаться #15