Sum digits of an integer: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,770: / Line 1,770: @@
 =={{header|EasyLang}}==
 <syntaxhighlight lang="easylang">
-proc sumdig s$ . r .
+func sumdig s$ .
-   r = 0
    for c$ in strchars s$
       h = strcode c$ - 48
@@ Line 1,779: / Line 1,778: @@
       r += h
    .
+   return r
 .
-call sumdig "1" r ; print r
+print sumdig "1"
-call sumdig "1234" r ; print r
+print sumdig "1234"
-call sumdig "fe" r ; print r
+print sumdig "fe"
-call sumdig "f0e" r ; print r
+print sumdig "f0e"
 </syntaxhighlight>