Last letter-first letter: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
m (→{{header|Phix}}: try is now a reserved keyword) |
||
Line 2,957: | Line 2,957: | ||
integer count |
integer count |
||
procedure |
procedure find_path(integer ch, integer last, integer n) |
||
integer next = first[ch] |
integer next = first[ch] |
||
while next!=0 do |
while next!=0 do |
||
Line 2,963: | Line 2,963: | ||
taken[last] = next |
taken[last] = next |
||
taken[next] = -1 |
taken[next] = -1 |
||
find_path(words[next][$],next,n+1) |
|||
taken[last] = -1 |
taken[last] = -1 |
||
taken[next] = 0 |
taken[next] = 0 |
||
Line 2,984: | Line 2,984: | ||
tstart = i |
tstart = i |
||
taken[i] = -1 |
taken[i] = -1 |
||
find_path(words[i][$],i,1) |
|||
taken[i] = 0 |
taken[i] = 0 |
||
end for |
end for |