librelist archives

« back to archive

Hola, mundo!

Hola, mundo!

From:
Tordek
Date:
2010-06-25 @ 21:16
%%% @author Tordek
%%% @doc Hola, nerds!
%%% @end

-module(hello_erlar).
-export([greet/0]).


factorial(0) ->
    1;
factorial(X) ->
    X * factorial(X-1).

deep_reverse([X|Xs]) when is_list(X) ->
    [lists:reverse(deep_reverse(X))|deep_reverse(Xs)];
deep_reverse([X|Xs]) ->
    [X|deep_reverse(Xs)];
deep_reverse([]) ->
    [].

greet() ->
Greeting = [["o", <<(factorial(5) - 16)>>], "l"] ++ [<<97>>, ",", [["!od"],
atom_to_list(n),<<117>>, "m "]],
io:format([deep_reverse(Greeting),"\n"]).

Re: [erlar] Hola, mundo!

From:
Mariano Guerra
Date:
2010-06-25 @ 21:26
On Fri, Jun 25, 2010 at 6:16 PM, Tordek <kedrot@gmail.com> wrote:
> %%% @author Tordek
> %%% @doc Hola, nerds!
> %%% @end
> -module(hello_erlar).
> -export([greet/0]).
>
> factorial(0) ->
>     1;
> factorial(X) ->
>     X * factorial(X-1).
> deep_reverse([X|Xs]) when is_list(X) ->
>     [lists:reverse(deep_reverse(X))|deep_reverse(Xs)];
> deep_reverse([X|Xs]) ->
>     [X|deep_reverse(Xs)];
> deep_reverse([]) ->
>     [].
> greet() ->
> Greeting = [["o", <<(factorial(5) - 16)>>], "l"] ++ [<<97>>, ",", [["!od"],
> atom_to_list(n),<<117>>, "m "]],
> io:format([deep_reverse(Greeting),"\n"]).

definitivamente vas ganando en la categoría de dificultad de interpretación :D

bienvenido, no sabia que tantos pythonistas eran erlangeros tambien :)

Re: [erlar] Hola, mundo!

From:
Tordek
Date:
2010-06-26 @ 00:16
>
> definitivamente vas ganando en la categoría de dificultad de interpretación
> :D
>

:D


> bienvenido, no sabia que tantos pythonistas eran erlangeros tambien :)
>

Me considero Lispero más que nada... aunque políglota también acepto. Todo
menos Ruby.