@(s)char(arrayfun(@(n)repmat('*',1,n),diff([0 find([s 32]==32)])-1,'un',0)) ans('This is an example histogram of word length')
Standard input is empty
ans = @(s) char (arrayfun (@(n) repmat ('*', 1, n), diff ([0, find([s, 32] == 32)]) - 1, 'un', 0)) ans = **** ** ** ******* ********* ** **** ******