Eertree: Difference between revisions
m
→{{header|11l}}: Void
(Add Rust implementation) |
Alextretyak (talk | contribs) m (→{{header|11l}}: Void) |
||
| (One intermediate revision by one other user not shown) | |||
Line 73:
[String] s
F children(Int n, String =p) ->
L(c, n) @tree[n].edges
p = c‘’p‘’c
Line 397:
{{out}}
<pre>["ee", "e", "r", "t", "rtr", "ertre", "eertree"]</pre>
=={{header|FreeBASIC}}==
{{trans|Ring}}
<syntaxhighlight lang="vbnet">Dim As String cadena = "eertree"
Dim As Integer n, m, p, cnt = 0
Dim As String strpal, strrev
Dim As String pal(1 To Len(cadena)^2)
For n = 1 To Len(cadena)
For m = n To Len(cadena)
strpal = Mid(cadena, n, m-n+1)
strrev = ""
For p = Len(strpal) To 1 Step -1
strrev &= Mid(strpal, p, 1)
Next p
If strpal = strrev Then
cnt += 1
pal(cnt) = strpal
End If
Next m
Next n
For n = 1 To cnt-1
For m = n+1 To cnt
If pal(n) > pal(m) Then
Swap pal(n), pal(m)
End If
Next m
Next n
For n = cnt To 2 Step -1
If pal(n) = pal(n-1) Then
For m = n To cnt-1
pal(m) = pal(m+1)
Next m
cnt -= 1
End If
Next n
For n = 1 To cnt
Print pal(n)
Next n
Sleep</syntaxhighlight>
{{out}}
<pre>Same as Ring entry.</pre>
=={{header|Go}}==
| |||