2 lines
76 B
Text
2 lines
76 B
Text
require 'strings'
|
|
floyd=: [: rplc&(' 0';' ')"1@":@(* ($ $ +/\@,)) >:/~@:i.
|
require 'strings'
|
|
floyd=: [: rplc&(' 0';' ')"1@":@(* ($ $ +/\@,)) >:/~@:i.
|