Programowanie funkcyjne/Podstawy/Ćwiczenia: Różnice pomiędzy wersjami

Z Studia Informatyczne
Przejdź do nawigacjiPrzejdź do wyszukiwania
Kubica (dyskusja | edycje)
Kubica (dyskusja | edycje)
Linia 84: Linia 84:
}}
}}
{{rozwiazanie|||<div class="mw-collapsible mw-made=collapsible mw-collapsed"> <div class="mw-collapsible-content" style="display:none">
{{rozwiazanie|||<div class="mw-collapsible mw-made=collapsible mw-collapsed"> <div class="mw-collapsible-content" style="display:none">
   '''let rec''' para a b =
   '''let''' para a b =
     '''let rec''' pom a b c =
     '''let rec''' pom a b c p =
       '''if''' (a = 0) && (b = 0) '''then''' c
       '''if''' (a = 0) && (b = 0) '''then''' c
       '''else''' pom (a/10) (b/10) (100*c + 10 *(a mod 10) + b mod 10)
       '''else''' pom (a/10) (b/10) (c + p *(a mod 10) + 10 * p *(b mod 10)) (100*p)
     '''in''' pom a b 0;;
     '''in''' pom a b 0 1;;
 
 
   '''let''' rzutx p =
   '''let''' rzut_x x =
     '''let rec''' pom p a =
     '''let rec''' pom x p a =
       '''if''' p = 0 '''then''' a
       '''if''' x = 0 '''then''' a
       '''else''' pom (p / 100) (10*a + (p/10) mod 10)
       '''else''' pom (x / 100) (10 * p) (a + (x mod 10) * p)
     '''in''' pom p 0;;
     '''in''' pom x 1 0;;
 
 
   '''let''' rzuty p =
   '''let''' rzut_y x =
     '''let rec''' pom p b =
     '''let rec''' pom x p a =
       '''if''' p = 0 '''then''' b
       '''if''' x = 0 '''then''' a
       '''else''' pom (p/100) (10*b + p mod 10)
       '''else''' pom (x / 100) (10 * p) (a + ((x/10) mod 10) * p)
     '''in''' pom p 0;;
     '''in''' pom x 1 0;;
</div></div>}}
</div></div>}}



Wersja z 15:28, 13 paź 2010

Praca domowa

  • Stopień parzystości liczby całkowitej x to największa taka liczba naturalna i, że x dzieli się przez 2i. Liczby nieparzyste mają stopień parzystości 0, liczby 2 i -6 mają stopień parzystości 1, a liczby 4 i 12 mają stopień parzystości 2. Przyjmujemy, że 0 ma stopień parzystości -1. Napisz procedurę parzystość wyznaczającą stopień parzystości danej liczby całkowitej.
  • Udowodnij, że dla każdego naturalnego n, fib n jest równe n-tej liczbie Fibonacciego. Podaj specyfikację dla fibpom i udowodnij ją przez indukcję.
let fib n =
  let rec fibpom a b n = 
    if n = 0 then a else fibpom b (a + b) (n - 1)
  in 
    fibpom 0 1 n;;
  • Forma specjalna let-in jest tylko lukrem syntaktycznym i może być rozwinięta do λ-abstrakcji. W jaki sposób?


Ćwiczenia

W przypadku zajęć laboratoryjnych należy najpierw zapoznać studentów ze środowiskiem i uruchamianiem Ocamla.

Rozwiązaniami poniższych zadań są proste programiki operujące na liczbach całkowitych (bez rekurencji ogonowej i list):

Ćwiczenie [sqrt x]

Sumy kolejnych liczb nieparzystych dają kwadraty kolejnych liczb naturalnych, zgodnie ze wzorem: i=1k(2i1)=k2. Wykorzystaj ten fakt do napisania procedury sqrt obliczającej sqrt x =x.

Rozwiązanie

{{{3}}}

Ćwiczenie [Test pierwszości]

Napisz procedurę, która sprawdza, czy dana liczba jest pierwsza.

Rozwiązanie

{{{3}}}

Laboratorium

Ćwiczenie [Odwracanie liczb]

Napisz procedurę, która przekształca daną liczbę w taką, w której cyfry wystepują w odwrotnej kolejności, np. 1234 jest przekształcane na 4321.

Rozwiązanie

{{{3}}}

Ćwiczenie [Numerologia]

Napisz procedurę, która sprawdza, czy dana liczba jest podzielna przez 9 w następujący sposób: jedyne liczby jednocyforwe podzielne przez 9 to 9 i 0; reszta z dzielenia liczby wielocyforwej przez 9 jest taka sama, jak reszta dzielenia sumy jej cyfr przez 9; jeśli suma cyfr jest wielocyfrowa, to całość powtarzamy, aż do uzyskania liczby jednocyfrowej.

Rozwiązanie

{{{3}}}

Ćwiczenie [Reszta modulo 11]

Napisz procedurę, która sprawdza czy dana liczba jest podzielna przez 11 w następujący sposób: sumujemy cyfry liczby znajdujące się na parzystych pozycjach, oraz te na nieparzystych pozycjach, różnica tych dwóch liczb przystaje modulo 11 do wyjściowej liczby; krok ten należy powtarzać aż do uzyskania liczby jednocyfrowej.

Rozwiązanie

{{{3}}}

Ćwiczenie [Kodowanie par liczb]

Zaimplementuj kodowanie par liczb naturalnych jako liczby naturalne. To znaczy, napisz procedurę dwuargumentową, która otrzymawszy dwie liczby naturalne zakoduje je w jednej liczbie naturalnej. Dodatkowo napisz dwie procedury, które wydobywają z zakodowanej pary odpowiednio pierwszą i drugą liczbę.

Rozwiązanie

{{{3}}}

Ćwiczenie [Nietrywialne pierwiastki z 1]

Napisz procedurę, która dla danej liczby n sprawdzi czy pierścień reszt modulo n zawiera nietrywialne pierwiastki z 1 (tj. takie liczby k, k1, kn1, że k21 mod n).

Rozwiązanie

{{{3}}}