Maximum difference between adjacent elements of list: Difference between revisions

m
(Realize in F#)
m (→‎{{header|Raku}}: Fix typo)
Line 439:
-> @list {
say 'List: ', ~ @list.raku;
for (' Maximum', &max-diff ,'Minimumum Minimum', &min-diff, ' Average', &avg-diff)
-> $which, &sub {
say "$which distance between list elements: " ~ &sub(@list);
Line 448:
<pre>List: [1, 8, 2, -3, 0, 1, 1, -2.3, 0, 5.5, 8, 6, 2, 9, 11, 10, 3]
Maximum distance between list elements: 7 @ elements ((1 8) (2 9) (10 3))
Minimumum Minimum distance between list elements: 0 @ elements ((1 1))
Average distance between list elements: 3.658824
 
List: [480470.3324944039e0, 719954.3173377671e0, 648221.5674277907e0, 340053.78585537826e0, 540629.6741075241e0, 4336.700602958543e0]
Maximum distance between list elements: 536292.9735045655 @ elements ((540629.6741075241 4336.700602958543))
Minimumum Minimum distance between list elements: 71732.74990997638 @ elements ((719954.3173377671 648221.5674277907))
Average distance between list elements: 455611.06297097047
 
List: [2.718281828459045e0, <0+1i>, 6.283185307179586e0, 3.141592653589793e0, Inf]
Maximum distance between list elements: Inf @ elements ((3.141592653589793 Inf))
Minimumum Minimum distance between list elements: 2.896386731590008 @ elements ((2.718281828459045 0+1i))
Average distance between list elements: Inf+0.2i
 
List: [<1.9+3.7i>, <2.07-13.2i>, <0.2-2.2i>, <4.6+0i>]
Maximum distance between list elements: 16.900855007957436 @ elements ((1.9+3.7i 2.07-13.2i))
Minimumum Minimum distance between list elements: 4.919349550499537 @ elements ((0.2-2.2i 4.6+0i))
Average distance between list elements: 2.1925-2.925i
 
List: [6]
Maximum distance between list elements: 0
Minimumum Minimum distance between list elements: 0
Average distance between list elements: 0
 
List: []
Maximum distance between list elements: 0
Minimumum Minimum distance between list elements: 0
Average distance between list elements: 0
 
256

edits