Element-wise operations: Difference between revisions
Content deleted Content added
Element-wise operations en FreeBASIC |
mNo edit summary |
||
Line 226: | Line 226: | ||
(827240261886340000000.00, 1978419655660300000000000.00, 20880467999847700000000000000000.00), |
(827240261886340000000.00, 1978419655660300000000000.00, 20880467999847700000000000000000.00), |
||
(2567686153161210000000000000000000000000000.00, 17069174130723200000000000000000000000000000000.00, 10555134955777600000000000000000000000000000000000000000000.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> |
</pre> |
||