package Ġday 2 Ċ Ċ class ĠComputer ( val Ġprogram : ĠArray < Int >) Ġ{ ĊĠ Ġprivate Ġvar Ġpointer : ĠInt Ġ= Ġ 0 ĊĊĠ Ġfun Ġexecute () Ġ{ ĊĠĠĠ Ġwhile Ġ( pointer Ġ< Ġprogram . size ) Ġ{ ĊĠĠĠĠĠ Ġwhen Ġ( program [ pointer ]) Ġ{ ĊĠĠĠĠĠĠĠĠ 1 Ġ-> Ġ{ ĊĠĠĠĠĠĠĠĠĠ Ġadd () ĊĠĠĠĠĠĠĠĠĠ Ġpointer Ġ+= Ġ 4 ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠ 2 Ġ-> Ġ{ ĊĠĠĠĠĠĠĠĠĠ Ġmult () ĊĠĠĠĠĠĠĠĠĠ Ġpointer Ġ+= Ġ 4 ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠ 9 9 Ġ-> Ġpointer Ġ= Ġprogram . size ĊĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĠ Ġ} ĊĊĠ Ġoverride Ġfun ĠtoString (): ĠString Ġ{ ĊĠĠĠ Ġreturn Ġprogram . join ToString (" Ġ") ĊĠ Ġ} ĊĊĠ Ġprivate Ġfun Ġadd () Ġ{ ĊĠĠĠ Ġval Ġop 1 Ġ= Ġprogram [ program [ pointer Ġ+ Ġ 1 ]] ĊĠĠĠ Ġval Ġop 2 Ġ= Ġprogram [ program [ pointer Ġ+ Ġ 2 ]] ĊĠĠĠ Ġval Ġloc Ġ= Ġprogram [ pointer Ġ+ Ġ 3 ] ĊĠĠĠ Ġprogram [ loc ] Ġ= Ġop 1 Ġ+ Ġop 2 ĊĠ Ġ} ĊĊĠ Ġprivate Ġfun Ġmult () Ġ{ ĊĠĠĠ Ġval Ġop 1 Ġ= Ġprogram [ program [ pointer Ġ+ Ġ 1 ]] ĊĠĠĠ Ġval Ġop 2 Ġ= Ġprogram [ program [ pointer Ġ+ Ġ 2 ]] ĊĠĠĠ Ġval Ġloc Ġ= Ġprogram [ pointer Ġ+ Ġ 3 ] ĊĠĠĠ Ġprogram [ loc ] Ġ= Ġop 1 Ġ* Ġop 2 ĊĠ Ġ} Ċ } Ċ Ċ fun Ġcopy Of Program (): ĠArray < Int > Ġ{ ĊĠ Ġreturn ĠarrayOf ( 1 , Ġ 0 , Ġ 0 , Ġ 3 , Ġ 1 , Ġ 1 , Ġ 2 , Ġ 3 , Ġ 1 , Ġ 3 , Ġ 4 , Ġ 3 , Ġ 1 , Ġ 5 , Ġ 0 , Ġ 3 , Ġ 2 , Ġ 1 , Ġ 1 0 , Ġ 1 9 , Ġ 1 , Ġ 6 , Ġ 1 9 , Ġ 2 3 , Ġ 2 , Ġ 2 3 , Ġ 6 , Ġ 2 7 , Ġ 2 , Ġ 6 , Ġ 2 7 , Ġ 3 1 , Ġ 2 , Ġ 1 3 , Ġ 3 1 , Ġ 3 5 , Ġ 1 , Ġ 1 0 , Ġ 3 5 , Ġ 3 9 , Ġ 2 , Ġ 3 9 , Ġ 1 3 , Ġ 4 3 , Ġ 1 , Ġ 4 3 , Ġ 1 3 , Ġ 4 7 , Ġ 1 , Ġ 6 , Ġ 4 7 , Ġ 5 1 , Ġ 1 , Ġ 1 0 , Ġ 5 1 , Ġ 5 5 , Ġ 2 , Ġ 5 5 , Ġ 6 , Ġ 5 9 , Ġ 1 , Ġ 5 , Ġ 5 9 , Ġ 6 3 , Ġ 2 , Ġ 9 , Ġ 6 3 , Ġ 6 7 , Ġ 1 , Ġ 6 , Ġ 6 7 , Ġ 7 1 , Ġ 2 , Ġ 9 , Ġ 7 1 , Ġ 7 5 , Ġ 1 , Ġ 6 , Ġ 7 5 , Ġ 7 9 , Ġ 2 , Ġ 7 9 , Ġ 1 3 , Ġ 8 3 , Ġ 1 , Ġ 8 3 , Ġ 1 0 , Ġ 8 7 , Ġ 1 , Ġ 1 3 , Ġ 8 7 , Ġ 9 1 , Ġ 1 , Ġ 9 1 , Ġ 1 0 , Ġ 9 5 , Ġ 2 , Ġ 9 , Ġ 9 5 , Ġ 9 9 , Ġ 1 , Ġ 5 , Ġ 9 9 , Ġ 1 0 3 , Ġ 2 , Ġ 1 0 , Ġ 1 0 3 , Ġ 1 0 7 , Ġ 1 , Ġ 1 0 7 , Ġ 2 , Ġ 1 1 1 , Ġ 1 , Ġ 1 1 1 , Ġ 5 , Ġ 0 , Ġ 9 9 , Ġ 2 , Ġ 1 4 , Ġ 0 , Ġ 0 ) Ċ } Ċ Ċ fun Ġmain ( args : ĠArray < String >) Ġ{ ĊĠ Ġfor Ġ( no un Ġin Ġ 0 .. 9 9 ) Ġ{ ĊĠĠĠ Ġprint ('* ') ĊĠĠĠ Ġfor Ġ( verb Ġin Ġ 0 .. 9 9 ) Ġ{ ĊĠĠĠĠĠ Ġprint ('.') ĊĠĠĠĠĠ Ġval Ġtest Program Ġ= Ġcopy Of Program () ĊĠĠĠĠĠ Ġtest Program [ 1 ] Ġ= Ġno un ĊĠĠĠĠĠ Ġtest Program [ 2 ] Ġ= Ġverb ĊĊĠĠĠĠĠ Ġval Ġcomp Ġ= ĠComputer ( test Program ) ĊĠĠĠĠĠ Ġcomp . execute () ĊĠĠĠĠĠ Ġif Ġ( comp . program [ 0 ] Ġ== Ġ 1 9 6 9 0 7 2 0 ) Ġ{ ĊĠĠĠĠĠĠĠ Ġprintln (" No un : Ġ$ no un ĠVerb : Ġ$ verb ") ĊĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĠ Ġ} Ċ } Ċ