Data update

Task/Nonoblock/FreeBASIC/nonoblock.basic

@@ -0,0 +1,91 @@
+Function minsized(arr() As Integer) As String
+    Dim result As String = ""
+    For i As Integer = Lbound(arr) To Ubound(arr)
+        result &= String(arr(i), "#")
+        If i < Ubound(arr) Then result &= "."
+    Next
+    Return result
+End Function
+
+Function minlen(arr() As Integer) As Integer
+    Dim sum As Integer = 0
+    For i As Integer = Lbound(arr) To Ubound(arr)
+        sum += arr(i)
+    Next
+    Return sum + Ubound(arr)
+End Function
+
+Sub sequences(blockseq() As Integer, numblanks As Integer, result() As String)
+    Dim As Integer i, leftspace, rightspace, allbuthead()
+    Dim As String header
+
+    If Ubound(blockseq) = -1 Then
+        Redim result(0)
+        result(0) = String(numblanks, ".")
+    Elseif minlen(blockseq()) = numblanks Then
+        Redim result(0)
+        result(0) = minsized(blockseq())
+    Else
+        Redim allbuthead(Ubound(blockseq) - 1)
+        For i = 1 To Ubound(blockseq)
+            allbuthead(i - 1) = blockseq(i)
+        Next
+        For leftspace = 0 To (numblanks - minlen(blockseq()))
+            header = String(leftspace, ".") & String(blockseq(0), "#") & "."
+            rightspace = numblanks - Len(header)
+            If Ubound(allbuthead) = -1 Then
+                If rightspace <= 0 Then
+                    Redim Preserve result(Ubound(result) + 1)
+                    result(Ubound(result)) = Left(header, numblanks)
+                Else
+                    Redim Preserve result(Ubound(result) + 1)
+                    result(Ubound(result)) = header & String(rightspace, ".")
+                End If
+            Elseif minlen(allbuthead()) = rightspace Then
+                Redim Preserve result(Ubound(result) + 1)
+                result(Ubound(result)) = header & minsized(allbuthead())
+            Else
+                Dim As String subresult()
+                sequences(allbuthead(), rightspace, subresult())
+                For i= Lbound(subresult) To Ubound(subresult)
+                    Redim Preserve result(Ubound(result) + 1)
+                    result(Ubound(result)) = header & subresult(i)
+                Next
+            End If
+        Next
+    End If
+End Sub
+
+Sub nonoblocks(bvec() As Integer, longi As Integer)
+    Dim As Integer i
+    Dim As String seq()
+
+    Print !"\nWith blocks [ ";
+    For i = Lbound(bvec) To Ubound(bvec)
+        Print Chr(8); bvec(i); " ";
+    Next i
+    Print Chr(8); " ] and "; longi; " cells:"
+
+    If longi < minlen(bvec()) Then
+        Print "No solution"
+    Else
+        sequences(bvec(), longi, seq())
+        For i = Lbound(seq) To Ubound(seq)
+            Print seq(i)
+        Next
+    End If
+End Sub
+
+Dim bvec1(1) As Integer = {2, 1}
+Dim bvec2() As Integer
+Dim bvec3(0) As Integer = {8}
+Dim bvec4(3) As Integer = {2, 3, 2, 3}
+Dim bvec5(1) As Integer = {2, 3}
+
+nonoblocks(bvec1(), 5)
+nonoblocks(bvec2(), 5)
+nonoblocks(bvec3(), 10)
+nonoblocks(bvec4(), 15)
+nonoblocks(bvec5(), 5)
+
+Sleep