OBI 2023 - Fase 1

subsequencia.md

Subsequencia

Verifica se é uma subsequencia

subsequencia(x, y: Lista[Inteiro]): Logico =
       se y == []              entao verdadeiro
  senaose x == []              entao falso
  senaose x.cabeça == y.cabeça entao subsequencia(x.cauda, y.cauda)
                               senao subsequencia(x.cauda, y)
  fim

leia_texto                     # ignorar a primeira linha
x, y = leia_inteiros(" ")
resposta = se subsequencia(x, y) entao "S" senao "N" fim
escreva resposta

subsequencia.poti

subsequencia(x, y: Lista[Inteiro]): Lógico =
  se      y == []      então verdadeiro
  senãose x == []      então falso
  senãose x[1] == y[1] então subsequencia(x.descarte(1), y.descarte(1))
                       senão subsequencia(x.descarte(1), y)
  fim

leia_texto  # ignorar a primeira linha
x, y = leia_inteiros(" ")
resposta = se subsequencia(x, y) então "S" senão "N" fim
escreva resposta