1
2
3
4
5
-module(test).
-compile(export_all).
 
main() ->
  io:fwrite("~p",math:pow(1.3,2)).

1
2
3
4
-module(hi).
 
hi() ->
  yo.

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        loop().
loop() ->
        case io:fread( "","~d" ) of
                eof ->
                        true;
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main() {
 
        int intNum = 0;
        
        cin >> intNum;
        while (intNum != 42) {
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        loop().
loop() ->
        case io:fread( "","~d" ) of
                eof ->
                        true;
 ...

1
2
3
4
5
6
7
8
9
-module(zad3a).
-export([start/0, a/1, b/1, c2/0, c3/0, c1/0]).
 
 
a( N) ->        
        c ! {aaa, N},
        if
                N<150 ->                        
                        a( N+1)
 ...

1
2
3
4
5
6
7
8
9
#include<stdio.h>
 
int main()
 
{
float c, f; //temperaturas Celsius & Farenheit
c=-42;
f=((9/5)*c)+32;
printf("%f", f);
 ...

1
2
3
4
5
6
7
8
9
#include<stdio.h>
 
int main()
 
 {
 
double c, f; //temperaturas Celsius & Farenheit
c=-42;
f=((9/5)*c)+32;
 ...

1
2
3
4
5
6
7
8
9
#include<stdio.h>
 
int main()
 
 {
 
double c, f; //temperaturas Celsius & Farenheit
c=-42;
f=((9/5)*c)+32;
 ...

1
2
3
4
5
6
7
8
9
 
 class sudoku {
 
        /**
         * @param args
         */
        public static void main(String[] args) {
                // TODO Auto-generated method stub
                int x11=0,x12=0,x13=0,x21=0,x22=0,x23=0,x31=0,x32=0,x33=0;
 ...

1
2
3
4
5
6
7
8
9
open System
open System.Collections.Generic 
open Unchecked
 
let createDic (key:'a) (value:'b) = Dictionary<'a, 'b> ()
 
let memoizeTailRecursion f =
    let dic = createDic  defaultof<'TArg1> defaultof<'TResult>
    let rec f' a k = 
 ...

1
Charlie bit me!

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        loop().
loop() ->
        case io:fread( "","~d" ) of
                eof ->
                        true;
 ...

1
2
3
4
5
6
-module(test).
-compile(export_all).
 
-define(space(X_), (X_=:=$  orelse X_=:=$\n orelse X_=:=$\r orelse X_=:=$\t) ).
tag(<<$<,X,Rest/binary>>) when (not ?space(X)) andalso X=/=$> andalso X=/=$! -> {$<,<<X,Rest/binary>>};
tag(_) -> false.

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        loop().
loop() ->
        case io:fread( "","~d" ) of
                eof ->
                        true;
 ...

1
2#101

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        loop().
loop() ->
        case io:fread( "","~d" ) of
                eof ->
                        true;
 ...

1
2
3
4
5
6
7
8
9
-module(kitchen).
-compile(export_all).
 
fridge1() ->
receive
{From, {store, _Food}} ->
From ! {self(), ok},
fridge1();
{From, {take, _Food}} ->
 ...

1
2
3
4
5
6
7
8
9
%%% ets
 
-module(prog).
-behaviour(gen_server).
 
-export([init/1, handle_call/3, handle_cast/2,
         handle_info/2, terminate/2, code_change/3]).
 
-export([main/0, start/0, test/1, populate/2, lookup/2]).
 ...

1
2
3
4
5
6
7
8
9
%%% ets
 
-module(prog).
-behaviour(gen_server).
 
-export([init/1, handle_call/3, handle_cast/2,
         handle_info/2, terminate/2, code_change/3]).
 
-export([main/0, start/0, test/1, populate/2, lookup/2]).
 ...

1
2
3
4
5
6
7
8
9
%%% ets
 
-module(map3).
-behaviour(gen_server).
 
-export([init/1, handle_call/3, handle_cast/2,
         handle_info/2, terminate/2, code_change/3]).
 
-export([start/0, test/1, populate/2, lookup/2]).
 ...

1
2
3
4
5
6
7
8
9
[_|_] ->
        case lists:keymember(idle, 2, Workers) of
                true ->
                        io:format("[_|_] the result is: ~p~n", [H()]),
                        {Pid, _, _} = lists:keyfind(idle, 2, Workers),
                        Pid ! {Ref, {perform_task,H}},
                        assign_tasks(T, lists:keyreplace(Pid, 1, Workers, {Pid, busy, nothing}), Ref, Results);
                false ->
                        io:format("[_|_] the result is: ~p~n", [H()]),
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main()->
    server().
 
server() ->
    {ok, LSock} = gen_tcp:listen(9999, [binary, {packet, 0}, 
                                        {active, false}]),
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main()->
    server().
 
server() ->
    {ok, LSock} = gen_tcp:listen(9999, [binary, {packet, 0}, 
                                        {active, false}]),
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main()->
    server().
 
server() ->
    {ok, LSock} = gen_tcp:listen(9999, [binary, {packet, 0}, 
                                        {active, false}]),
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        loop().
loop() ->
        case io:fread( "","~d" ) of
                eof ->
                        true;
 ...

1
2
3
4
5
6
7
8
9
-module(client).
-export([client/2]).
 
client(Data,Port)->
    Host="localhost",
    {ok, Sock}=gen_tcp:connect(Host,Port,[binary, {packet, 0}]),
    ok = gen_tcp:send(Sock, Data),
    receive
        {tcp,_,Reply} ->
 ...

1
echo "Hello Pandu, I love u"

1
2
3
4
5
6
7
8
9
-module(mw).
-export([start/1, add_task/2, get_result/1]).
 
%% Interface
 
start(N) -> keep_looping(N).
 
add_task(M, T) ->
        rpc(M, {add_task, T}).
 ...

1
2
3
4
5
6
7
8
9
keep_looping(N) ->
        spawn(fun () ->
                process_flag(trap_exit, true),
                Workers = [],
                create_worker(N, Workers)
        end).
create_worker(N, Workers) when N > 0 ->
                
        Super = self(),
 ...