rldecode.idel

来自「idel虚拟机源码」· IDEL 代码 · 共 30 行

\ Running this:
\   rlencode some-input-file | run rldecode.idel 
\ should reproduce some-input-file on standard output.

def 0 1 main   decode  0 ;

def 0 0 decode 
  absorb { code --  code 0 < if  
                   
                    else code 0 = if
                      absorb absorb repeat
                    else
                      code copy
                    then then } ;

def 2 0 repeat
  { c n --  0 n < if  
	      c emit  
	      c  n 1 -  repeat
	    else
	      decode 
	    then } ;

def 1 0 copy
  { n --  n 0 = if  
	    decode
	  else
	    absorb emit  n 1 - copy
	  then } ;