1/ napiste fci, ktera vezme List Listů. Pokud list neni matici, vypise 
 chybovou hlasku.
 Pokud je matice ctvercova, vrati determinant
 Pokud matice neni ctvercova, rekne nam to a vypise determinant 
 soucinu matice a matice transponovane.
 Vytvorte testovaci vstupy velikosti aspon 50 na neco a funkcnost 
 funkce overte.

 2/ je dan iteracni proces
 a[n]=Modulo2[Pi*a[n-1]];
 a[1]=0
 Pomoci ListPlot vykreslete prvnich 1000 iteraci a barvou od modre k 
 cervene naznacte smer vyvoje

 3/ napiste funkci, ktera si bere list a vydava vsechny sekvence typu 
 a,2,b  ve tvaru listu listu {a,2,b}
 Funkci otestujte na prvnich 200 desetinnych cislech zapisu Pi.

 4/ Nakreslete rotujici Archimedovy spiraly, nejprve rotuje jedna, po 
 chvili se pridaa dalsi atd. az do deseti barevne odlisenych 
 Archimedovych spiral. Smer rotace pridavane spiraly at je nahodny.

 5/ Napiste funkci, ktera se bere list koeficientu polynomu (jenom cisla) a vraci 
 obrazek korenu v Gaussove rovine, ty jsou obarveny podle vzdalenosti 
 od cisla -1+I

 6/ Napiste fci, ktera si vezme vyraz jedne promenne (kdyby bylo vice 
 ci mene promennych, nevykona nic) vyraci dvojici {koren, 
 Abs[lhs(koren)-rhs(koren)]}, Koren Hledejte pomoci FindRoot a to ten 
 nejblizsi u nuly.
 
 7/ Zadefinujte v Mathematice ze a+3 = 0
 
 8/ Pomocí přetížení napiste funkci, která vezme pouze List libovolného množství dvojic stringů a když se jsou všechny dvojice stejné vypište "stejne" jinak "jine" otestujte