/* Author: LukArToDo Created: 10.july 2018 Bugs: possible time limit exceed Description: the code shows a defense system (tracking with radar), which will hit and destroy enemy objects...or not! 😁 👉 IMPORTANT: Kotlin's compiler on SL has a bug, so it often gives output: "Compilation error" or "No output". Please ignore that and hit RUN again...and again... Thank you 😊 */ val r=7 // radius of radar var speed=0 var airCraft=10 var enemy=rand(1,airCraft) var allies=airCraft-enemy fun main(LukArToDo: Array) { var missiles=20 var speedE=(1..enemy).map{rand(1, 4)} var patternE=(1..enemy).map {(0..3).map{"RLD"[rand(0, 3)]}. joinToString("")} var positionE=(1..enemy).map {Pair(rand(-2*r,2*r),rand(-r,r))}. toMutableList() val speedA=(1..allies).map{rand (1,4)} val patternA=(1..allies).map {(0..3).map{"RLD"[rand(0,3)]}.joinToString() } val positionA=(1..allies).map { Pair(rand(-2*r,2*r),rand(-r,r))}. toMutableList() var(count,hit,miss) = arrayOf(0, 0, 0) var visibleEnemy= positionE. filter{it.first*it.first/4+ it.second *it.second<=r*r}.count() while(missiles>0 && positionE. isNotEmpty() && visibleEnemy > 0) { // show info: infoMessage(missiles,speedE, patternE,positionE,positionA,count) // display radar: radar(positionE,positionA) // hit the visible enemy : val succesHit=(0 until positionE.size).filter{positionE[it]. first*positionE[it].first/4+positionE [it].second*positionE[it].second<=r*r && "RDL"[rand(0,3)]==patternE[it][count % 4] }.take(missiles) missiles-= if(missiles >= visibleEnemy) visibleEnemy else missiles hit = succesHit.size miss = visibleEnemy - hit // position of missing enemy: positionE = positionE. filterIndexed{index,pair -> index !in succesHit}.toMutableList() patternE = patternE. filterIndexed{index,s -> index !in succesHit} speedE = speedE.filterIndexed { index, i -> index !in succesHit } println("\nSucessful hits: $hit \nMissing: $miss \n******************************\n") positionE.changePosition (speedE,patternE,count) positionA.changePosition (speedA,patternA,count) count++ visibleEnemy= positionE.filter {it.first*it.first/4+ it.second* it.second<=r*r}.count() } infoMessage(missiles,speedE, patternE,positionE,positionA,count) radar(positionE, positionA) println("\n ${if(positionE. isNotEmpty()&&positionE.filter { it.first * it.first / 4 + it.second * it.second <= r * r }.count() > 0) "Defense system is fail! Bye, bye! :(" else if(positionE.isEmpty()) "Success!!! The enemy is destroyed! :)" else "Success! The enemy is gone but not destroyed!"}") } fun infoMessage(missiles:Int,speedE: List,patternE:List,posE :MutableList>,posA: MutableList>,count: Int) { println("\nMissiles: $missiles") println("Aircraft: ${allies+posE.size}") println("Allies: $allies") println("Allies visible on radar: ${posA.filter{it.first*it.first/4+ it.second*it.second<=r*r}.count()}") println("Enemies: ${posE.size}") if(count==0){ for(i in 0 until posE.size) println(" ${i+1}. pos:${posE[i]}, s:${speedE[i]}, m:${patternE[i]}") } println("Enemies visible on radar: ${posE.filter{it.first*it. first/4+ it.second*it.second<=r*r}. count()}\n") } fun radar(posE:List>, posA:List>){ for(y in -r..r) for(x in -2*r..2*r) print(if(x==2*r)"\n" else if(x==0&&y==0)"X" else if(Pair(x,y) in posE && x*x/4+y*y<=r*r)"E" else if(Pair(x,y) in posE) "*" else if(Pair(x,y) in posA&&x*x/4+y*y<=r*r) "A" else if(Pair(x,y) in posA) "*" else if(x*x/4+y*y<=r*r)"-" else " ") } fun MutableList>. changePosition(spd: List, patt: List,c:Int) { for(j in 0 until size) { speed = spd[j] val pair = when(patt[j][c%4]){ 'R' -> Move.R.dir (this[j]) 'L' -> Move.L.dir (this[j]) else -> Move.D.dir (this[j]) } this[j] = pair } } fun rand(min:Int,max: Int) = (Math.random()*(max-min)).toInt()+min enum class Move : Direction { R { override fun dir(pos:Pair< Int,Int>) = Pair(pos.first-1*speed, pos.second) }, L { override fun dir(pos:Pair< Int,Int>) = Pair(pos.first+1*speed, pos.second) }, D { override fun dir(pos:Pair< Int,Int>) = Pair(pos.first,pos.second+1*speed) } } interface Direction{ fun dir(pos:Pair):Pair< Int,Int> }

Defend The Base