12 lines
167 B
Text
12 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
|