nobsun

import Control.Applicative ((<*>))
import Control.Arrow (first,(***))

runlength :: (Eq a) => [a] -> [(a,Int)]
runlength = hylo ((:) . runlen) [] null (span' . (==) . head <*> id)

runlen :: ([a],Int) -> (a,Int)
runlen = first head

hylo f e p g x = if p x then e else f y (hylo f e p g x')

nobsun

perms :: [a] -> [[a]]

nobsun

perms :: [a] -> [[a]]

nobsun

permNth :: [a] -> Int -> [a]

nobsun

module Main where

import Data.List (tails)

rots :: String -> [String]
rots s = take n $ map (take n) $ tails $ cycle s
  where
    n = length s

main :: IO ()

nobsun

import Control.Arrow
import Data.Char

type Field = ([Int],Int)

ifield :: Field
ifield = (repeat 0,0)

data Piece = I | L | O | S | T deriving (Eq,Show,Read)
type Pos   = Int

nobsun

module F02 where

import Control.Arrow
import Data.Ix
import Data.List

type Range = ((Int,Int),(Int,Int))

readRange :: String -> Range
readRange s = case break (','==) s of

nobsun

{-# LANGUAGE FlexibleContexts #-}
module E11 where

import Data.List
import Data.Ord
import qualified Data.Set as S
import Data.Tree
import Math.NumberTheory.ArithmeticFunctions

type NodeID = Int

nobsun

module F01 where

import Control.Arrow
import Numeric
import Data.Char
import Data.Function
import Data.List
import Text.Printf
import Debug.Trace

nobsun

module O24 where

import Data.Char (digitToInt)
import Data.List (intercalate)

type Problem = String
type Answer = String

o24 :: Problem -> Answer
o24 = intercalate ","             -- 文字列のリストを "," を挟んで連結する