Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Re: reduction

From: limhk:acm at: 7-Oct-2001 9:36

hi, the one i use has a deep refinement: ===============CODE=============== REBOL [ Title: "Map Function" Date: "24-November-1999" Author: "Larry Palmiter" Purpose: { Maps a function of one arg onto a (nested) block of values. } ] map: func [ Maps a function onto elements of a block :f "function (use parens for literal)" b [block!] "block of values" /deep "maps function into nested blocks" /local out ][ out: make block! length? b if paren? :f [f: f] foreach el b [ either block? el [ either deep [ append/only out map/deep f el ][ append/only out el ] ][ append out f el ] ] ] ===========END OF CODE============= works beautifully. many thanks to Larry Palmiter for a great function! regards hk Gregg Irwin wrote: