SHARE
TWEET

2018-09

Sorceress Dec 9th, 2018 76 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. DEFLNG A-Z
  2. TYPE tLL
  3.   d AS LONG
  4.   n AS LONG
  5.   p AS LONG
  6. END TYPE
  7. DIM LL(10000000) AS tLL
  8. DIM s(1000) AS LONG
  9. DIM shi(1000) AS LONG
  10.  
  11. players = 476: marbles = 7143100
  12.  
  13. FOR m = 1 TO marbles
  14.  
  15.   i = LL(i).n: i = LL(i).n: inext = LL(i).n
  16.   py = py + 1: IF py > players THEN py = py - players
  17.   IF m MOD 23 = 0 THEN
  18.     s(py) = s(py) + m
  19.     FOR h = 1 TO 8: i = LL(i).p: NEXT
  20.     iprev = LL(i).p
  21.     inext = LL(i).n
  22.     LL(iprev).n = inext
  23.     LL(inext).p = iprev
  24.     s(py) = s(py) + LL(i).d
  25.  
  26.   ELSE
  27.     t = t + 1:
  28.     LL(i).n = t: LL(t).n = inext: LL(t).d = m
  29.     LL(inext).p = t: LL(t).p = i
  30.   END IF
  31.   WHILE s(py) > 100000: s(py) = s(py) - 100000: shi(py) = shi(py) + 1: WEND
  32. NEXT
  33.  
  34. FOR py = 1 TO players
  35.   IF shi(py) > shi(bestpy) THEN bestpy = py: PRINT shi(py); s(py)
  36.   IF shi(py) = shi(bestpy) AND s(py) > s(bestpy) THEN bestpy = py: PRINT shi(py); s(py)
  37. NEXT
  38. PRINT
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top