Compare commits
2 Commits
657087d6ed
...
366b3950b3
Author | SHA1 | Date |
---|---|---|
Jill | 366b3950b3 | |
Jill | 04830003a3 |
|
@ -0,0 +1,8 @@
|
||||||
|
import Data.List
|
||||||
|
|
||||||
|
markerLength = 4
|
||||||
|
|
||||||
|
main = interact $
|
||||||
|
show
|
||||||
|
. (+ 1) . head
|
||||||
|
. (\l -> filter (\i -> markerLength == length (nub $ map (l !!) [i - (markerLength - 1) .. i])) [(markerLength - 1)..])
|
Loading…
Reference in New Issue