21 lines
437 B
Plaintext
21 lines
437 B
Plaintext
( ( compose
|
|
= f g
|
|
. !arg:(?f.?g)&'(.($f)$(($g)$!arg))
|
|
)
|
|
& compose
|
|
$ ( (=.flt$(!arg,2))
|
|
. compose$((=.!arg*5/9).(=.!arg+-32))
|
|
)
|
|
: (=?FahrenheitToCelsius)
|
|
& ( FahrenheitToCelsiusExample
|
|
= deg
|
|
. chu$(x2d$b0):?deg
|
|
& out
|
|
$ ( str
|
|
$ (!arg " " !deg "F in " !deg "C = " FahrenheitToCelsius$!arg)
|
|
)
|
|
)
|
|
& FahrenheitToCelsiusExample$0
|
|
& FahrenheitToCelsiusExample$100
|
|
)
|