aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

50
Task/Exponentiation-operator/REXX/exponentiation-operator.rexx
View file

@ -1,38 +1,42 @@
/*REXX program to show various (integer) exponentiations. */
say center('digits='digits(),79,'─')
/*REXX program computes and displays various (integer) exponentiations. */
say center('digits='digits(), 79, "─")
say '17**65 is:'
say 17**65
say
numeric digits 100; say; say center('digits='digits(),79,'─')
numeric digits 100; say center('digits='digits(), 79, "─")
say '17**65 is:'
say 17**65
say
numeric digits 10; say; say center('digits='digits(),79,'─')
numeric digits 10; say center('digits='digits(), 79, "─")
say '2 ** -10 is:'
say 2 ** -10
say
numeric digits 30; say; say center('digits='digits(),79,'─')
numeric digits 30; say center('digits='digits(), 79, "─")
say '-3.1415926535897932384626433 ** 3 is:'
say -3.1415926535897932384626433 ** 3
say
numeric digits 1000; say; say center('digits='digits(),79,'─')
numeric digits 1000; say center('digits='digits(), 79, "─")
say '2 ** 1000 is:'
say 2 ** 1000
say
numeric digits 60; say; say center('digits='digits(),79,'─')
say 'ipow(5,70) is:'
say ipow(5,70)
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────ERRIPOW subroutine──────────────────*/
errIpow: say; say '***error!***'; say; say arg(1); say; say; exit 13
/*──────────────────────────────────IPOW subroutine─────────────────────*/
ipow: procedure; parse arg x 1 _,p
if arg()<2 then call erripow 'not enough arguments specified'
if arg()>2 then call erripow 'too many arguments specified'
if \datatype(_,'N') then call erripow "1st arg isn't numeric:" _
if \datatype(p,'W') then call erripow "2nd arg isn't an integer:" p
if p=0 then return 1
pa=abs(p)
do pa-1; _=_*x; end
if p<0 then _=1/_
return _
numeric digits 60; say center('digits='digits(), 79, "─")
say 'iPow(5, 70) is:'
say iPow(5, 70)
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
errMsg: say; say '***error***'; say; say arg(1); say; say; exit 13
/*──────────────────────────────────────────────────────────────────────────────────────*/
iPow: procedure; parse arg x 1 _,p
if arg()<2 then call errMsg "not enough arguments specified"
if arg()>2 then call errMsg "too many arguments specified"
if \datatype(x,'N') then call errMsg "1st arg isn't numeric:" x
if \datatype(p,'W') then call errMsg "2nd arg isn't an integer:" p
if p=0 then return 1
do abs(p) - 1; _=_*x; end /*abs(p)-1*/
if p<0 then _=1/_
return _