home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Open 13
/
pcopen13.iso
/
Zip
/
SM34A.ZIP
/
LIBRARY
/
DO.LI
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1993-10-16
|
212 b
|
8 lines
# do(y, x,xmin,xmax,dx) do y with x looping from xmin to xmax on step
# of dx. e.g.
# IN: x:=1, do(x:=x+1, j,1,5,1)
# OUT: x:=5
# See also: list,repeat.
do(y_, x_, xmin_, xmax_) := do(y, x,xmin,xmax,1)