Data update

Task/Nonoblock/EasyLang/nonoblock.easy

@@ -0,0 +1,45 @@
+func$ rep s$ n .
+   for i to n
+      r$ &= s$
+   .
+   return r$
+.
+func$[] genseq ones$[] nzeros .
+   if len ones$[] = 0
+      return [ rep "0" nzeros ]
+   .
+   for x = 1 to nzeros - len ones$[] + 1
+      skip1$[] = [ ]
+      for i = 2 to len ones$[]
+         skip1$[] &= ones$[i]
+      .
+      h$[] = genseq skip1$[] (nzeros - x)
+      for tail$ in h$[]
+         r$[] &= rep "0" x & ones$[1] & tail$
+      .
+   .
+   return r$[]
+.
+proc block data$ le . .
+   a[] = number strchars data$
+   for b in a[]
+      nbytes += b
+   .
+   print "blocks " & a[] & " cells " & le
+   if le - nbytes <= 0
+      print "No solution"
+      return
+   .
+   for b in a[]
+      prep$[] &= rep "1" b
+   .
+   for r$ in genseq prep$[] (le - nbytes + 1)
+      print substr r$ 2 99999
+   .
+   print ""
+.
+block "21" 5
+block "" 5
+block "8" 10
+block "2323" 15
+block "23" 5

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