Main.hs

module Main where

import Data.List.Zipper
import Prelude(IO, (==), mod, print)

main :: IO ()
main = print (filter' (\x -> x `mod` 2 == 0) zipper)


myList = [1..100]

zipper = fromList myList


filter' p = foldrz (\z xs -> if (p (cursor z))
                             then ((cursor (left z)), (cursor z)) : xs
                             else xs) []