4 ms·

-module(opine). -export([opine/0]). opine() -> S = case random:uniform() > 0.2 of true -> "love"; false -> "hate

-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.
  - beej71 16y ago
    These are awesome. I'm such a Erlang novice.
  - metabrew 16y ago
    Heh, won't quite work since you used ~s for atoms, and also, mine is better because it's more flexible if you want to change the format of an opinion for a specific score range ;P
    - nivertech 16y ago
      Are you sure? [~]$ erl Erlang R14B02 (erts-5.8.3) [source] [smp:2:2] [rq:2] [async-threads:0] [hipe] [kernel-poll:false] Eshell V5.8.3 (abort with ^G) 1> io:format("~s ~s!~n",[hello, world]). hello world! ok 2>
      - metabrew 16y ago
        I stand corrected!