Facebook
From dfs, 5 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 223
  1.         -module(lab1).
  2.         -export([hello_world/0,fac/1,even/1, odd/1,fib/1,list_stuff/0,polacz/2]).
  3.  
  4.        
  5.        
  6.        
  7.        
  8.        
  9.         hello_world() -> io:fwrite("hello, world\n").
  10.  
  11.        
  12.  
  13.         fac(0) -> 1;
  14.         fac(N) when N > 0 -> N * fac(N-1).
  15.        
  16.         even(X) when X >= 0 -> (X band 1) == 0.
  17.         odd(X) when X > 0 -> not even(X).
  18.        
  19.         fib(0) -> 0;
  20.         fib(1) -> 1;
  21.         fib(N) when N>0 -> fib(N-1) + fib(N-2).
  22.        
  23.         list_stuff()->
  24.                 List1 = [1,2,3],
  25.                 List2 = [4,5,6],
  26.                
  27.                 List3 = List1 ++ List2,
  28.                 List3.
  29.                
  30.         polacz(A,B)->
  31.                 List4 =A,
  32.                 List5 =B,
  33.                 List6 = List4 ++ List5,
  34.                 List6.
  35.  
  36.                
  37.