hyphenrf

let rec perm = function
  | [] -> []
  | [x] -> [[x]]
  | xs -> 
    let rec aux i ls =
      let (l,r) = splitat i ls in
      match r with
      | [] -> []
      | h::r_ ->
        let rest = l @ r_ in

hyphenrf

{-# language OverloadedStrings #-}

import Prelude hiding (getLine, putStr, filter, length, take, drop)
import Data.ByteString
import Data.Maybe


main = do
  ln <- getLine
  putStr $ f ln          -- putStr and getLine from ByteString

hyphenrf

#> shell doesn't have multiline comments

: <<comment
ok
buddy
here's
your
multiline
comment

hyphenrf

import functools

c = lambda f: lambda g: lambda x: f (g (x))
add = lambda x: lambda y: x + y
const = lambda x: lambda y: x
uncurry = lambda f: lambda x, y: f (x) (y)

succ = add (1)
fold = lambda f: lambda z: lambda xs: functools.reduce(uncurry(f), xs, z)
len  = fold (c (const) (succ)) (0)

hyphenrf

#!/usr/bin/env python2

from pisi.api import *
from pisi.util import human_readable_size
from os.path import basename as b
from sys import argv


ctx = set()

hyphenrf

                        Walter Bright's MEM Package
                        ---------------------------


PREFACE:
--------

The files, MEM.H and MEM.C which constitute the MEM package were originally
published in the March-April 1990 edition of Micro Cornucopia magazine, now
sadly out of print.  The files as they appear in SNIPPETS have been edited