-module(zad2).
-export([left_rotation/1]).

left_rotation({node, K1, V1, L1, {node, K2, V2, L2, R2}}) ->
    {node, K2, V2, {node, K1, V1, L1, L2}, R2};
left_rotation(_) ->
    error.


-module(zad1).
-export([pitagorean/2]).
pitagorean(N) ->
        [{A,B,C} ||
                A <- lists:seq(1, (N div 3)),
                B <- lists:seq(A + 1, (N div 2) -1),
                C <- [N-A-B],
                C*C == A*A + B*B].