How to resolve the algorithm Order two numerical lists step by step in the FreeBASIC programming language

Published on 12 May 2024 09:40 PM
#Freebasic

How to resolve the algorithm Order two numerical lists step by step in the FreeBASIC programming language

Table of Contents

Problem Statement

Write a function that orders two lists or arrays filled with numbers. The function should accept two lists as arguments and return true if the first list should be ordered before the second, and false otherwise. The order is determined by lexicographic order: Comparing the first element of each list. If the first elements are equal, then the second elements should be compared, and so on, until one of the list has no more elements. If the first list runs out of elements the result is true. If the second list or both run out of elements the result is false. Note: further clarification of lexicographical ordering is expounded on the talk page here and here.

Let's start with the solution:

Step by Step solution about How to resolve the algorithm Order two numerical lists step by step in the FreeBASIC programming language

Source code in the freebasic programming language

Dim Shared list1(4) As Integer = {1, 2, 1, 5, 2}
Dim Shared list2(5) As Integer = {1, 2, 1, 5, 2, 2}
Dim Shared list3(4) As Integer = {1, 2, 3, 4, 5}
Dim Shared list4(4) As Integer = {1, 2, 3, 4, 5}

Function Orden(listA() As Integer, listB() As Integer) As Boolean
    Dim As Integer i = 0, l1, l2
    l1 = Ubound(listA, 1) 
    l2 = Ubound(listB, 1)
    While listA(i) = listB(i) And i < l1 And i < l2
        i += 1
    Wend
    If listA(i) < listB(i) Then Return True
    If listA(i) > listB(i) Then Return False
    Return l1 < l2
End Function

If Orden(list1(), list2()) Then Print "list1=list2"
If Orden(list2(), list3()) Then Print "list2=list3"
If Orden(list3(), list4()) Then Print "list3=list4"

Sleep

You may also check:How to resolve the algorithm Zumkeller numbers step by step in the Ruby programming language
You may also check:How to resolve the algorithm Show the epoch step by step in the AWK programming language
You may also check:How to resolve the algorithm JSON step by step in the Emacs Lisp programming language
You may also check:How to resolve the algorithm Averages/Arithmetic mean step by step in the Ruby programming language
You may also check:How to resolve the algorithm Egyptian division step by step in the AutoHotkey programming language