Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
In SRFI 41's qsort what's lt?? Thanks!
25 views
Skip to first unread message
time
Aug 16, 2012, 2:41:18 PM8/16/12
to
In SRFI 41's qsort, what is lt? ?
(define-stream (qsort lt? strm)
(if (stream-null? strm)
stream-null
(let ((x (stream-car strm))
(xs (stream-cdr strm)))
(stream-append
(qsort lt?
(stream-filter
(lambda (u) (lt? u x))
xs))
(stream x)
(qsort lt?
(stream-filter
(lambda (u) (not (lt? u x)))
xs))))))
(define-stream (qsort lt? strm)
(if (stream-null? strm)
stream-null
(let ((x (stream-car strm))
(xs (stream-cdr strm)))
(stream-append
(qsort lt?
(stream-filter
(lambda (u) (lt? u x))
xs))
(stream x)
(qsort lt?
(stream-filter
(lambda (u) (not (lt? u x)))
xs))))))
Marco Maggi
Aug 16, 2012, 4:11:18 PM8/16/12
to
time wrote:
> In SRFI 41's qsort, what is lt? ?
"Less Than"? It is a predicate used compare elements.
> In SRFI 41's qsort, what is lt? ?
HTH
--
Marco Maggi
0 new messages