mnemnion

(defn seq-string
  "make a string seqable by character"
  [split-me]
  (seq (drop 1 (clojure.string/split split-me #""))))

mnemnion

( brute force ngaro assembler )

chain: ming'


  : nop,    0 , ; immediate       
  : drop,   3 , ; immediate       
  : pop,    6 , ; immediate       
  : ;,      9 , ; immediate       
  : !jump, 12 , ; immediate       

mnemnion

( Simple Hex Dump )
needs bad'
needs console'

8 constant (dump-width)

: putxt xt->d d->name puts ;

: hexabyte ( "hexes a byte" )
	dup 10 < 

mnemnion

 
        	 
   
                     ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  

mnemnion

#![feature(tuple_indexing)]

use std::default::Default;

const WORKS_CONST: uint = 23 ;
const ALSO_WORKS_CONST: uint = WORKS_CONST + 5 ;

struct Wrapper(uint);
const WRAPPED_CONST: Wrapper = Wrapper(42) ;
const BAD_CONST: uint = WRAPPED_CONST.0 ;

mnemnion

type Cell = u32 ;

type Kilo = u32 ;
fn main() {
    let x: Cell = 5 ;
    let y: Kilo = 10 ;
    let z = x + y ;
    println!("Cell is {}, Kilo is {}, Nonsense is {}", x, y, z);

}

mnemnion

use std::fmt;

const FORMATTER: &'static str = "{}" ;

fn main() {

    let x = 5i;
    println! (FORMATTER, x);

}

mnemnion

function advise (adviceFn, ogFn) 
	return function (...) adviceFn(unpack(arg)) ogFn(unpack(arg)) end
end

function foo (x) 
	print ("foo") 
	print (x)
end

mnemnion

package main

import "fmt"
import "github.com/pointlander/peg"

type pegger peg.Peg {
	fmt.Printf("hi")
}

func main() {

mnemnion

#lazyfuncs for dotting and undotting stuff
function dt {
	for file in "$@"; do
		if [[ ${file:0:1} != "." ]]
			then mv $file ".$file"
			else echo "$file is already dotted"
		fi
	done
}