look-and-say ( str -- str' )

Vocabulary

rosetta-code.look-and-say

Inputs

str

an object

Outputs

str'

an object

Definition

USING: make ;

IN: rosetta-code.look-and-say

: look-and-say ( str -- str' ) [ (look-and-say) ] "" make ;