8 lines
75 B
Text
8 lines
75 B
Text
:1->C
|
|
:While 1
|
|
:Prompt I
|
|
:C->dim(L1)
|
|
:I->L1(C)
|
|
:Disp mean(L1)
|
|
:1+C->C
|
|
:End
|