Initial data commit

Task/JortSort/PureBasic/jortsort.basic

@@ -0,0 +1,20 @@
+Macro isSort(liste)
+  If OpenConsole()
+    Print("[ ") : ForEach liste : Print(liste+Space(1)) : Next : Print("] = ")
+    If jortSort(liste) : PrintN("True") : Else : PrintN("False") : EndIf
+  EndIf
+EndMacro
+
+Procedure.b jortSort(List jortS.s())
+  NewList cpy.s() : CopyList(jortS(),cpy()) : SortList(cpy(),#PB_Sort_Ascending)
+  ForEach jortS()
+    SelectElement(cpy(),ListIndex(jortS()))
+    If Not jortS()=cpy() : ProcedureReturn #False : EndIf
+  Next
+  ProcedureReturn #True
+EndProcedure
+
+NewList l1.s()
+For i=1 To 10 : AddElement(l1()) : l1()=Chr(Random(90,65)) : Next
+isSort(l1()) : SortList(l1(),#PB_Sort_Ascending) : isSort(l1())
+Input()