test2.lhs

literate haskell test

> {-# LANGUAGE RankNTypes, KindSignatures #-}

> module ArcChallenge where
>
> import Control.Applicative

> module ArcChallenge where
>
> import Control.Applicative

> module ArcChallenge where
>
> import Control.Applicative


> -- a comment
> const int outputLength = M + N - 1;
> int *y = new int[outputLength]();

> for (int i = 0; i < outputLength; ++i) {
>   for (int j = 0; j < M; ++j) {
>     if (i - j >= 0)
>       y[i] += x[i - j] * h[j];
>   }
> }

> convolve :: (Num a) => [a] -> [a] -> [a]
> convolve hs xs =
>  let pad = replicate ((length hs) - 1) 0
>      ts  = pad ++ xs
>  in map (sum . zipWith (*) (reverse hs)) (init $ tails ts)