Forloop

gistfile1.erl

forloop(0) ->
  bin_fertig;
forloop(i) ->
  weiter_gehts,
  forloop(i-1).

makePic.erl

makePic(Height, Width, Function) ->
  loop(Height, Width, Width, Function, [], []).


%% loop(current height, current width, width, function, line accumulator, accumulator)

loop(-1, Width, Width, Function, LineAcc, Acc) ->
  Acc;
loop(H, -1, Width, Function, LineAcc, Acc) ->
  loop(H-1, Width, Width, Function, [], [LineAcc|Acc]);
loop(H, W, Width, Function, LineAcc, Acc) ->
  loop(H, W-1, Width, Function, [Function(H, W)|LineAcc], Acc).