HHC 2017 RPL Programming contest information and results thread

[Edwin]

I have four different versions:
code 1

Code:


Bytes: 68
Checksum: # 3988h
<< { } SWAP
  DO DUP INV CEIL ROT OVER + UNROT INV -
  UNTIL DUP NOT
  END 1.E12 * SWAP
>>

results:
a) 0.4488
2: 0.
1: { 3. 9. 230. 129375. 2.26772796335E12 -1.E24 }

b) 0.422618262
2: 0.
1: { 3. 12. 169. 29040. 3239579892. 1.44927536232E19 1.E31 }

c) 0.41421356
2: 0.
1: { 3. 13. 253. 218314. 63850599813. 1.E22 }

d) 0.853
2: 0.
1: { 2. 3. 51. 17000. 3.46981263012E12 }

e) 0.5
2: 0.
1: { 2. }

code 2

Code:


Bytes: 78.5
Checksum: # A77Bh
<< { } SWAP
  DO DUP INV CEIL ROT OVER + UNROT INV -
  UNTIL DUP .000000000001 <
  END 1.E12 * SWAP
>>

results:
a) 0.4488
2: 0.44097
1: { 3. 9. 230. 129375. }

b) 0.422618262
2: 0.000000069
1: { 3. 12. 169. 29040. 3239579892. }

c) 0.41421356
2: 0.0000000001
1: { 3. 13. 253. 218314. 63850599813. }

d) 0.853
2: 0.2882
1: { 2. 3. 51. 17000. }

e) 0.5
2: 0.
1: { 2. }

code 3

Code:


Bytes: 83
Checksum: # 33D1h
<< { } 0
  DO PICK3 OVER - INV CEIL ROT OVER + UNROT INV +
  UNTIL PICK3 OVER - NOT
  END ROT - 1.E12 * SWAP
>>

results:
a) 0.4488
2: 0.
1: { 3. 9. 230. 129375. }

b) 0.422618262
2: 0.
1: { 3. 12. 169. 29040. 3236245955. }

c) 0.41421356
2: 0.
1: { 3. 13. 253. 218314. 62500000000. }

d) 0.853
2: 0.
1: { 2. 3. 51. 17000. 1.E12 }

e) 0.5
2: 0.
1: { 2. }

code 4

Code:


Bytes: 83
Checksum: # 2C2Eh
<< { } SWAP 0
  DO DUP2 - INV CEIL 4 ROLL OVER + 4 ROLLD INV +
  UNTIL DUP2 - NOT
  END - 1.E12 * SWAP
>>

results:
a) 0.4488
2: 0.
1: { 3. 9. 230. 129375. }

b) 0.422618262
2: 0.
1: { 3. 12. 169. 29040. 3236245955. }

c) 0.41421356
2: 0.
1: { 3. 13. 253. 218314. 62500000000. }

d) 0.853
2: 0.
1: { 2. 3. 51. 17000. 1.E12 }

e) 0.5
2: 0.
1: { 2. }