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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Task/Vector/REXX/vector.rexx
View file

@ -1,4 +1,4 @@
-- 24 Aug 2025
-- 4 Mar 2026
include Setting
say 'VECTOR'
@ -6,23 +6,24 @@ say version
say
a = '1 2 3'; b = '3 2 1'; c = 3; d = '4 5'; e = '2 1'
say 'VALUES'
say 'A =' Lst2FormV(a)
say 'B =' Lst2FormV(b)
say 'A =' Vect2form(a)
say 'B =' Vect2form(b)
say 'C =' c
say 'D =' Lst2FormV(d)
say 'E =' Lst2FormV(e)
say 'D =' Vect2form(d)
say 'E =' Vect2form(e)
say
say 'BASICS'
say 'A+B =' Lst2FormV(AddV(a,b))
say 'A-B =' Lst2FormV(SubV(a,b))
say 'A*C =' Lst2FormV(ScaleV(a,c))
say 'A/C =' Lst2FormV(ScaleV(a,1/c))
say 'A+B =' Vect2form(AddV(a,b))
say 'A-B =' Vect2form(SubV(a,b))
say 'A*C =' Vect2form(ScaleV(a,c))
say 'A/C =' Vect2form(ScaleV(a,1/c))
say
say 'BONUS'
say 'Length(D) =' LenV(d)+0
say 'Angle(D) =' AngV(d)+0
say 'Polar(D) =' Lst2FormV(Rec2PolV(d))
say 'Rect(E) =' Lst2FormV(Pol2RecV(e))
say 'Polar(D) =' Vect2form(Rec2PolV(d))
say 'Rect(E) =' Vect2form(Pol2RecV(e))
exit
-- Vect2form; XxxV
include Math