Noon van der Silk silky

list of instructive dance videos

a list of things that are tentatively impossible.

 {-# LANGUAGE QuasiQuotes #-}
 import Text.InterpolatedString.Perl6 -- For tests
 import System.Environment (getArgs)
 import Data.List.Split    (splitOn)
 import Data.List          (intercalate)
 -- IO:
 main :: IO ()

	> {-# LANGUAGE RankNTypes,
	> FlexibleInstances,
	> UndecidableInstances #-}
	> import Control.Monad (liftM2)


	> type Reducer a r = r -> a -> r
	> type Transducer a b = forall r. Reducer a r -> Reducer b r

	-- what is this?
	-- http://en.wikibooks.org/wiki/Haskell/Fix_and_recursion

	fix :: (a -> a) -> a
	fix f = f (fix f)

	In the Beginning was the Command Line

	by Neal Stephenson


	About twenty years ago Jobs and Wozniak, the founders of Apple, came up with the very strange idea of selling information processing machines for use in the home. The business took off, and its founders made a lot of money and received the credit they deserved for being daring visionaries. But around the same time, Bill Gates and Paul Allen came up with an idea even stranger and more fantastical: selling computer operating systems. This was much weirder than the idea of Jobs and Wozniak. A computer at least had some sort of physical reality to it. It came in a box, you could open it up and plug it in and watch lights blink. An operating system had no tangible incarnation at all. It arrived on a disk, of course, but the disk was, in effect, nothing more than the box that the OS came in. The product itself was a very long string of ones and zeroes that, when properly installed and coddled, gave you the ability to manipulate other very long strings of o

	-- see http://jelv.is/blog/Lazy-Dynamic-Programming/

	import Data.Array (listArray, bounds, range, (!))
	import Data.List (minimumBy)
	import Data.Ord (comparing)

	-- standard fib
	fib n = fibs !! n
	where fibs = 0 : 1 : zipWith (+) fibs (drop 1 fibs)