lsparrish

9 variable: prefix:CHAR

create prefix:TABLE
  256 allot

: getc:internal  ( -c )  &getc 2 + @ do ;

[ dup @prefix:CHAR ==
  [ drop getc:internal
    "prefix:TABLE" find drop @d->xt + @ dup 0 <>

lsparrish

needs struct'
with struct'
chain: binding'
  {
    1 field .link
    1 field .label
    1 field .xt
  } bind
  variables| prefix lastbinding |
  : getc:internal  ( -c )  &getc 2 + @ do ;

lsparrish

: header' here @last' , !last' &.word , here 2 + , , ;
: :' getc dup putc header' 0 , 0 , ]] ;
variable c
: find' ( c-af ) !c last' repeat @ dup 0; 3 + @ @c = dup if; drop again ;
: d'' ( "-a) getc dup putc find' drop ;
: pair ( h-aa ) dup @d->xt swap @d->class ;
: start -1 repeat getc dup putc find' [ pair do ] ifTrue 0; again ;
:' a 1 putn ;
:' b 2 putn ;
:' c drop 0 ;

lsparrish

needs struct'
with struct'
: clone' ( a-a   ) here 2dup swap size dup push allot pop copy ;

{ 2 fields .name .personal-dict } user
: ;parse ( "-$ ) '; accept tib keepString ;
: name: ( a"- ) ;parse swap .name ! ;
user luke
luke name: Luke Parrish;

lsparrish

needs decimal'
with decimal'
: sqr ( n-n ) dup * ;
3 elements i j sum
1 !i 1 !j 0 !sum
8 !scale
: // ( nn-n ) push 100000000 * pop / ;
: pi_series ( -) repeat @j @i // @sum + !sum 4 @sum * yield @i 2 + !i @j -1 * !j again ;

3 elements s0 s1 s2

lsparrish

( generator )
{{
: xt,   ( - ) 1 , @last @d->xt , ;
---reveal---
: yield ( - ) 1 , here 5 + , xt, [ :is ] , 9 , xt, [ :devector ] , ;
compile-only
}}
: foo   ( - ) "State one" puts yield
              "State two" puts ;

lsparrish

import IO
-- IO playground
intro :: String
intro = "Hello, welcome to the playground."
prompt = "\n->"
--

quit :: IO ()
quit = do putStr "\nGoodbye."
loop :: IO ()

lsparrish

Idea: Digital commodity that acts as a source of credit and currency exchange.

Bitcoin already provides a good way of creating a chain of digital transactions that can't easily be faked. This kind of transaction could be tied to something more elaborate. Among the possibilities, a distributed system for generating currency in a manner that is similar to a loan against collateral.

1. Alice generates a hard hashes against genesis block containing her public key.
2. Bob (and everyone) verifies that they are indeed hard and against the genesis block.
3. Alice sends Claire a transaction signed with her public key.
4. Bob verifies that the transaction is signed by someone with Alice's (i.e. the hard hash solver's) public key.

So far, I'm describing bitcoin. However additional rules can be added to enable conversions like this:

lsparrish

mkdir ~/bzr
cd ~/bzr
bzr branch lp:retro-language
mkdir ~/github
mkdir ~/github/retro-language
cd ~/github/retro-language
git init
bzr fast-export --plain ~/bzr/retro-language/ | git fast-import
git checkout master 
git remote add origin https://github.com/lsparrish/retro-language.git

lsparrish

Idea: Liquid nitrojen jet cutter for CNC

This would be a novel form of CNC. Instead of waterjet, use liquid nitrogen.

A small high-tensile canister full of LN2 would be equipped with a small nozzle at the bottom, which would eject a high-speed burst of liquid nitrogen. Pressure would come from gas build-up in the top from boiling.