What?

Schantz 2017 Coding Competition

Who?

Christian Iversen ci@iversenit.dk

• Bender of rules
• Torturer of compilers
• Destroyer of style guides

Why?

How?

#!/usr/bin/python3

initial_year    = 2016
initial_reserve = 0.0

small_payment = 10000.0
large_payment = 20000.0
large_payment_start = 2030

small_customer_fee = 1000.0
small_customer_limit = 200000.0

interest_pal_fee = 0.1530
interest_rate = 0.01

payment_fee = 0.1100
...

...
def calc_year(year):
    if year == initial_year:
        return initial_reserve
    else:
        Rn_last = calc_year(year - 1)
        if year >= large_payment_start:
            I = large_payment
        else:
            I = small_payment
        Opct = I * payment_fee
        if Rn_last > small_customer_limit:
            Oabs = 0
        else:
            Oabs = small_customer_fee
        r = interest_rate * (Rn_last + I - Opct - Oabs)
        PAL = interest_pal_fee * r
        res = Rn_last + I - Opct - Oabs + r - PAL
        return res
...

...
for year in range(2016, 3000):
    amount = calc_year(year)
    print("%d\t%.6f" % (year, amount))
    if amount > 1000000.0:
        break
1089 chars

interface X {
    static void main(String[]a) {
        float Rn = 0.0f;
        float Rn_last = 0.0f;
        for (int year = 2016; Rn_last < 1e6; year++) {
            Rn_last = Rn;
            float I, Oabs, Opct, r, PAL;
            if (year >= 2029) {
                I = 20000;
            } else {
                I = 10000;
            }
            Opct = I * 0.1100f;
            if (Rn_last > 200000) {
                Oabs = 0;
            } else {
                Oabs = 1000;
            }
            r = 0.01f * (Rn_last + I - Opct - Oabs);
            PAL = 0.1530f * r;
            Rn = Rn_last + I - Opct - Oabs + r - PAL;
            System.out.format("%d	%f\n", year, Rn_last);
       }
    }
}
360 chars

interface X {
    static void main(String[]a) {
        float Rn = 0f;
        float L = 0f;
        for (int Y = 2016; L < 1e6; Y++) {
            L = Rn;
            float I, A, Opct, r, P;
            if (Y >= 2029) {
                I = 2e4f;
            } else {
                I = 1e4f;
            }
            Opct = I * 0.1100f;
            if (L > 2e5) {
                A = 0;
            } else {
                A = 1000;
            }
            float X = L + I - Opct - A;
            float Z = 0.01f * X;
            Rn = X + 0.847f * Z;
            System.out.format("%d       %f\n", Y, L);
       }
    }
}
274 chars

interface X {
    static void main(String[]a) {
        float Rn = 0f;
        float L = 0f;
        for (int Y = 2016; L < 1e6; Y++) {
            L = Rn;
            float I, Opct, r, P;
            I = 1e4f * (Y >= 2029 ? 2 : 1);
            Opct = I * 0.1100f;
            float X = L + I - Opct - (L > 2e5 ? 0 : 1000);
            Rn = 1.00847f * X;
            System.out.format("%d       %f\n", Y, L);
       }
    }
}
229 chars

interface X {
    static void main(String[]a) {
        float L = 0f;
        float X = 0;
        float Q = 0;
        for (int Y = 2015; Q < 1e6; Y++) {
            L = 1.00847f * X;
            float I, r, P;
            I = 1e4f * (Y > 2027 ? 2 : 1);
            X = L + I - (I * 0.1100f) - (L > 2e5 ? 0 : 1000);
            System.out.format("%d       %f\n", Y, L);
            Q = L;
        }
    }
}
215 chars

interface X {
    static void main(String[]a) {
        float X = 0;
        for (int Y = 0; Y < 70; Y++) {
            System.out.format("%d       %f\n", Y+2016, X *= 1.00847f);
            X += (1e4f * (Y > 12 ? 2 : 1) * 0.89f) - (X > 2e5 ? 0 : 1e3);
        }
    }
}
164 chars

interface X {
    static void main(String[]a) {
        float X = 0;
        for (int Y = 0; Y < 70; Y++) {
            System.out.format("%d       %f\n", Y+2016, X *= 1.00847f);
            X += 8900 * (Y > 12 ? 2 : 1) - (X > 2e5 ? 0 : 1e3);
        }
    }
}
156 chars

interface X {
    static void main(String[]a) {
        float Y = 16, X = 0;
        while (Y++ < 71) {
            System.out.format("20%f     %f\n", Y, X *= 1.00847f);
            X -= X > 2e5 ? 0 : 1e3;
            X += Y > 29 ? 17800 : 8900;
        }
    }
}
151 chars

interface X {
    static void main(String[]a) {
        for (
            float Y = 16, X = 0;
            Y++ < 71;
            X -= X > 2e5 ? 0 : 1e3, X += Y > 29 ? 17800 : 8900
        ) System.out.format("20%f       %f\n", Y, X *= 1.00847);
    }
}
146 chars

interface X {
    static void main(String[]a) {
        for (
            float Y = 16, X = 0;
            Y++ < 71;
            X += Y > 29 ? Y > 35 ? 17800 : 16800 : 7900
        ) System.out.format("20%f       %f\n", Y, X *= 1.00847);
    }
}
142 chars

interface X {
    static void main(String[]a) {
        for (
            long Y = 16, X = 0;
            Y++ < 71;
            X += (Y > 29 ? Y > 35 ? 178 : 168 : 79) * 100
        ) System.out.format("20%d       %d\n", Y, X *= 1.00847);
    }
}
141 chars

interface X {
    static void main(String[]a) {
        for (
            int Y = 16, X = 0;
            Y++ < 71;
            X += (Y > 29 ? Y > 35 ? 178 : 168 : 79) * 100
        ) System.out.format("20%d       %d\n", Y, X *= 1.0085);
    }
}
139 chars

interface X {
    static void main(String[]a) {
        for (
            int Y = 16, X = 0;
            Y++ < 71;
            X += (Y > 29 ? Y > 35 ? 178 : 168 : 79) * 100
        ) System.out.format("20%d       %d\n", Y, X += X/118);
    }
}
138 chars

interface X {
    static void main(String[]a) {
        for (
            int Y = 16, X = 0;
            Y++ < 71;
            X += (Y > 29 ? Y > 35 ? 278 : 262 : 123) << 6
        ) System.out.format("20%d       %d\n", Y, X += X/118);
    }
}
138 chars

interface X {
    static void main(String[]a) {
        for (
            int Y = 15, X = 0;
            Y++ < 70;
            X += Y > 28 ? 524 + Y / 35 * 32 << 5 : 7904
        ) System.out.format("20%d       %d\n", Y, X += X / 118);
    }
}
136 chars

Mistakes were made..

/* beanshell is not java */
for (
    Y = 15, X = 0;
    Y++ < 70;
    X += Y > 28 ? 524 + Y / 35 * 32 << 5 : 7900
) print("20" + Y + "    " + (X += X / 118));
77 chars (but against the rules)

class P
{
    static void Main()
    {
        for (
            int Y = 15, X = 0;
            Y++ < 70;
            X += (Y > 28 ? Y > 35 ? 556 : 524 : 247) << 5
        ) System.Console.Write("20{0}	{1}\n", Y, X += X/118);
    }
}
130 chars

In essense..

I=0;X=0;Y=2016;
for (c:"\u4f0d\ua806\ub224") {
    for (I=0; I++ < (c&0xFF); Y++, X += (c >> 8) * 100) {
        print(Y + "	" + (X += X / 118));
    }
}
109 chars

I=0;X=0;Y=2016;
for (c:"\u4f0d\ua806\ub224")
    for (I=0; I++ < (c&0xFF); Y++, X += (c >> 8) * 100)
        print(Y + "     " + (X += X / 118));
105 chars

X=0;Y=16;
for (c:"\u4f1d\ua823\ub247")
    for (;Y < (c&0xFF); X += (c >> 8) * 100)
        print(2e3 + Y++ + "	" + (X += X / 118));
96 chars

X=0;Y=16;
for (c:"伝ꠣ뉇")
    for (;(c&255) > Y; X += (c >> 8) * 100, X += X / 118)
        print(2e3 + Y++ + "	" + X);
80 chars

X=0;Y=16;
for (c:"ỹ䇃䗏")
    for (;c%100 > Y; X += c/100*100, X += X / 118)
        print("20" + Y++ + "	" + X);
78 chars

Hic sunt dracones!

X=Y=0;
for (c:"㷀荁謇")
    for (;c % 8 * 6 + 13 > Y; X += c / 2, X += X / 118)
        print(2016 + Y++ + "	" + X);
72 chars

X=Y=0;
for (c:"ἠ䉁䘧")
    for (;c % 8 * 6 + 13 > Y; X += c + X / 118)
        print(2016 + Y++ + "	" + X);
67 chars

X=Y=0;
for (c:"ἢ䉃䘩")
    for (;c % 16 * 6 >= Y; X += c + X / 118)
        print(2016 + Y++ + "	" + X);
66 chars

ᗇ=ᐶ=0;
for (ᐷ:"ἢ䉃䘩")
    for (;ᐷ % 16 * 6 >= ᐶ; ᗇ += ᐷ + ᗇ / 118)
        print('ߠ' + ᐶ++ + "	" + ᗇ);
65 chars

But this is no good..

int X=0, Y=0;
foreach (char c in "ἢ䉃䘩")
    for (;c % 16 * 6 >= Y; X += c + X / 118)
        print(2016 + Y++ + "	" + X)
  
82 chars

int X, Y;
foreach (var c in "ἢ䉃䘩")
    for (;c % 16 * 6 >= Y; X += c + X/118)
        print($"20{Y+++16}	{X}")
  
80 chars

int ᗇ,ᐶ;
for (; ᐶ++ < 55; ᗇ += "Ἕ䈯䘐"[ᐶ>13?ᐶ>19?2:1:0] + ᗇ/118)
    print(2015+ᐶ+"	"+ᗇ)
  
71 chars

int ᗇ,ᐶ;
for (; ᐶ++ < 55; ᗇ += "Ἕ䈯䘐"[ᐶ>13?ᐶ>19?2:1:0] + ᗇ/'v')
    print('ߟ'+ᐶ+"	"+ᗇ)
  
70 chars

int ᗇ,ᐶ;
for (;ᐶ++ < 55; ᗇ += "Ἕ䈯䘐"[13%ᐶ/13 + 19%ᐶ/19] + ᗇ/'v')
     print('ߟ'+ᐶ+"	"+ᗇ)
  
70 chars (still...)

int ᗇ,ᐶ='ߟ';
for (; ᐶ++ < 'ࠖ'; ᗇ += "Ἕ䈯䘐䘐"['߬' % ᐶ + '߲' % ᐶ >> 10] + ᗇ/'v')
    print(ᐶ+"	"+ᗇ)
72 chars (worse!)

int ᗇ,ᐶ;
for (;ᐶ < 55; ᗇ += "Ἕ䈯䘢"[ᐶ++>18?2:ᐶ/14] + ᗇ/'v')
    print('ߠ'+ᐶ+"	"+ᗇ)
66 chars

Smaller!

16 71 crange
{
  save-c 2000 +
  "     " push-b new-line
  4 extract-array

  # (Y / 35 * 1024) + 8864
  push-c 35 / 1024 * 8864 +

  # Y > 28 ? last : 0
  push-c 28 gt *

  # x += y-cond
  push-b +

  # x += 7904
  7904 +

  # x += x / 118
  dup 118 / + pop-b
} map

unwords map1
49 chars

16 71 crange

m:
  save-c 2000 +
  "     " push-b new-line
  4 extract-array
  unwords

  # (Y / 35 * 1024) + 8864
  push-c 35 / 1024 * 8864 +

  # Y > 28 ? last : 0
  push-c 28 gt *

  # x += y-cond
  push-b +

  # x += 7904
  7904 +

  # x += x / 118
  dup 118 / + pop-b
46 chars

16 71 crange
{
  save-c
  1000 double +
  "\x09" push-b new-line

  1000
  # Y > 34 ? 1000 : 0
  34 push-c lt *
  # Y += 8900
  8900 +

  # Y > 28 ? last : 0
  28 push-c lt *
  # x += 7900
  7900 +

  # x += y-cond
  push-b +

  # x += x / 118
  dup 118 / + pop-b
} each
42 chars

16 71 crange

m:
  1000 double + show
  9 push-b show new-line

  1000
  # Y > 34 ? 1000 : 0
  @2 34 gt inc *

  # Y += 7900
  7900 +

  # Y > 28 ? last : 0
  @5 28 gt *

  # x += 7900
  @5 +

  # x += y-cond
  push-b +

  # x += x / 118
  dup 118 / +
  pop-b
39 chars

16 71 crange
empty-list  7900 + 13 *
empty-list 16800 +  6 * +
empty-list 17800 + 36 * +
zip

m:
  head
  1000 double +
  show
  9
  push-b show
  push-b @5 last +
  dup 118 / +
  pop-b
  new-line
49 chars (worse!)

 79 itemize 13 *
168 itemize  6 * +
178 itemize 36 * +

m:
  pop-c
  counter 2015 + show
  9
  push-b show
  new-line

  push-b
  push-c 100 *
  +
  dup 118 / +
  pop-b
41 chars (previous best: 39)

"\x4f\xa8\xb2"
"\x1a\x0c\x48" half m1
compress

m:
  pop-c
  counter 2015 + show
  9
  push-b show
  new-line

  push-b
  push-c 100 *
  +
  dup 118 / +
  pop-b
34 chars

"\x4f\xa8\xb2\x07\x1a\x0c\x48" half m1
compress

m:
  pop-c
  counter 2015 + show
  9
  push-b show
  new-line

  push-b
  push-c 100 *
  +
  dup 118 / +
  pop-b
33 chars (half!)

Questions?

ci@iversenit.dk