Jak utworzyć listę w Oz?

Question

Próbuję utworzyć listę w Oz stosując następujący kod:

local Loop10 Xs in 
    proc {Loop10 I} 
     Xs={List.append Xs I} 
     if I == 10 then skip 
     else 
    {Browse I} 
    {Loop10 I+1} 
     end 
     {Browse Xs} 
    end 
{Loop10 0} 
end 

Mozart compiler pokazuje, że kod zostanie przyjęty, ale nie otwiera się okno przeglądania. Wszystko, co próbuję zrobić, to stworzyć listę w Oz.

Co jest nie tak z kodem?

Answer 1

Nie wiesz, że to, co chcesz, ale aby utworzyć listę wszystkich liczb całkowitych między X i Y (włącznie) można zrobić:

local 
    fun {Loop From To} 
     if From > To 
     then nil 
     else From | {Loop From+1 To} 
     end 
    end 
in 
    {Browse {Loop 0 10}} % Displays: [0,1,2,3,4,5,6,7,8,9,10] 
end 

Answer 2

również powód, dlaczego nie dostać dowolną przeglądarkę okno to jest ponieważ wątek ocena zawiesić z powodu tej linii:

Xs={List.append Xs I} 

Jak już wcześniej wspomniano zmienna może być przypisany tylko raz, ale jest coś, co jest nie tak z tej linii. Próbujesz dołączyć Xs do I, ale Xs jest wciąż niezwiązany. Wątek zawiesza się w ten sposób, dopóki wartość nie zostanie przypisana do Xs.

Wprowadź ten interaktywnie:

declare Xs in 
{Browse {List.append Xs [2 3 4]}} 

Jak widać nic się nie dzieje, nie ma przeglądarka otwiera. Teraz wprowadź to:

Xs= [1] 

Od Xs związaniem się to odblokowuje pierwszej oceny „GW” i przeglądarka będzie pop-up.

P.S. Przepraszam za spóźnioną odpowiedź, właśnie zainteresowałem się Oz: P