Rep-string: Difference between revisions
Rep-string en FreeBASIC
Not a robot (talk | contribs) (Add BASIC) |
(Rep-string en FreeBASIC) |
||
Line 1,115:
=={{header|Dyalect}}==
{{trans|Go}}
<lang dyalect>func rep(s) {
var x = s.len() / 2
Line 1,546 ⟶ 1,544:
1 has no repeating substring
ok</lang>
=={{header|FreeBASIC}}==
{{trans|Yabasic}}
<lang freebasic>
Data "1001110011", "1110111011", "0010010010", "1010101010", "1111111111", "0100101101", "0100100", "101", "11", "00", "1", ""
Function rep(c As String, n As Integer) As String
Dim As String r
For i As Integer = 1 To n
r = r + c
Next i
Return r
End Function
Do
Dim As String p, b = "", t, s
Read p : If p = "" Then Exit Do
Dim As Integer l = Len(p), m = Int(l / 2)
For i As Integer = m To 1 Step -1
t = Left(p, i)
s = rep(t, l / i + 1)
If p = Left(s, l) Then b = t : Exit For
Next i
If b = "" Then
Print p; " no es una cadena repetida"
Else
Print p; " secuencia m s larga: "; b
End If
Loop
Sleep
</lang>
{{out}}
<pre>
1001110011 secuencia más larga: 10011
1110111011 secuencia más larga: 1110
0010010010 secuencia más larga: 001
1010101010 secuencia más larga: 1010
1111111111 secuencia más larga: 11111
0100101101 no es una cadena repetida
0100100 secuencia más larga: 010
101 no es una cadena repetida
11 secuencia más larga: 1
00 secuencia más larga: 0
1 no es una cadena repetida
</pre>
=={{header|Go}}==
| |||