Eertree: Difference between revisions
Content added Content deleted
Line 372: | Line 372: | ||
{{out}} |
{{out}} |
||
<pre>[ee, r, t, rtr, ertre, eertree, e]</pre> |
<pre>[ee, r, t, rtr, ertre, eertree, e]</pre> |
||
=={{header|Julia}}== |
|||
{{trans|Ring}} |
|||
<lang julia> |
|||
function eertree(str) |
|||
str = "eertree" |
|||
pal = Vector{String}() |
|||
for n in 1:length(str), m in 1:length(str) |
|||
strrev = "" |
|||
strpal = str[n:m] |
|||
if strpal != "" |
|||
for p in length(strpal):-1:1 |
|||
strrev = strrev * strpal[p] |
|||
end |
|||
if strpal == strrev # a palindrome |
|||
push!(pal, strpal) |
|||
end |
|||
end |
|||
end |
|||
sort(unique(pal)) |
|||
end |
|||
estr = "eertree" |
|||
println("Results with $estr:") |
|||
for s in eertree(estr) |
|||
println("\t", s) |
|||
end |
|||
</lang> {{output}} <pre> |
|||
Results with eertree: |
|||
e |
|||
ee |
|||
eertree |
|||
ertre |
|||
r |
|||
rtr |
|||
t |
|||
</pre> |
|||
=={{header|Kotlin}}== |
=={{header|Kotlin}}== |