home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
calculat
/
sm30a.zip
/
REVERSE.(X)
< prev
next >
Wrap
Text File
|
1993-10-16
|
162b
|
6 lines
# reverse(x) reverses a list x in revserse order.
# e.g. reverse([1,2,3]) gives [3, 2, 1]
reverse(list_) := [ list(member(list,j), j,length(list),1,-1) ]