Fairshare between two and more: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,423: / Line 1,423: @@
 =={{header|Ring}}==
 <lang ring>
-str = []
+str    = []
 people = [2,3,5,11]
-result = list(len(people))
-for i=1 to len(people)
+result = people
+for i in people
     str = []
-    see "" + people[i] + ": "
+    see "" + i + ": "
-    fairshare(25, people[i])
+    fair(25, i)
-    for n = 1 to len(result)
+    for n in result
-        add(str,result[n])
+        add(str,n)
     next
     showarray(str)
 next
+func fair n,base
-func fairshare(n,base)
      result = list(n)
      for i=1 to n
          j = i-1
          t = 0
          while j>0
                t = t + j % base
                j = floor(j/base)
@@ Line 1,447: / Line 1,449: @@
          result[i] = t % base
      next
-     return [base,result]
+func showarray vect
-func showarray(vect)
-     see "["
      svect = ""
-     for n = 1 to len(vect)
+     for n in vect
-         svect = svect + " " + vect[n] + ","
+         svect += " " + n + ","
      next
      svect = left(svect, len(svect) - 1)
-     see svect
-     see "]" + nl</lang>
+     ? "[" + svect + "]"
+</lang>
 {{out}}
 <pre>