zagorulkinde

-module('euler7').

-export([main/0]).

gen_prime(X) ->
	gen_prime(X, []).

gen_prime([H|T], O) when length(O) < 10001 ->
	F = filter(H, T),
	gen_prime(F, [H|O]);

zagorulkinde

([email protected])82> F  = fun(X) -> if X rem 3 == 0 andalso X rem 5 == 0 -> "FizzBuzz"; X rem 3 == 0 -> "Fizz"; X rem 5 == 0 -> "Buzz"; true -> X end end.
#Fun<erl_eval.6.82930912>
([email protected])83> 
([email protected])83> rp(lists:map(F , lists:seq(1, 100))).                                                                                                
[1,2,"Fizz",4,"Buzz","Fizz",7,8,"Fizz","Buzz",11,"Fizz",13,
 14,"FizzBuzz",16,17,"Fizz",19,"Buzz","Fizz",22,23,"Fizz",
 "Buzz",26,"Fizz",28,29,"FizzBuzz",31,32,"Fizz",34,"Buzz",
 "Fizz",37,38,"Fizz","Buzz",41,"Fizz",43,44,"FizzBuzz",46,47,
 "Fizz",49,"Buzz","Fizz",52,53,"Fizz","Buzz",56,"Fizz",58,59,
 "FizzBuzz",61,62,"Fizz",64,"Buzz","Fizz",67,68,"Fizz",