fork download
copy 
  1. USING: splitting sequences kernel math io prettyprint ;
  2. IN: star-struck  
  3.  
  4. : star-struck ( str -- n ) [ CHAR: * = not ]
  5.     split-when [ length 1 > ] filter concat length ;
  6.  
  7. lines [ star-struck . ] each
Success #stdin #stdout 0.11s 158016KB
comments ()
stdin
copy 
*xy***
a*bc**def****g
*a*b*c*d*e**f
stdout
copy 
3
6
2
https://ideone.com/NwVSY8
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!