Map and FOOP context functions
Posted: Tue Jun 03, 2008 5:35 pm
Can these not be used in map and other higher order functions, like apply and filter?
Code: Select all
(define (Class:Class)
(cons (context) (args)))
(new Class 'Rectangle)
(new Class 'Circle)
(define (Rectangle:area p)
(mul (p 3) (p 4)))
(define (Circle:area c)
(mul (pow (c 3) 2) (acos 0) 2))
(set 'myrect (Rectangle 5 5 10 20))
(set 'mycircle (Circle 1 2 10))
(map (curry :area) (map eval '(myrect mycircle))) => (200 314.1592654)
(map (curry :area) '((Rectangle 5 5 10 20)(Circle 1 2 10))) => (200 314.1592654)
Code: Select all
(:area myrect)
; same as
(: area myrect)