Path: utzoo!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!elroy.jpl.nasa.gov!jarthur!sburke
From: sburke@jarthur.Claremont.EDU (Scott Burke)
Newsgroups: comp.sys.handhelds
Subject: 2 Vectors -> Array
Message-ID: <11140@jarthur.Claremont.EDU>
Date: 9 Mar 91 21:57:07 GMT
Organization: Harvey Mudd College, Claremont, CA
Lines: 15


Hey, while we're at it, here's an even _shorter_ version, which saves 10 more
bytes:

<<
  SWAP OBJ-> EVAL     @ EVAL replaces OBJ-> DROP
  1 + ROLL OBJ->
  2 SWAP + ->ARRY     @ why blow up the list if you're going to re-make it?
>>

Checksum # 52064d; 37.5 bytes for the program object


Scott.
sburke@jarthur.claremont.edu