Jump to content

Fairshare between two and more: Difference between revisions

No edit summary
Line 1,423:
=={{header|Ring}}==
<lang ring>
str = []
people = [2,3,5,11]
 
result = list(len(people))
forresult i=1 to len(people)
for i in people
str = []
see "" + people[i] + ": "
fairsharefair(25, people[i])
for n =in 1 to len(result)
add(str,result[n])
next
showarray(str)
next
func fairshare(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 ⟶ 1,449:
result[i] = t % base
next
return [base,result]
func showarray( vect)
 
func showarray(vect)
see "["
svect = ""
for n =in 1 to len(vect)
svect += svect + " " + vect[n] + ","
next
svect = left(svect, len(svect) - 1)
 
see svect
see? "][" + nl</lang>svect + "]"
</lang>
{{out}}
<pre>
2,468

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.