Rubylike slice for strings and lists

mdemare (Michiel de Mare) — Wed, 30 Jan 2008 13:26:39 GMT

(slice "hello" 2 4) => "ll"
Comparable to: "hello"[2...4]

(slice "hello" 2 -1) => "ll"
Comparable to: "hello"[2...-1]

(slice "hello" '(2 2)) => "ll"
Comparable to: "hello"[2,2]

(slice "hello" 1) => "ello"
Comparable to: "hello"[2..-1]



(def slice (str x (o y))

  (if (atom x)

    (if 

      ; (slice "hello" 1) => "ello"

      (no y) 

        (subseq str x)

      ; (slice "hello" 2 -1) => "ll"

      (< y 0) 

        (subseq str x (+ (len str) y))

      ; (slice "hello" 2 4) => "ll"

      (subseq str x y))

    ; (slice "hello" '(2 2)) => "ll"

    (subseq str (car x) (+ (car x) (cadr x)))))

DZone Snippets: Mdemare's Code Snippets

Rubylike slice for strings and lists