Vjezbe-4.nb

Neke funkcije u Mathematici na nas nacin

Bez koristenja vec definisanih kompleksnih funkcija,definisite svoje sopstvene verzije slijedecih funkcija:

First[list]
Last[list]
Take[list, n]
Append[list, n]
Prepend[list, n]
Insert[list, n]
MemberQ[list, elem]
Length[list] (Bonus - savjet: Pogledajte HELP za "While")

Nakon sto rijesite problem, razmislite kako mozete poboljsati program - napraviti modul, specificirati lokalne varijable, rijesiti na neki nacin ekstremne ili pogresne situacije u programima itd...

$mojFirst[lista_] := Module[{}, Return[lista[[1]]] ]$

$mojLast[lista_] := Module[{}, lista[[Length[lista]]] ]$

$mojTake[lista_, n_] := Module[{}, lista[[n]] ]$

$mojTake2[lista_, n_] := Module[{}, If[Length[lista] <n || n<1, Print["Argument veci od duzine liste ili manji od nule"], lista[[n]] ] ]$

$mojAppend[lista_, elem_] := Module[{i, ret, n}, n = Length[lista] ; ret = Tabl ... ]] = lista[[i]], {i, 1, n} ] ; ret[[n + 1]] = elem ; Return[ret] ]$

$mojPrepend[lista_, elem_] := Module[{lista1, n, i}, n = Length[lista] ; lista1 ... ta1[[i + 1]] = lista[[i]], {i, n} ] ; lista1[[1]] = elem ; lista1]$

$mojInsert[lista_, elem_, n_] := Module[{lista1, i, p}, p = Length[lista] ; If[ ... [[j + 1]] = lista[[j]], {j, n, p} ] ] ] ; Return[lista1] ]$