4 ms·
-module(opine). -export([opine/0]). -import(io). -import(random). opine() -> io:fwrite("I "), X = random:uniform(), i
by beej71 16y ago
-module(opine).
-export([opine/0]).
-import(io).
-import(random).
opine() ->
io:fwrite("I "),
X = random:uniform(),
if
X > 0.2 ->
io:fwrite("love");
true ->
io:fwrite("hate")
end,
io:fwrite(" the new website.\n").
- nivertech 16y ago-module(opine). -export([opine/0]). opine() -> S = case random:uniform() > 0.2 of true -> "love"; false -> "hate" end, io:format("I ~s the new website.~n", [S]).
- metabrew 16y ago-module(opine). -export([opine/0]). opine() -> io:format(gen_opine(random:uniform())). gen_opine(R) when R > 0.2 -> "I love the new website.~n"; gen_opine(_) -> "I hate the new website.~n".
- nivertech 16y ago-module(opine). -export([opine/0]). opine() -> io:format("I ~s the new website.~n",[gen_opine(random:uniform())]). gen_opine(R) when R > 0.2 -> love; gen_opine(_) -> hate.