Paste: stam

Author: rand
Mode: factor
Date: Sat, 31 Jan 2009 21:39:00
Plain Text |
USING: kernel math.ranges sequences splitting ;
: bread-crumbs ( path -- seq ) ! example path: "/boot/home/apps/CDPlayer"
    "/" split dup length [1,b] 
    [ head ] with map
    [ "/" join ] map
    harvest "/" prefix ;

New Annotation

Summary:
Author:
Mode:
Body: