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

YAPC::EU 2018 Glasgow Update!

Browse source
This commit is contained in:
Ingy döt Net 2018-08-17 15:15:24 +01:00
parent 22f33d4004
commit 4e2d22a71d
1170 changed files with 15042 additions and 3047 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Averages-Median/Elena/averages-median.elena
View file

@ -20,7 +20,7 @@ extension op
]
}
public program =
public program
[
var a1 := (4.1r, 5.6r, 7.2r, 1.7r, 9.3r, 4.4r, 3.2r).
var a2 := (4.1r, 7.2r, 1.7r, 9.3r, 4.4r, 3.2r).
@ -29,4 +29,4 @@ public program =
console printLine("median of (",a2,") is ",a2 median).
console readChar.
].
]

0
Task/Averages-Median/K/averages-median.k → Task/Averages-Median/K/averages-median-1.k
View file

4
Task/Averages-Median/K/averages-median-2.k Normal file
View file

@ -0,0 +1,4 @@
med:{a:x@<x; i:_(#a)%2
$[2!#a; a@i; |a@i,i-1]}
med[v]
2.2819 4.8547

24
Task/Averages-Median/REXX/averages-median.rexx
View file

@ -1,24 +1,24 @@
/*REXX program finds the median of a vector (and displays the vector and median).*/
/* ══════════vector════════════ ══show vector═══ ════════show result═══════════ */
v= 1 9 2 4 ; say 'vector:' v; say 'median──────►' median(v); say
v= 3 1 4 1 5 9 7 6 ; say 'vector:' v; say 'median──────►' median(v); say
v= '3 4 1 -8.4 7.2 4 1 1.2'; say 'vector:' v; say 'median──────►' median(v); say
v= -1.2345678e99 2.3e700 ; say 'vector:' v; say 'median──────►' median(v); say
v= 1 9 2 4 ; say "vector" v; say 'median──────►' median(v); say
v= 3 1 4 1 5 9 7 6 ; say "vector" v; say 'median──────►' median(v); say
v= '3 4 1 -8.4 7.2 4 1 1.2'; say "vector" v; say 'median──────►' median(v); say
v= -1.2345678e99 2.3e700 ; say "vector" v; say 'median──────►' median(v); say
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
eSORT: procedure expose @. #; parse arg $; #=words($) /*$: is the vector. */
do g=1 for #; @.g=word($, g); end /*g*/ /*convert list──►array*/
eSORT: procedure expose @. #; parse arg $; #= words($) /*$: is the vector. */
do g=1 for #; @.g= word($, g); end /*g*/ /*convert list──►array*/
h=# /*#: number elements.*/
do while h>1; h=h % 2 /*cut entries by half.*/
do i=1 for #-h; j=i; k=h + i /*sort lower section. */
do while h>1; h= h % 2 /*cut entries by half.*/
do i=1 for #-h; j= i; k= h + i /*sort lower section. */
do while @.k<@.j; parse value @.j @.k with @.k @.j /*swap.*/
if h>=j then leave; j=j - h; k=k - h /*diminish J and K.*/
if h>=j then leave; j= j - h; k= k - h /*diminish J and K.*/
end /*while @.k<@.j*/
end /*i*/
end /*while h>1*/ /*end of exchange sort*/
return
/*──────────────────────────────────────────────────────────────────────────────────────*/
median: procedure; call eSORT arg(1); m=# % 2 /* % is REXX's integer division.*/
n=m + 1 /*N: the next element after M. */
median: procedure; call eSORT arg(1); m= # % 2 /* % is REXX's integer division.*/
n= m + 1 /*N: the next element after M. */
if # // 2 then return @.n /*[odd?] // ◄───REXX's ÷ remainder*/
return (@.m + @.n) / 2 /*process an even─element vector. */
return (@.m + @.n) / 2 /*process an even─element vector. */