💾 Archived View for compudanzas.net › forth.gmi captured on 2021-12-17 at 13:26:06. Gemini links have been rewritten to link to archived content

-=-=-=-=-=-=-

forth

stack-based and lightweight programming language.

it uses the postfix notation.

postfix

reading

this book has a great pace and nice illustrations

starting forth book

trying out

forth editor lifted from easy forth - by eli_oat

some words

running

these are some words for doing arithmetic with paces (min/km) and velocities (km/hr) relevant to running

running

( running.forth )
: ms>s swap 60 * + ; ( 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 )
: s1k>vel 3600 swap / ; ( segs1km -- vel )
: paso>vel ms>s s1k>vel ; ( min segs -- vel )
: vel>s1k 3600 swap /  ; ( vel -- segs1km )
: ms- ms>s >r ms>s r> - ; ( min segs min segs -- segs )
: .min 0 <# [CHAR] ' HOLD #S #> TYPE ; ( min -- )
: .segpad 0 <# [CHAR] " HOLD # # #> TYPE ; ( segs -- )
: .seg 0 <# [CHAR] " HOLD #S  #> TYPE ; ( segs -- )
: .ms 60 /mod dup 0> IF .min .segpad ELSE drop .seg THEN ; ( segs -- )
: .vel . ." km/hr " ;
: lista-velocidades cr 21 10 do i dup .vel vel>s1k .ms cr loop ;

for example, to convert a velocity to a pace, and print it:

18 vel>s1k .ms 

output:
3'20" ok

to do the opposite operation:

3 20 ms>s s1k>vel .vel

output:
18 km/hr ok

to get the pace of a given segment, using minutes, seconds and distance in meters:

( 1'03" in 300m )
1 03 300 msd>s1k .ms

output:
3'30" ok

to get the difference between two times in minutes, seconds:

( 3'20" - 3'15" )
3 20 3 15 ms- .ms 

output:
5" ok

incoming links

most recent update on: 12021-09-28

source file

compudanzas home

text, images, and code are shared with the peer production license