Revision as of 08:43, 16 August 2012 view source rosettacode>Gerard Schildberger →‎optimized version: added the amount of speed improvent. -- ~~~~ ← Older edit		Revision as of 08:50, 16 August 2012 view source rosettacode>Gerard Schildberger m →‎brute force version: removed placeholder for useless argument in subroutine invocation. -- ~~~~ Newer edit →
Line 1,815: do j=1 for # parse value @.1 @.j with @.j @.1 call scanner ,$$$,2 parse value @.1 @.j with @.j @.1 end /j/ Line 1,826: s: if arg(1)==1 then return arg(3); return word(arg(2) 's',1) /──────────────────────────────────SCANNER subroutine (recursive)──────/ scanner: procedure expose @. MP # soFar $$$; parse arg ,$$$,!; _=!-1 lastChar=right(@._,1) /last char of penultimate word. / Line 1,841: end parse value @.! @.i with @.i @.! call scanner ,$$$,!+1 /recursive scan for longest path/ parse value @.! @.i with @.i @.! end

Last letter-first letter: Difference between revisions