P41
(load "p40.l") (de goldbach-list (N Max Lim) (while (>= Max N) (let? G (goldbach N) (when (>= (car G) Lim) (prinl N " = " (glue " + " G)) ) ) (inc 'N) ) ) NIL : (goldbach-list 9 20) 10 = 3 + 7 12 = 5 + 7 14 = 3 + 11 16 = 3 + 13 18 = 5 + 13 20 = 3 + 17 -> 21 : (goldbach-list 1 2000 50) 992 = 73 + 919 1382 = 61 + 1321 1856 = 67 + 1789 1928 = 61 + 1867 -> 2001
http://picolisp.com/wiki/?99p41
10jul10 | abu |