Wyklad_OperacjeNaListach_14-10-08.nb 1
Zadanie 1. Utworzyć dwie listy złożone z liczb całkowitych
z zakresu H-5, 5L. Następnie utworzyć nową listę,
która jest iloczynem poprzednich list.
8-5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5<
lista1 = Table@i, 8i, -5, 5lista2 = Range@-5, 5D
f@x_D := x
Table@f@iD, 8i, -5, 5Array@f, 11, -5D
8-5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5<
8-5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5<
8-5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5<
8-5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5<
8-5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5<
Wyklad_OperacjeNaListach_14-10-08.nb 2
lista1 lista2
True
1. sposób
lista1 " lista2
825, 16, 9, 4, 1, 0, 1, 4, 9, 16, 25<
2. sposób
Table@lista1@@iDD " lista2@@iDD, 8i, 1, Length@lista1D825, 16, 9, 4, 1, 0, 1, 4, 9, 16, 25<
3. sposób
HTable@#1@@iDD " #2@@iDD, 8i, 1, Length@#1D

825, 16, 9, 4, 1, 0, 1, 4, 9, 16, 25<
Wyklad_OperacjeNaListach_14-10-08.nb 1
Zadanie 2. Zdefiniować funkcje f HxL = x2,
g HxL =-x2. Utworzyć listę złożoną
postaci : 88f H-3L, g H3L<, 8f H-2L, g H2L<, ..., 8f H3L, g H-3L<<.
f@x_D := x^2;
g@x_D :=-x^2;
Table@8f@iD, g@-iD<, 8i, -3, 3889, -9<, 84, -4<, 81, -1<, 80, 0<, 81, -1<, 84, -4<, 89, -9<<
Table@8f@iD " g@-iD<, 8i, -3, 388-81<, 8-16<, 8-1<, 80<, 8-1<, 8-16<, 8-81<<
Table@f@iD " g@-iD, 8i, -3, 38-81, -16, -1, 0, -1, -16, -81<
Wyklad_OperacjeNaListach_14-10-08.nb 1
Zadanie 3. Utworzyć listę z elementów nieparzystych z zakresu H1, 20L
1. sposób
k1 = Table@i, 8i, 1, 20, 281, 3, 5, 7, 9, 11, 13, 15, 17, 19<
2. sposób
Range@1, 20, 2D
81, 3, 5, 7, 9, 11, 13, 15, 17, 19<
pr = Table@i, 8i, 1, 2081, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20<
3. sposób
Wyklad_OperacjeNaListach_14-10-08.nb 2
Take@pr, 81, 20, 281, 3, 5, 7, 9, 11, 13, 15, 17, 19<
4. sposób
Drop@pr, 82, 20, 281, 3, 5, 7, 9, 11, 13, 15, 17, 19<
Wyklad_OperacjeNaListach_14-10-08.nb 1
Zadanie 4. Z listy liczb całkowitych z zakresu
H-10, 10L utworzyć nową listę, której elementami są
liczby stojące na parzystych pozycjach listy wyjściowej.
k = Range@-10, 10D
Length@kD
8-10, -9, -8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10<
21
Take@k, 82, Length@kD, 28-9, -7, -5, -3, -1, 1, 3, 5, 7, 9<
l = Table@i, 8i, 2, Length@kD, 282, 4, 6, 8, 10, 12, 14, 16, 18, 20<
Part@k, lD
8-9, -7, -5, -3, -1, 1, 3, 5, 7, 9<
Wyklad_OperacjeNaListach_14-10-08.nb 1
Zadanie 5. Wylosować liczbę naturalną n z zakresu H10, 20L. Utworzyć listę
z n liczb całkowitych losowo wybranych z zakresu H-100, 100L. Sprawdzić
czy ostatni element listy jest parzysty, jeśli tak to go usunąć,
w przeciwnym przypadku usunąć element stojący przed nim.
n = Random@Integer, 810, 20lista = Table@Random@Integer, 8-100, 1008-9, -55, 66, -87, 84, -27, -78, -76, 37, 31, -82, 75, 57, -34, 60<
dl = Length@listaD
If@EvenQ@lista@@dlDDD, Drop@lista, 8dl15
8-9, -55, 66, -87, 84, -27, -78, -76, 37, 31, -82, 75, 57, -34<
If@EvenQ@lista@@dlDDD, Delete@lista, dlD, Delete@lista, dl - 1DD
8-9, -55, 66, -87, 84, -27, -78, -76, 37, 31, -82, 75, 57, -34<
Wyklad_OperacjeNaListach_14-10-08.nb 2
lista1 = Table@Random@Integer, 8-100, 100853, 42, 79, -5, 89, -23, -45, -6, 92, -2, -8, -33, 57, 73, 63<
dl1 = Length@lista1D
If@EvenQ@lista1@@dl1DDD,
Drop@lista1, 8dl115
853, 42, 79, -5, 89, -23, -45, -6, 92, -2, -8, -33, 57, 63<
Wyklad_OperacjeNaListach_14-10-08.nb 1
Zadanie 6. Zdefiniować "pure function",
która definiuje dwie puste listy : l1, l2, oraz listę : nowa,
liczb rzeczywistych o n elementach Hn wybierane jest przez użytkownikaL
z zakresu H-100, 100L. Następnie do listy l1 dołącza tylko
liczby nieujemne z listy nowa, a do listy l2 liczby niedodatnie.
Function@n, l1 = 8<;l2= 8<;
nowa = Table@Random@Real, 8-100, 100Print@nowaD;
Table@If@NonNegative@nowa@@iDDD,
AppendTo@l1, nowa@@iDDD, AppendTo@l2, nowa@@iDDDD, 8i, 1, nPrint@l1D;
Print@l2DD@10D
8-19.3932, 39.4813, -95.4914, -38.7035,
4.59625, -15.2053, 95.3382, 5.39414, 81.3071, 60.9872<
839.4813, 4.59625, 95.3382, 5.39414, 81.3071, 60.9872<
8-19.3932, -95.4914, -38.7035, -15.2053<
Wyklad_OperacjeNaListach_14-10-08.nb 1
Zadanie 7. Wykorzystując listy l1 i l2 z
poprzedniego zadania zdefiniować "pure function",
która z dłuższej listy usunie elementy z końca listy do
długości listy krótszej, oraz przemnoży je przez siebie.
l1
839.4813, 4.59625, 95.3382, 5.39414, 81.3071, 60.9872<
l2
8-19.3932, -95.4914, -38.7035, -15.2053<
Wyklad_OperacjeNaListach_14-10-08.nb 2
H If@ Length@#1D < Length@#2D ,
s = Take@#2, 81, Length@#1 Dk = Take@#1, 81, Length@#2DL &@l1, l2D
839.4813, 4.59625, 95.3382, 5.39414<
8-19.3932, -95.4914, -38.7035, -15.2053<
8-765.669, -438.902, -3689.92, -82.0198<
Wyklad_OperacjeNaListach_14-10-08.nb 1
Zadanie 8. Na podstawie listy liczb
całkowitych z przedziału H0, 100L utworzy
listy : - listę złożoną tylko z liczb pierwszych listy wyjściowej,
- listę z usuniętymi liczbami pierwszymi,
- w której elementami niezerowymi są tylko liczby pierwsze.
In[17]:= lis = Table@Random@Integer, 80, 100Out[17]= 816, 2, 88, 28, 80, 56, 27, 15, 46, 41, 47<
In[18]:= lis1 = 8<;
Table@If@PrimeQ@lis@@iDDD, AppendTo@lis1, lis@@iDDDD,
8i, 1, Length@lisDPrint@"Odp.: ", lis1D
Out[19]= 8Null, 82<, Null, Null, Null,
Null, Null, Null, Null, 82, 41<, 82, 41, 47<<
Odp.: 82, 41, 47<
Wyklad_OperacjeNaListach_14-10-08.nb 2
In[21]:= lis2 = 8<;
Table@If@PrimeQ@lis@@iDDD, , AppendTo@lis2, Extract@lis, iDDD,
8i, 1, Length@lisDPrint@"Odp.: ", lis2D
Out[22]= 8816<, Null, 816, 88<, 816, 88, 28<,
816, 88, 28, 80<, 816, 88, 28, 80, 56<,
816, 88, 28, 80, 56, 27<, 816, 88, 28, 80, 56, 27, 15<,
816, 88, 28, 80, 56, 27, 15, 46<, Null, Null<
Odp.: 816, 88, 28, 80, 56, 27, 15, 46<
In[24]:= Table@If@PrimeQ@lis@@iDDD, Extract@lis, iD, lis@@iDD = 0D,
8i, 1, Length@lisDOut[24]= 80, 2, 0, 0, 0, 0, 0, 0, 0, 41, 47<
Wyklad_OperacjeNaListach_14-10-08.nb 1
Zadanie 9. Utworzyć listę odługości
losowo wybranej z liczb całkowitych H5, 10L,
o elementach rzeczywistych z przedziału H0, 10L sprowadzonych
do postaci wymiernej. Następnie zdefiniować "pure function",
która tworzy dwie nowe listy : pierwsza z nich to liczniki,
druga mianowniki liczb wchodzących w skład listy wyjściowej.
d = Table@Rationalize@Random@Real, 80, 108i, 1, Random@Integer, 85, 10522815027 206703010 132979235
9 , , ,

71094693 30071717 69572969
129302105 287564419 1308158473 84615103
, ,
, =
30689368 43901492 583304984 13107040
Wyklad_OperacjeNaListach_14-10-08.nb 2
d1 = 8<;
d2 = 8<;
Function@lista,
Table@AppendTo@d1, Numerator@lista@@iDDDD,
8i, 1, Length@listaDTable@AppendTo@d2, Denominator@lista@@iDDDD,
8i, 1, Length@listaDPrint@d1D;
Print@d2DD@dD
8522815027, 206703010, 132979235,
129302105, 287564419, 1308158473, 84615103<
871094693, 30071717, 69572969,
30689368, 43901492, 583304984, 13107040<
Wyklad_OperacjeNaListach_14-10-08.nb 3
d = Table@Rationalize@Random@Real, 80, 108i, 1, Random@Integer, 85, 10124651769 359780581 510277413 32771501 43760719
9 , , , , =

16748186 37972301 86676752 150711016 19775367
d1 = 8<;
d2 = 8<;
Function@lista,
Table@AppendTo@d1, Numerator@lista@@iDDDD,
8i, 1, Length@listaDTable@AppendTo@d2, Denominator@lista@@iDDDD,
8i, 1, Length@listaDPrint@d1D;
Print@d2DD@dD
8124651769, 359780581, 510277413, 32771501, 43760719<
816748186, 37972301, 86676752, 150711016, 19775367<
Wyklad_OperacjeNaListach_14-10-08.nb 1
Zadanie 10. Zdefiniować funkcję pierwotną, która utworzy
listę zadanej długości składającą się na przemian z "+"i"-".
fun = Function@n,
If@n 0, lista = 8<; Print@listaD,
If@n 1, lista = 8"+"<; Print@listaD, lista = 8"+"<;
Table@
If@lista@@iDD == "+", AppendTo@lista, "-"D,
AppendTo@lista, "+"DD, 8i, 1, n - 1Print@listaDDDD;
fun@10D
8+, -, +, -, +, -, +, -, +, -<