package kapitel_03

/**
 * Beispiel aus
 *
 * - Algorithmen und Datenstrukturen für Dummies
 *   - von Andreas Gogol-Döring und Thomas Letschert
 *   - Verlag Wiley-VCH; Oktober 2019
 *  - Kapitel 3, Daten und ihre Struktur
 *
 * @author A. Gogol-Döring, Th. Letschert
 */

object AuD_03_04_FListADT_App extends App {

  abstract class FList
  case object Nil                         extends FList
  case class Cons(head: Int, tail:FList)  extends FList

  def FList(n: Int): FList = {

    def F(x: Int): Int = if (x == 0) 1 else x * F(x-1)

    var l: FList = Nil
    for (i <- 0 to n)
      l = Cons(F(i), l)

    l
  }

  println(FList(5))
}