11 lines
167 B
Text
11 lines
167 B
Text
movinav2(x_,v_)
|
|
Prgm
|
|
If getType(x_)="STR" Then
|
|
{}→list
|
|
v_→p
|
|
Return
|
|
EndIf
|
|
|
|
right(augment(list,{x_}),p)→list
|
|
sum(list)/dim(list)→#v_
|
|
EndPrgm
|