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

[REBOL] Re: [SCRIPT] select/deep

From: arolls::bigpond::net::au at: 3-Feb-2001 0:23

How about this quick one? block: ["anybody" [test1 [1 [1 2] 2 [1 5]]]] selection-block: ["anybody" 'test1 2] select-deep: func [ blk [block!] sel-blk [block!] /local v ][ v: select block first sel-blk foreach item next sel-blk [ probe v v: select v item ] return v ] select-deep block selection-block