22 lines
369 B
Plaintext
22 lines
369 B
Plaintext
:ClrHome
|
||
:1→X
|
||
:Input ">",Str1
|
||
:Str1→Str2
|
||
:Repeat L≤1
|
||
:Disp Str1
|
||
:length(Str1→L
|
||
:L→dim(L₁
|
||
:seq(expr(sub(Str1,A,1)),A,1,L)→L₁
|
||
:sum(L₁→N
|
||
:{0,.5,1→L₂
|
||
:NL₂→L₃
|
||
:Med-Med L₂,L₃,Y₁
|
||
:Equ►String(Y₁,Str1
|
||
:sub(Str1,1,length(Str1)-3→Str1
|
||
:X+1→X
|
||
:End
|
||
:Pause
|
||
:ClrHome
|
||
:Disp Str2,"DIGITAL ROOT",expr(Str1),"ADDITIVE","PERSISTENCE",X
|
||
:Pause
|