fork(1) download
copy 
  1. f n k xs = ws where
  2.   ws = zipWith3 (\x y z -> x + y + z) xs ys zs
  3.   ys = last xs : init xs
  4.   zs = last ys : init ys
  5.  
  6.  
  7. main = do
  8.   [n, k] <- getLine >>= (return . map read . words) :: IO [Int]
  9.   xs     <- getLine >>= (return . map read . words) :: IO [Int]
  10.   print $ f n k xs
  11.  
Success #stdin #stdout 0s 6288KB
comments (?)
stdin
copy 
9 3
1 1 1 1 0 0 0 1 1
stdout
copy 
[3,3,3,3,2,1,0,1,2]
https://ideone.com/kuYxxx
language:
Haskell (ghc 8.4.4)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!