moonmaster9000

module LiquidLayouts (columnSort) where
import List

columnSort xs n = concat (transpose (slice sliceSize xs))
  where 
    sliceSize = 
      ceiling (fromIntegral(length xs) / fromIntegral(n))

slice _ [] = [[]]
slice n xs = leftPartition : slice n remainder

moonmaster9000

module LiquidLayouts (columnSort) where
import List

columnSort xs n = concat (transpose (slice sliceSize xs))
  where 
    sliceSize = 
      ceiling (fromIntegral(length xs) / fromIntegral(n))

slice _ [] = []
slice n xs = firstSlice : remainingSlices

moonmaster9000

require 'enumerator'

class Array

  def column_sort(num_columns, &block)
    new_array = block ? sort(&block) : self.dup
    extras = new_array.length % num_columns
    new_length = extras == 0 ? new_array.length : new_array.length + num_columns - extras
    new_array.pad(new_length).slices(num_columns).transpose.flatten
  end

moonmaster9000

#!/usr/bin/env ruby

# applies a transform_function (Proc instance) to an input_file 
# and writes it out to the output_file
def transform_file(transformer_function, input_file, output_file)
  File.open(output_file, 'w') do |f| 
    f.write transformer_function.call(File.read(input_file))
  end
end

moonmaster9000

import System.Environment (getArgs)
import LineEndingConverter

main = 
  do
    args <- getArgs
    
    case args of
      [input,output] -> 
        transformFileWith transformerFunction input output

moonmaster9000

module LineEndingConverter
where

-- splits a string into substrings based on the newlines
-- and handles both windows and unix style line endings
splitLines []     = []
splitLines string = firstLine : remainingLines
  where
    (firstLine, rest) = break carriageReturnOrLineFeed string
    remainingLines    = 

moonmaster9000

class Author
  attr_accessor :name, :books
  
  def initialize(name)
    @name = name
    @books = []
  end
end

class Book

moonmaster9000

clarke = Author.new "Arthur C. Clarke"
odyssey = Book.new "2001: A Space Odyssey"

clarke.books << odyssey
odyssey.authors << clarke

moonmaster9000

module Library where

data Author = 
  Author { 
    name  :: String, 
    books :: [Book]   
  } deriving (Show)

data Book = 
  Book { 

moonmaster9000

clarke = createAuthor "Arthur C. Clarke" ["2001: A Space Odyssey", "Rama!"]