fork download 
  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.12s 158016KB
comments ()
stdin 
"*xy***"
"a*bc**def****g"
"*a*b*c*d*e**f"
stdout 
3
6
2
https://ideone.com/m52Y7b
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!