nobsun

main = interact gonyo

nobsun

import Control.Monad (liftM2)

excelColns  ::  [String]
excelColns  =   concat $ tail $ iterate (liftM2 (:) ['A'..'Z']) [""]

nobsun

(foldr (⊕) z .) . zipWith (⊗) 
⇔
foldr (⊛) (const z)
  where
    (x ⊛ k) []     = z
    (x ⊛ k) (y:ys) = (x ⊗ y) ⊕ k ys

nobsun

ssum :: Num a => [a] -> [a] -> a
ssum = foldr f (const 0)
    where
        f x g []     = 0
        f x g (y:ys) = x * y + g ys

nobsun

import Control.Parallel.Strategies

x,y :: Int
x = repeat 0 !! 1000000000
y = repeat 1 !! 1000000000
foo :: Eval Int
foo = do { rpar x; rpar y; return 2 }

{-
% ghci -v0 rpar.hs

nobsun

data I a = I {unI :: a}

instance Functor I where
  fmap f (I a) = I (f a)

instance Monad I where
  return    = I
  I x >>= f = f x

foo :: [I a] -> I [a]

nobsun

module Main where

import Control.Applicative
import Data.Time
import Data.Time.Calendar.OrdinalDate
import Data.Time.Calendar.WeekDate
import System.Environment

main :: IO ()
main = dispatch =<< getProgName

nobsun

ghci> :set +s
ghci> patternIndex "abbbbcddddeefggg" "eagcdfbe"
5578864439
(0.05 secs, 28983792 bytes)

nobsun

factorial        ::  Integer -> Integer
factorial (n+1)  =   (n+1) * factorial n
factorial 0      =   1

nobsun

module Main where

import Data.List

main :: IO ()
main = putStr
     $ unlines
     $ map (intercalate ".")
     $ map (map reverse)      -- 部分文字列反転
     $ unravels