home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
forth
/
compiler
/
fpc
/
source
/
p3_29dc.seq
< prev
next >
Wrap
Text File
|
1990-04-06
|
718b
|
17 lines
\ Problem 3.29 by Dickson Cheng 04/06/90 14:50:14.87
: BAR ( -- ) 220 EMIT ;
: HISTOGRAM ( f1 f2 f3 ...fn -- )
CR DEPTH DUP 0 ( ??? -- f1 f2 f3 ... fn depth limit start )
?DO CR ( ??? -- f1 f2 f3 ... fn depth )
DUP >R ( ??? -- f1 f2 f3 ... fn depth )
DUP ROLL ( ??? -- f2 f3 ... fn depth f1 )
DUP 0 ( ??? -- f2 f3 ... fn depth f1 limit start )
?DO BAR LOOP ( ??? -- f2 f3 ... fn depth f1 )
SPACE DUP . ( ??? -- f2 f3 ... fn depth f1 )
SWAP R> DROP ( ??? -- f2 f3 ... fn f1 depth )
LOOP
0 ?DO DROP LOOP CR; ( f1 f2 f3 ... fn depth -- )