Skip to content

Instantly share code, notes, and snippets.

View linkin-park's full-sized avatar
🏠
Working from home

linkin-park

🏠
Working from home
View GitHub Profile
@linkin-park
linkin-park / 1st Recursion Assignment
Created August 5, 2017 11:51
Erlang Class - Recursion- 1
-module(recursion_1_3_1).
-export([fib/1,dim/2]).
%fibonnaci
%0,1,2,3,4,5...
%0,1,1,2,3,5,...
fib(0)->io:fwrite([0," "]),0;
fib(1)->io:fwrite([1," "]),1;
fib(N) when N>1->K=fib(N-1)+fib(N-2),io:fwrite([K," "]),K.
@linkin-park
linkin-park / Tail Recursion Excercise
Last active August 11, 2017 08:40
Erlang Class - 2nd Recursion - Assignment
%tail Recursion
-module(recursion_1_3_4).
-export([sum/1,fib/1,perfect/1,perfect1/1]).
% Try 1
%
% Sum of numbers
% F(0)+F(1)+....F(N-1)+F(N)
sum(N) -> sum(N-1,N).
-module(wf_1).%week 1 final
-export([bits/1,bitsT/1,bitsST/1]).
-author("Erlang").
-version(".1").
bits(0)->0;
bits(1)->1;
bits(N) -> bits(N div 2)+ (N rem 2).
%-----7
-module(wf_1_peri).%week 1 final
-export([perimeter/1,area/1]).
-author("Erlang").
-version(".1").
% passing width and height of triangle
perimeter({rectangle,W,H}) -> 2*(W+H);
% passing Radius of Circle
perimeter({circle,R}) -> 2*(math:pi())*R;
%passing base,sides length , height
@linkin-park
linkin-park / Erlang Error
Created August 29, 2017 10:54
Erlang Error input ouput
-module(solution).
-export([start/0]).
start() ->
{ok,X}=io:fread(">","~d"),
io:fwrite("~w~n",[X*2]).
Error
** exception error: an error occurred when evaluating an arithmetic expression
in function solution:start/0 (solution.erl, line 6)
@linkin-park
linkin-park / HackerRank
Created August 31, 2017 17:35
Erlang SUCKS!
-module(solution).
-export([main/0]).
%R-Repeat,L-actual List ,
main() ->
[R|L] = read_input([]),
foo(R,L,[]).
foo(_,[],NL)-> NL;
foo(R,[X|Xs],NL)->foo(R,Xs,NL++repeat(X,R)).
-module(solution).
-export([main/0]).
%R-Repeat,L-actual List ,
main() ->
[R|L] = read_input([]),
foo(R,L).
foo(_,[]) -> [];
foo(R,[X|Xs]) -> repeat(X,R), foo(R,Xs).
% Enter your code here. Read input from STDIN. Print output to STDOUT
% Your class should be named solution
-module(solution).
-export([main/0]).
main() ->
{ok,[N,K]} = io:fread("","~s~d"),
P = ktimes(N,K,""),
{Num,_} = string:to_integer(P),
-module(solution).
-export([main/0]).
main() ->
Arr = read_2darray(6,6,"~d"),
io:format("~w~n",[lists:max(groupSum(Arr,1,1,[]))]).
%taken in reverse order
read_array(0,_) -> [];
@linkin-park
linkin-park / README.md
Created October 1, 2017 13:28 — forked from hofmannsven/README.md
My simply Git Cheatsheet