Revision 636363613561 () - Diff

Link to this snippet: https://friendpaste.com/4lZlMSpfZN6DCCcxE2canl
Embed:
1
2
3
4
5
6
7
8
9
10
11
(deftype SeqFly [s]
  clojure.lang.ISeq
    (first [this] (first (split s)))
    (next  [this] (SeqFly. (last (split s))))
    (more [this] (next this))
    (cons [this other] '())
    (equiv [this other] true)
  clojure.lang.Seqable 
    (seq [this] this)
  Object
    (toString [this] (str s)))