fork download
copy 
  1. @(s)char(arrayfun(@(n)repmat('*',1,n),diff([0 find([s 32]==32)])-1,'un',0))
  2.  
  3. ans('This is an example histogram of word length')
Success #stdin #stdout 0.19s 65048KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
ans =

@(s) char (arrayfun (@(n) repmat ('*', 1, n), diff ([0, find([s, 32] == 32)]) - 1, 'un', 0))

ans =

****     
**       
**       
*******  
*********
**       
****     
******
https://ideone.com/QuzT3C
language:
Octave (octave 4.4.1)
created:
10 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!