star pattern

star_pattern.erl

-module(star_pattern).
-export([print/2]).

for(N, N, Symbol) -> io:format("~s", [Symbol]);

for(X, N, Symbol) ->
    io:format("~s",[Symbol]),
    for(X, N-1, Symbol).

print(Symbol, Times) ->
    start_print(Symbol, 1, Times).

start_print(Symbol, Times, Times) ->
    for(1, Times, Symbol);

start_print(Symbol, Current, Times) ->
    for(1, Current, Symbol),
    io:format("~n"),
    start_print(Symbol, Current+1, Times).

$ erl
Erlang/OTP 19 [erts-8.3] [source] [64-bit] [smp:4:4] [async-threads:10] [hipe] [kernel-poll:false] [dtrace]

Eshell V8.3  (abort with ^G)
1> c(star_pattern).
{ok,star_pattern}
2> star_pattern:print('*', 5).
*
**
***
****
*****ok
3>