Archives funkcionálne programovanie

Hackerrank – String Compression

Hackerrank – Popis problému Celý popis zadania sa nacháza – Hackerrank. Riešenie Pozrieť implementáciu. Postup je daný v zadaní. Vytvoril som riešenie v týchto programovacích jazykoch: Scala Všetky riešenia sú dostupné aj na mojom GitHub profile. Scala

object Solution extends App {
  val line = Source.stdin.getLines().toList.head

  val subs = uniformSubstrings(line)
  val substringCompressed = subs.map(s => {
    val length = s.length
    if(length > 1) {
      s.head.toString + length
    } else {
      s.head.toString
    }
  })

  println(substringCompressed.mkString(""))


  def uniformSubstrings(s: String): List[String] = {
    if(s.length <= 0) {
      return Nil
    }
    val c = s.charAt(0)
    val substring = s.takeWhile(_ == c)
    substring :: uniformSubstrings(s.drop(substring.length))
  }
}

object Solution extends App {

val line = Source.stdin.getLines().toList.head

val subs = uniformSubstrings(line)

val substringCompressed = subs.map(s => {

val length = s.length

if(length > 1) {

s.head.toString + length

} else {

s.head.toString

}

})

println(substringCompressed.mkString(""))

def uniformSubstrings(s: String): List[String] = {

if(s.length <= 0) {

return Nil

}

val c = s.charAt(0)

val substring = s.takeWhile(_ == c)

substring :: uniformSubstrings(s.drop(substring.length))

}

Hackerrank – Missing Numbers (FP)

Hackerrank – Popis problému Celý popis zadania sa nacháza – Hackerrank. Riešenie Pozri riešenie Missing Numbers.

Hackerrank – Sequence full of colors

Hackerrank – Popis problému Celý popis zadania sa nacháza – Hackerrank. Riešenie Implementoval som rekurzívnu funkciu, ktorá berie do úvahy zadané podmienky – pozri jej implementáciu. Vytvoril som riešenie v týchto programovacích jazykoch: Scala Všetky riešenia sú dostupné aj na mojom GitHub profile. Scala

import scala.io.Source
import scala.collection.mutable.Map

object SequenceFullOfColors extends App {
  val lines = Source.stdin.getLines().toList.tail
  val results = lines.map(fullOfColors).map(_.toString.capitalize)

  println(results.mkString("\n"))

  def fullOfColors(sequence: String): Boolean = {
    val colors = Map.empty[Char, Int]
    def prefixSequences(seq: String, n: Int): Boolean = {
      val char = seq(n)
      val count = colors.getOrElse(char, 0)
      colors.put(char, count + 1)
      if(n < seq.length - 1) {
        val greenCount = colors.getOrElse('G', 0)
        val redCount = colors.getOrElse('R', 0)
        val yellowCount = colors.getOrElse('Y', 0)
        val blueCount = colors.getOrElse('B', 0)
        if((greenCount - redCount).abs <= 1 && (yellowCount - blueCount).abs <= 1) {
          return prefixSequences(seq, n + 1)
        }
        return false
      }
      true
    }

    val condition = prefixSequences(sequence, 0)
    val greenCount = colors.getOrElse('G', 0)
    val redCount = colors.getOrElse('R', 0)
    val yellowCount = colors.getOrElse('Y', 0)
    val blueCount = colors.getOrElse('B', 0)
    condition && (greenCount == redCount) && (yellowCount == blueCount)
  }
}

import scala.io.Source

import scala.collection.mutable.Map

object SequenceFullOfColors extends App {

val lines = Source.stdin.getLines().toList.tail

val results = lines.map(fullOfColors).map(_.toString.capitalize)

println(results.mkString("\n"))

def fullOfColors(sequence: String): Boolean = {

val colors = Map.empty[Char, Int]

def prefixSequences(seq: String, n: Int): Boolean = {

val char = seq(n)

val count = colors.getOrElse(char, 0)

colors.put(char, count + 1)

if(n < seq.length - 1) {

val greenCount = colors.getOrElse('G', 0)

val redCount = colors.getOrElse('R', 0)

val yellowCount = colors.getOrElse('Y', 0)

val blueCount = colors.getOrElse('B', 0)

if((greenCount - redCount).abs <= 1 && (yellowCount - blueCount).abs <= 1) {

return prefixSequences(seq, n + 1)

}

return false

}

true

}

val condition = prefixSequences(sequence, 0)

val greenCount = colors.getOrElse('G', 0)

val redCount = colors.getOrElse('R', 0)

val yellowCount = colors.getOrElse('Y', 0)

val blueCount = colors.getOrElse('B', 0)

condition && (greenCount == redCount) && (yellowCount == blueCount)

}

Hackerrank – Jumping Bunnies

Hackerrank – Popis problému Celý popis zadania sa nacháza – Hackerrank. Riešenie Vypočítaj Najmenší spoločný násobok veľkosti skokov. Vytvoril som riešenie v týchto programovacích jazykoch: Scala Všetky riešenia sú dostupné aj na mojom GitHub profile. Scala

import scala.io.Source

object JumpingBunnies extends App {
  val lines = Source.stdin.getLines().toList
  val bunnies = lines(1).split(" ").map(_.toInt)

  val commonPoint = bunnies.foldLeft(BigInt(1))(lcm(_, _))

  println(commonPoint)

  def gcd(x: BigInt, y: BigInt): BigInt = {
    if(y == 0) x else gcd(y, x % y)
  }

  def lcm(x: BigInt, y: BigInt): BigInt = {
    (x * y) / gcd(x, y)
  }
}

import scala.io.Source

object JumpingBunnies extends App {

val lines = Source.stdin.getLines().toList

val bunnies = lines(1).split(" ").map(_.toInt)

val commonPoint = bunnies.foldLeft(BigInt(1))(lcm(_, _))

println(commonPoint)

def gcd(x: BigInt, y: BigInt): BigInt = {

if(y == 0) x else gcd(y, x % y)

}

def lcm(x: BigInt, y: BigInt): BigInt = {

(x * y) / gcd(x, y)

}

Hackerrank – Super Digit

Hackerrank – Popis problému Celý popis zadania sa nacháza – Hackerrank. Riešenie Vytvoril som rekurzívnu funkciu, ktorá implementuje zadané podmienky. Vytvoril som riešenie v týchto programovacích jazykoch: Scala Všetky riešenia sú dostupné aj na mojom GitHub profile. Scala

import scala.io.Source

object SuperDigit extends App {
  val line = Source.stdin.bufferedReader().readLine()
  val nk = line.split(" ")
  val n = nk(0)
  val k = nk(1).toInt

  println(superDigit(n, k))

  def superDigit(num: String, k: Int): String = {
    if(num.length == 1) {
      return num
    } else {
      val sum: BigInt = num.foldLeft(BigInt(0))(_ + Character.digit(_, 10)) * k
      return superDigit(sum.toString, 1)
    }
  }
}

import scala.io.Source

object SuperDigit extends App {

val line = Source.stdin.bufferedReader().readLine()

val nk = line.split(" ")

val n = nk(0)

val k = nk(1).toInt

println(superDigit(n, k))

def superDigit(num: String, k: Int): String = {

if(num.length == 1) {

return num

} else {

val sum: BigInt = num.foldLeft(BigInt(0))(_ + Character.digit(_, 10)) * k

return superDigit(sum.toString, 1)

}

Hackerrank – Functions Or Not?

Hackerrank – Popis problému Celý popis zadania sa nacháza – Hackerrank. Riešenie Zisti, či pre zadanú hodnota x vráti zadaná funkcia vždy iba jeden výsledok y. Pozri definíciu funkcie. Vytvoril som riešenie v týchto programovacích jazykoch: Scala Všetky riešenia sú dostupné aj na mojom GitHub profile. Scala

import scala.io.Source

object FunctionOrNot extends App {
  val lines = Source.stdin.getLines().toList
  val tests = lines.head.toInt
  val parts = lines.tail.partition(!_.contains(" "))
  val counts = parts._1.map(_.toInt)
  val pairs = parts._2.map(_.split(" ")).map(arr => Tuple2(arr(0).toInt, arr(1).toInt))
  var start = 0
  counts.foreach {
    i => {
      val p = pairs.slice(start, start + i)
      start = start + i
      println(if(isFunction(p)) "YES" else "NO")
    }
  }

  def isFunction(rel: List[(Int, Int)]): Boolean = {
    val groupByX = rel.groupBy(_._1)
    val filteredMoreThanOne =
      groupByX.filter(p => p._2.size > 1)
    filteredMoreThanOne.forall(_._2.map(_._2).distinct == 1)
  }
}

import scala.io.Source

object FunctionOrNot extends App {

val lines = Source.stdin.getLines().toList

val tests = lines.head.toInt

val parts = lines.tail.partition(!_.contains(" "))

val counts = parts._1.map(_.toInt)

val pairs = parts._2.map(_.split(" ")).map(arr => Tuple2(arr(0).toInt, arr(1).toInt))

var start = 0

counts.foreach {

i => {

val p = pairs.slice(start, start + i)

start = start + i

println(if(isFunction(p)) "YES" else "NO")

}

def isFunction(rel: List[(Int, Int)]): Boolean = {

val groupByX = rel.groupBy(_._1)

val filteredMoreThanOne =

groupByX.filter(p => p._2.size > 1)

filteredMoreThanOne.forall(_._2.map(_._2).distinct == 1)

}

Hackerrank – String-o-Permute

Hackerrank – Popis problému Celý popis zadania sa nacháza – Hackerrank. Riešenie Pre každý zadaný riadok: rozdeľ ho postupne na páry znakov vymeň poriadie znakov v pároch znovu pospájaj všetky znaky zo všetkých párov Vytvoril som riešenie v týchto programovacích jazykoch: Scala Všetky riešenia sú dostupné aj na mojom GitHub profile. Scala

object StringOPermute extends App {
  val lines = Source.stdin.getLines().drop(1)
  val linePairs = lines.map(_.grouped(2).map(_.reverse).toList.flatten)
  println(linePairs.mkString("\n"))
}

object StringOPermute extends App {

val lines = Source.stdin.getLines().drop(1)

val linePairs = lines.map(_.grouped(2).map(_.reverse).toList.flatten)

println(linePairs.mkString("\n"))

}

Hackerrank – Area Under Curves and Volume of Revolving a Curve

Hackerrank – Popis problému Celý popis zadania sa nacháza – Hackerrank. Riešenie f je volanie funkcie s x ako je v zadaní funkcia area vypočíta plochu kruhu ( ) so stredom 0 a polomerom s hodnotou function(x) funkcia summation sa zavolá raz pre funkciu f a raz pre funkciu area Vytvoril som riešenie […]

Hackerrank – String Mingling

Hackerrank – Popis problému Celý popis zadania sa nacháza – Hackerrank. Riešenie Prechádzaj som cez jeden z reťazcov a spájal som aktuálne prehcádzané znaky. Vytvoril som riešenie v týchto programovacích jazykoch: Scala Všetky riešenia sú dostupné aj na mojom GitHub profile. Scala

import scala.io.Source

object StringMingling extends App {
  val lines = Source.stdin.getLines().toList
  val p = lines.head
  val q = lines.tail.head

  val mingled = p.indices.map(i => p(i) + "" + q(i)).mkString("")
  println(mingled)
}

import scala.io.Source

object StringMingling extends App {

val lines = Source.stdin.getLines().toList

val p = lines.head

val q = lines.tail.head

val mingled = p.indices.map(i => p(i) + "" + q(i)).mkString("")

println(mingled)

}

Hackerrank – Lambda Calculi – March 2016

Hackerrank Contest Záčastnil som sa ďalšieho kola súťaže v Hackerrank pod názvom Lambda Calculi – March 2016. Súťaž postáva zo 7 príkladov v oblasti funkcionálneho programovania. Vyrriešil som 3 zo 7 príkladov a získal za ne plný počet bodov Functions Or Not? Compute the Perimeter of a Polygon Compute the Area of a Polygon Výsledky […]

Pavol Pidanič

Dokážem na 10 prstoch napočítať do 1023

Značka: funkcionálne programovanie

Hackerrank – String Compression

Hackerrank – Missing Numbers (FP)

Hackerrank – Sequence full of colors

Hackerrank – Jumping Bunnies

Hackerrank – Super Digit

Hackerrank – Functions Or Not?

Hackerrank – String-o-Permute

Hackerrank – Area Under Curves and Volume of Revolving a Curve

Hackerrank – String Mingling

Hackerrank – Lambda Calculi – March 2016