Element-wise operations: Difference between revisions
m
no edit summary
(Element-wise operations en FreeBASIC) |
mNo edit summary |
||
Line 226:
(827240261886340000000.00, 1978419655660300000000000.00, 20880467999847700000000000000000.00),
(2567686153161210000000000000000000000000000.00, 17069174130723200000000000000000000000000000000.00, 10555134955777600000000000000000000000000000000000000000000.00));
</pre>
=={{header|Amazing Hopper}}==
<lang Amazing Hopper>
#include <hopper.h>
main:
/* create an integer random array */
A=-1,{10}rand array(A), mulby(10), ceil, mov(A)
{","}tok sep
{"\ENF","ORIGINAL ARRAY :",A,"\OFF\n","="}reply(90),
println
{"Increment :\t"}, ++A,{A} println
{"Decrement :\t"}, --A,{A} println
{"post Increment: "}, A++, println
{*"\t",A} println
{"post Decrement: "}, A--, println
{*"\t",A} println
{"A + 5 :\t\t"}, {A} plus (5), println
{"5 + A :\t\t"}, {5} plus (A), println
{"A - 5 :\t\t"}, {A} minus (5), println
{"5 - A :\t\t"}, {5} minus (A), println
{"A * 5 :\t\t"}, {A} mul by (5), println
{"5 * A :\t\t"}, {5} mul by (A), println
{"A / 5 :\t\t"}, {A} div by (5), println
{"5 / A :\t\t"}, {5} div by (A), println
{"A \ 5 :\t\t"}, {A} idiv by (5), println
{"5 \ A :\t\t"}, {5} idiv by (A), println
{"A ^ 5 :\t\t"}, {A} pow by (5), println
{"5 ^ A :\t\t"}, {5} pow by (A), println
{"A % 5 :\t\t"}, {A} module (5), println
{"5 % A :\t\t"}, {5} module (A), println
{"SQRT(A) + 5:\t"}, {A} sqrt, plus(5),
tmp=0,cpy(tmp), println
{"--> CEIL :\t"} {tmp},ceil, println
{"--> FLOOR :\t"} {tmp},floor, println
{"A + A :\t\t"}, {A} plus (A), println
{"A - A :\t\t"}, {A} minus (A), println
{"A * A :\t\t"}, {A} mulby (A), println
{"A / A :\t\t"}, {A} div by (A), println
{"A \ A :\t\t"}, {A} idiv by (A), println
{"A ^ A :\t\t"}, {A} pow by (A), println
{"A % A :\t\t"}, {A} module (A), println
{"Etcetera...\n"}, println
exit(0)
</lang>
{{out}}
<pre>
'''ORIGINAL ARRAY :8,10,8,3,4,7,5,4,8,1'''
==========================================================================================
Increment : 9,11,9,4,5,8,6,5,9,2
Decrement : 8,10,8,3,4,7,5,4,8,1
post Increment: 8,10,8,3,4,7,5,4,8,1
9,11,9,4,5,8,6,5,9,2
post Decrement: 9,11,9,4,5,8,6,5,9,2
8,10,8,3,4,7,5,4,8,1
A + 5 : 13,15,13,8,9,12,10,9,13,6
5 + A : 13,15,13,8,9,12,10,9,13,6
A - 5 : 3,5,3,-2,-1,2,0,-1,3,-4
5 - A : -3,-5,-3,2,1,-2,0,1,-3,4
A * 5 : 40,50,40,15,20,35,25,20,40,5
5 * A : 40,50,40,15,20,35,25,20,40,5
A / 5 : 1.6,2,1.6,0.6,0.8,1.4,1,0.8,1.6,0.2
5 / A : 0.625,0.5,0.625,1.66667,1.25,0.714286,1,1.25,0.625,5
A \ 5 : 1,2,1,0,0,1,1,0,1,0
5 \ A : 0,0,0,1,1,0,1,1,0,5
A ^ 5 : 32768,100000,32768,243,1024,16807,3125,1024,32768,1
5 ^ A : 390625,9.76562e+06,390625,125,625,78125,3125,625,390625,5
A % 5 : 3,0,3,3,4,2,0,4,3,1
5 % A : 5,5,5,2,1,5,0,1,5,0
SQRT(A) + 5: 7.82843,8.16228,7.82843,6.73205,7,7.64575,7.23607,7,7.82843,6
--> CEIL : 8,9,8,7,7,8,8,7,8,6
--> FLOOR : 7,8,7,6,7,7,7,7,7,6
A + A : 16,20,16,6,8,14,10,8,16,2
A - A : 0,0,0,0,0,0,0,0,0,0
A * A : 64,100,64,9,16,49,25,16,64,1
A / A : 1,1,1,1,1,1,1,1,1,1
A \ A : 1,1,1,1,1,1,1,1,1,1
A ^ A : 1.67772e+07,1e+10,1.67772e+07,27,256,823543,3125,256,1.67772e+07,1
A % A : 0,0,0,0,0,0,0,0,0,0
Etcetera...
</pre>
| |||