Anonymous user
JortSort: Difference between revisions
no edit summary
(added Factor) |
No edit summary |
||
Line 498:
return true
end</lang>
=={{header|Maple}}==
<lang Maple>jortSort := proc(arr)
local copy:
copy := sort(Array([seq(arr[i], i=1..numelems(arr))])):
return ArrayTools:-IsEqual(copy,arr):
end proc:
#Examples
jortSort(Array([5,6,7,2,1]));
jortSort(Array([-5,0,7,12,21]));
jortSort(Array(StringTools:-Explode("abcdefg")));</lang>
{{Out|Output}}
<pre>false
true
true</pre>
=={{header|Mathematica}}==
| |||