Fairshare between two and more: Difference between revisions

Content added Content deleted

Inline

@@ Line 693: / Line 693: @@
 {{trans|Cowgol}}
 <syntaxhighlight lang="easylang">
-proc fairshare ind base . r .
+func fairshare ind base .
-   r = 0
    while ind > 0
-      r = r + ind mod base
+      r += ind mod base
       ind = ind div base
    .
    r = r mod base
+   return r
 .
 proc sequence n base . .
    write base & ": "
    for ind range0 n
-      call fairshare ind base r
+      write (fairshare ind base) & " "
-      write r & " "
    .
    print ""
 .
-call sequence 25 2
+sequence 25 2
-call sequence 25 3
+sequence 25 3
-call sequence 25 5
+sequence 25 5
-call sequence 25 11
+sequence 25 11
 </syntaxhighlight>