Eduardo Cavazos wrote:
> (define point+n
> (bi2 (dip point-x +)
> (dip point-y +)
> make-point))
I use 'dip' in the above definition, but it's not in the original list I
shared. Here's 'dip':
(define (dip f c)
(lambda (x y)
(c (f x)
y)))
> (define norm
> (bi point-x point-y (bi@ sq (uni2 + sqrt))))
And 'uni2':
(define (uni2 f c)
(lambda (x y)
(c (f x y))))
Ed
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
