Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Apr 13th, 2012  |  syntax: Scheme  |  size: 0.31 KB  |  hits: 18  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
This paste has a previous version, view the difference. Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. ;;
  2. ;; Returns #f if any of evaluations of maybe-proc do so:
  3. ;;
  4. (define (maybe-map maybe-proc args)
  5.   (let loop ((args args)
  6.              (acc '()))
  7.     (if (null? args)
  8.         (reverse acc)
  9.         (let ((res (maybe-proc (car args))))
  10.           (and res
  11.               (loop (cdr args) (cons res acc)))))))
create a new version of this paste RAW Paste Data