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-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Task/Compare-a-list-of-strings/VBScript/compare-a-list-of-strings.vb
View file

@ -1,23 +0,0 @@
Function string_compare(arr)
lexical = "Pass"
ascending = "Pass"
For i = 0 To UBound(arr)
If i+1 <= UBound(arr) Then
If arr(i) <> arr(i+1) Then
lexical = "Fail"
End If
If arr(i) >= arr(i+1) Then
ascending = "Fail"
End If
End If
Next
string_compare = "List: " & Join(arr,",") & vbCrLf &_
"Lexical Test: " & lexical & vbCrLf &_
"Ascending Test: " & ascending & vbCrLf
End Function
WScript.StdOut.WriteLine string_compare(Array("AA","BB","CC"))
WScript.StdOut.WriteLine string_compare(Array("AA","AA","AA"))
WScript.StdOut.WriteLine string_compare(Array("AA","CC","BB"))
WScript.StdOut.WriteLine string_compare(Array("AA","ACB","BB","CC"))
WScript.StdOut.WriteLine string_compare(Array("FF"))