Script Library: 1238 scripts


REBOL [ Title: "Sorting nested blocks" Date: 16-Jun-1999 File: %sort-nests.r Author: "Jeff Kreis" Purpose: "Sort a block of blocks on different fields." Email: %jeff--rebol--com library: [ level: 'intermediate platform: 'all type: [Tool function] domain: [DB x-file] tested-under: none support: none license: none see-also: none ] Version: 1.0.0 ] fields: [name legs eyes web-site] creature-db: [ ["Beetle" 6 2] ["Fly" 6 26] ["Aardvark" 4 2] ["Spaz" 3 14] ] list-it: func ["Column printer" i [integer!]][ foreach creature creature-db [ foreach :fields creature [ foreach item [name legs eyes web-site] [pad get item] print "" ] ] ] pad: func [arg][prin arg loop absolute (length? form arg) - 10 [prin " "]] repeat i length? fields [ sort/compare creature-db func [a b][(pick a i) < pick b i] print ["^/;---Soring on field" i newline] list-it i ]
halt ;; to terminate script if DO'ne from webpage
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (jeff:rebol:com)