17 lines
242 B
Forth
17 lines
242 B
Forth
( Problems, page 143 )
|
|
: <rot rot rot ;
|
|
|
|
( a b c -- n )
|
|
: 5-1 <rot * swap / negate ;
|
|
|
|
( 6 70 123 45 -- )
|
|
: 5-2 max max max . ;
|
|
|
|
|
|
: f>c 32 - 10 18 */ ;
|
|
: c>f 18 10 */ 32 + ;
|
|
: c>k 273 + ;
|
|
: k>c 273 - ;
|
|
: k>f k>c c>f ;
|
|
: f>k f>c c>k ;
|