1234567891011121314151617181920 |
- (defn temp-rule [one two three] true)
- (defn proc
- ([line]
- (if (empty? line)
- []
- (proc false (first line) (second line) (drop 2 line) [])))
- ([one two three r acc]
- (let [rule temp-rule]
- (if (nil? two)
- (conj acc (rule false one false))
- (if (nil? three)
- (conj acc (rule one two false))
- (proc two three (first r) (rest r) (conj acc (rule one two three))))))))
|