Lyndon Maydwell sordina

## Rover.hs
import Data.List       (foldl')
import Data.List.Split (chunksOf)

-- Main:

main :: IO ()
main = print $ run input == output

-- Test-Data:

## index.html
<!DOCTYPE html>
<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    <title>OMG Particles!</title>
    <script type="text/javascript" src="http://mbostock.github.com/d3/d3.js?1.25.0"></script>
    <style type="text/css">

body {
  background: #222;

## Life.hs
import Data.List
import Control.Arrow
import System.Random


-- Core Life Engine

life = f 3 >>> map (map (q 3 >>> uncurry s))

s n 1 | n < 3     = 0 -- There is no 'off-by-one' error here

## Tabulater
#!/usr/bin/env ruby

class Array
	def transpose
		width  = self.map {|e| e.length}.max
		trans  = []
		(0..width - 1).each do |col|
			self.each do |row|
				element = row[col]
				(trans[col] ||= []) << element
	import Data.List (foldl')
	import Data.List.Split (chunksOf)

	-- Main:

	main :: IO ()
	main = print $ run input == output

	-- Test-Data:
	<!DOCTYPE html>
	<html>
	<head>
	<meta http-equiv="Content-Type" content="text/html;charset=utf-8">
	<title>OMG Particles!</title>
	<script type="text/javascript" src="http://mbostock.github.com/d3/d3.js?1.25.0"></script>
	<style type="text/css">

	body {
	background: #222;
	import Data.List
	import Control.Arrow
	import System.Random


	-- Core Life Engine

	life = f 3 >>> map (map (q 3 >>> uncurry s))

	s n 1 \| n < 3 = 0 -- There is no 'off-by-one' error here
	#!/usr/bin/env ruby

	class Array
	def transpose
	width = self.map {\|e\| e.length}.max
	trans = []
	(0..width - 1).each do \|col\|
	self.each do \|row\|
	element = row[col]
	(trans[col] \|\|= []) << element