fork download 
  1. USING: kernel sequences fry math io sets ;
  2. IN: letterbyletter
  3.  
  4. : stitch ( seq n -- str )
  5.     dup '[ first _ tail ] swap
  6.     '[ second _ head ] bi prepend ;
  7.  
  8. : letter-by-letter ( seq -- seq )
  9.     [ first length ] keep [ 1 + ] dip dupd
  10.     [ ] curry replicate swap iota [ stitch ] 2map members ;
  11.  
  12. lines letter-by-letter [ print ] each
Success #stdin #stdout 0.09s 157952KB
comments ()
stdin 
wood
book
stdout 
wood
bood
book
https://ideone.com/HDrYQf
language:
Factor (factor-0.93)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!