PAIP Excersise 2.4

ほとんどさっき書いたやつでワロタ

• vallog: PAIP 2.6

	(define (cross-product proc xls yls)
	(cross-combine xls yls proc))
	(define (combine-all xls yls)
	(cross-product append xls yls))
	(print (combine-all (map list '(a b c))(map list '(1 2 3))))
	;; ((a 1) (b 1) (c 1) (a 2) (b 2) (c 2) (a 3) (b 3) (c 3))
	(cross-product + '(1 2 3)'(10 20 30))
	;; (11 12 13 21 22 23 31 32 33)
	(cross-product list '(a b c d e f g h)'(1 2 3 4 5 6 7 8))
	;; ((a 1) (b 1) (c 1) (d 1) (e 1) (f 1) (g 1) (h 1)
	;; (a 2) (b 2) (c 2) (d 2) (e 2) (f 2) (g 2) (h 2)
	;; (a 3) (b 3) (c 3) (d 3) (e 3) (f 3) (g 3) (h 3)
	;; (a 4) (b 4) (c 4) (d 4) (e 4) (f 4) (g 4) (h 4)
	;; (a 5) (b 5) (c 5) (d 5) (e 5) (f 5) (g 5) (h 5)
	;; (a 6) (b 6) (c 6) (d 6) (e 6) (f 6) (g 6) (h 6)
	;; (a 7) (b 7) (c 7) (d 7) (e 7) (f 7) (g 7) (h 7)
	;; (a 8) (b 8) (c 8) (d 8) (e 8) (f 8) (g 8) (h 8))

view raw excesise-2.4.scm hosted with ❤ by GitHub