Michelangelo

clear
Oksat = [1 3
         3 2
         5 4
         2 5]

     [m,n]=size(Oksat)
     lehdet=[]
for i=1:m+1

    %Etsi numero/numerot jotka esiintyy kerran
    apu=find(Oksat==i)
    if length(apu) == 1
        lehdet=[lehdet i]

    end
end
lehdet
koodi=[]
n = m
%j=1
 for j=1:m-1
 [r,s]=find(Oksat==lehdet(1))
  if s == 1
      apu=find(Oksat==Oksat(r,2))
       if length(apu) == 2
       lehdet = [lehdet(2:end) Oksat(r,2)]
%
       else
           lehdet = lehdet(2:end)
       end
           koodi= [koodi Oksat(r,2)]
           Oksat = Oksat(setdiff(1:n,r),:)
           n = n-1
%
%
  end
 if s == 2
      apu=find(Oksat==Oksat(r,1))
      if length(apu) == 2
      lehdet = [lehdet(2:end) Oksat(r,1)]
      else
          lehdet = lehdet(2:end)
      end
      koodi= [koodi Oksat(r,1)]
      Oksat = Oksat(setdiff(1:n,r),:)
      n = n-1
 end
%
end