Protein
12-30-2011, 05:48 PM
Please help to write code on scheme language:
Procedure (SUblists superlist) gets members that is it's lists. Procedure checks if all the members of sublists are numbers only.
For example:
(define YYY(list (list 5 8 3) (list 4 14 2)(list 12 -25 33)))
(Sublists YYY) => #t
(define ZZZ (list (list 12 'as 34)(list "gfrr" 45)(list 22 56 78)))
(Sublists ZZZ) => #f
Procedure (SUblists superlist) gets members that is it's lists. Procedure checks if all the members of sublists are numbers only.
For example:
(define YYY(list (list 5 8 3) (list 4 14 2)(list 12 -25 33)))
(Sublists YYY) => #t
(define ZZZ (list (list 12 'as 34)(list "gfrr" 45)(list 22 56 78)))
(Sublists ZZZ) => #f