(define (pastri x y)
(if (or (< y 1) (> x y) (< x 1))
0
(if (or (= x 1) (= x y))
1
(+ (pastri x (- y 1))
(pastri (- x 1) (- y 1))))))กระทู้เก่าๆ จะย้ายตามไปในภายหลัง ตอนนี้ปิดการโพสต์กระทู้ไว้ เหลือไว้เฉพาะอ้างอิงเท่านั้น