Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
|
|
@ -0,0 +1,31 @@
|
|||
[ $ "bigrat.qky" loadfile ] now!
|
||||
|
||||
[ 5 9 v* ] is r->k ( n/d --> n/d )
|
||||
[ 1/v r->k 1/v ] is k->r ( n/d --> n/d )
|
||||
|
||||
[ 45967 100 v- ] is r->f ( n/d --> n/d )
|
||||
[ -v r->f -v ] is f->r ( n/d --> n/d )
|
||||
|
||||
[ 5463 20 v- ] is k->c ( n/d --> n/d )
|
||||
[ -v k->c -v ] is c->k ( n/d --> n/d )
|
||||
|
||||
[ k->r r->f ] is k->f ( n/d --> n/d )
|
||||
[ f->r r->k ] is f->k ( n/d --> n/d )
|
||||
|
||||
[ r->k k->c ] is r->c ( n/d --> n/d )
|
||||
[ c->k k->r ] is c->r ( n/d --> n/d )
|
||||
|
||||
[ f->k k->c ] is f->c ( n/d --> n/d )
|
||||
[ c->r r->f ] is c->f ( n/d --> n/d )
|
||||
|
||||
[ $->v drop
|
||||
2dup 10 point$ echo$
|
||||
say " Kelvins is equal to" cr
|
||||
k->c 2dup 10 point$ echo$
|
||||
say " degrees Celcius" cr
|
||||
c->f 2dup 10 point$ echo$
|
||||
say " degrees Fahrenheit" cr
|
||||
f->r 10 point$ echo$
|
||||
say " degrees Rankine" cr ] is task ( $ --> )
|
||||
|
||||
$ "21.00" task
|
||||
Loading…
Add table
Add a link
Reference in a new issue