tibbe

test :: [Int] -> [Int]
test [] = []
test (x:xs)
    | even x    = x : test xs
    | otherwise = test xs

tibbe

even :: Int -> Bool
even x = x `mod` 2 == 0

test :: [Int] -> [Int]
test xs = filter even xs

tibbe

{-# INLINE filter #-}

tibbe

test :: [Int] -> [Int]
test [] = []
test (x:xs)
   | x `mod` 2 == 0 = x : test xs
   | otherwise      = test xs

tibbe

test :: [Int] -> [Int]
test xs = filter (\x -> x `mod` 2 == 0) xs

tibbe

filter :: (a -> Bool) -> [a] -> [a]
filter p = go
 where
   go [] = []
   go (x:xs)
       | p x       = x : go xs
       | otherwise = go xs

tibbe

filter :: (a -> Bool) -> [a] -> [a]
filter _ [] = []
filter p (x:xs)
   | p x       = x : filter p xs
   | otherwise = filter p xs

tibbe

member :: Int -> [Int] -> Bool
member n = go
 where
   go [] = False
   go (x:xs)
       | x == n    = True
       | otherwise = go xs

tibbe

member :: Int -> [Int] -> Bool
member _ [] = False
member n (x:xs)
   | x == n    = True
   | otherwise = member n xs

tibbe

{-# LANGUAGE OverloadedStrings #-}

module Main where

import qualified Data.ByteString.Lazy as S
import qualified Data.Text as T
import qualified Data.Text.Lazy.Encoding as E

import Data.Text.Template