🚀 go-pugleaf

Andrzej Wasowski...

> Niestety nie mam czasu się za to wziąć, ale jakbyś opisał na grupę
> swoje doświadczenia, plus jakieś ciekawsze elementy kodu -- to ja
> bardzo chętnie.

Ok...

Na początek powstrzymuję się od szerszych opinii.

Język wydaje się być rozbudowany, pomysłowy i wydajny, zwłaszcza
jeżeli chodzi o programowanie wielowątkowe.

W praktyce wygląda to na połączenie "lispa" (paradygmat funkcjonalny)
z elementami obiektowymi + jakieś inne pomysły, których jeszcze
nie rozgryzłem (cells, junks (tu są mapy, słowniki etc.), port
(komunikacja) i inne)...

Ciekawsze fragmenty kodu z tutoriala:

declare Insert in
proc {Insert Key Value TreeIn ?TreeOut}
   case TreeIn
   of nil then TreeOut = tree(Key Value nil nil)
   [] tree(K1 V1 T1 T2) then 
      if Key == K1 then TreeOut = tree(Key Value T1 T2)
      elseif Key < K1 then T in 
        TreeOut = tree(K1 V1 T T2)
        {Insert Key Value T1 T}
      else T in 
        TreeOut = tree(K1 V1 T1 T)
        {Insert Key Value T2 T}
      end 
   end 
end
declare Tr1 Tr2 Tr3 in
{Insert 10 a nil Tr1}
{Insert 16 c {Insert 15 b Tr1} Tr2}
{Browse Tr2}

Figure 5.3: Tree insertion using case statement

Mała legenda (i dużo się wyjaśni):

"declare Insert in [...]" - wprowadzenie zasięgu dla zmiennej Insert
(do końca pliku chyba) - inna wersja "local Insert in [...] end".

Insert - nazwa procedury
Key, Value, TreeIn - parametry wejściowe
TreeOut - parametr wyjściowy

Wywołanie funkcji {Nazwafunkcji par1 par2 parWyj},
czasami opuszcza się parWyj, tu jest dowolność, ale
nie jestem pewien do końca czemu (podejrzewam, że żeby
umożliwić kilka par. wyjściowych).

case E of Pattern_1 then S1 
[] Pattern_2 then S2 
[] ... 
else S end

To wyżej to wiadomo.

TreeOut = tree(K1 V1 T T2)
Utworzenie krotki.

Funkcja {Browse param} wypisuje w oknie wartość parametrów.
Dla w/w przykładu wypisze:

tree(10 a nil tree(15 b nil tree(16 c nil nil)))

Czyli drzewko...


Inny przykład:

declare Map in
fun {Map Xs F}
   case Xs
   of nil then nil
   [] X|Xr then {F X}|{Map Xr F}
   end 
end 
{Browse {Map [1 2 3 4] fun {$ X} X*X end}}


Funkcja Map przyjmuje na wejściu dwa parametry:
Xs i F, pierwszy to lista (tu: [1 2 3 4])
po której sobie rekurencyjnie chodzi wywołując
dla każdego elementu funkcję F poprzez: {F X}.
Miłe, szybkie i przyjemne :)

Tu wynik [1 3 9 16]

Wątki tworzy się tak:
thread [...] end 
:)


Tyle z podstaw.

adam
-- 
[ rectifier[X]mesa.eu.org : mail ]
[  http://www.mesa.eu.org : home ]