order of lines
This commit is contained in:
parent
29b39182fa
commit
eee020fd6d
|
@ -17,11 +17,12 @@ this book has a great pace and nice illustrations
|
||||||
these are some words for doing arithmetic with paces (min/km) and velocities (km/hr)
|
these are some words for doing arithmetic with paces (min/km) and velocities (km/hr)
|
||||||
|
|
||||||
``` forth words
|
``` forth words
|
||||||
|
( running.forth )
|
||||||
: ms>s swap 60 * + ; ( min segs -- segs )
|
: ms>s swap 60 * + ; ( min segs -- segs )
|
||||||
: hms>s ms>s swap 3600 * + ; ( hr min segs -- segs )
|
: hms>s ms>s swap 3600 * + ; ( hr min segs -- segs )
|
||||||
: msd>s1k >r ms>s 1000 swap r> */ ; ( min segs metros -- segs1km )
|
: msd>s1k >r ms>s 1000 swap r> */ ; ( min segs metros -- segs1km )
|
||||||
: paso>vel ms>s s1k>vel ; ( min segs -- vel )
|
|
||||||
: s1k>vel 3600 swap / ; ( segs1km -- vel )
|
: s1k>vel 3600 swap / ; ( segs1km -- vel )
|
||||||
|
: paso>vel ms>s s1k>vel ; ( min segs -- vel )
|
||||||
: vel>s1k 3600 swap / ; ( vel -- segs1km )
|
: vel>s1k 3600 swap / ; ( vel -- segs1km )
|
||||||
: ms- ms>s >r ms>s r> - ; ( min segs min segs -- segs )
|
: ms- ms>s >r ms>s r> - ; ( min segs min segs -- segs )
|
||||||
: .min 0 <# [CHAR] ' HOLD #S #> TYPE ; ( min -- )
|
: .min 0 <# [CHAR] ' HOLD #S #> TYPE ; ( min -- )
|
||||||
|
|
Loading…
Reference in New Issue