Problema: 3225

Author: lrlucena

categorias/adhoc.md

@@ -1,4 +1,4 @@
-# Ad-Hoc (256 / 892)
+# Ad-Hoc (257 / 892)
 
 
 
@@ -222,6 +222,7 @@
 - [x]  [3175](https://www.beecrowd.com.br/repository/UOJ_3175.html) - [Os Presentes Do Noel](https://github.com/potigol/beecrowd/blob/master/src/3100/3175.poti)
 - [x]  [3188](https://www.beecrowd.com.br/repository/UOJ_3188.html) - [Phone List](https://github.com/potigol/beecrowd/blob/master/src/3100/3188.poti)
 - [x]  [3205](https://www.beecrowd.com.br/repository/UOJ_3205.html) - [Nasty Hacks](https://github.com/potigol/beecrowd/blob/master/src/3200/3205.poti)
+- [x]  [3225](https://www.beecrowd.com.br/repository/UOJ_3225.html) - [Ordenação dos Pães](https://github.com/potigol/beecrowd/blob/master/src/3200/3225.poti)
 - [x]  [3227](https://www.beecrowd.com.br/repository/UOJ_3227.html) - [Doorman](https://github.com/potigol/beecrowd/blob/master/src/3200/3227.poti)
 - [x]  [3263](https://www.beecrowd.com.br/repository/UOJ_3263.html) - [Apague Com Segurança](https://github.com/potigol/beecrowd/blob/master/src/3200/3263.poti)
 - [x]  [3278](https://www.beecrowd.com.br/repository/UOJ_3278.html) - [Passageiros de Trem](https://github.com/potigol/beecrowd/blob/master/src/3200/3278.poti)
@@ -763,7 +764,6 @@
 - [ ]  [3212](https://www.beecrowd.com.br/repository/UOJ_3212.html) - Decomposição do Colar
 - [ ]  [3219](https://www.beecrowd.com.br/repository/UOJ_3219.html) - Gokigen Naname
 - [ ]  [3222](https://www.beecrowd.com.br/repository/UOJ_3222.html) - Cifra Playfair
-- [ ]  [3225](https://www.beecrowd.com.br/repository/UOJ_3225.html) - Ordenação dos Pães
 - [ ]  [3226](https://www.beecrowd.com.br/repository/UOJ_3226.html) - Seleção de Biscoito
 - [ ]  [3228](https://www.beecrowd.com.br/repository/UOJ_3228.html) - Eco-driving
 - [ ]  [3240](https://www.beecrowd.com.br/repository/UOJ_3240.html) - Doodling

src/3200/3225.poti

@@ -0,0 +1,20 @@
+n = leia_inteiro
+a, c = leia_inteiros(" ").mutavel
+var b := Lista(n, 0).mutável
+
+para i de 1 até n faça
+  b[a[i]] := c[i]
+fim
+
+var visto := Lista(n, falso).mutável
+var trocas := n
+para i de 1 até n se não visto[i] faça
+  trocas := trocas - 1
+  var j := i
+  enquanto não visto[j] faça
+    visto[j] := verdadeiro
+    j := b[j]
+  fim
+fim
+
+escreva (se trocas mod 2 == 0 então "Possible" senão "Impossible" fim)

src/3200/README.md

@@ -1,4 +1,4 @@
-# Problemas 3200 (24%)
+# Problemas 3200 (26%)
 
 - [ ]  [3200](https://www.beecrowd.com.br/repository/UOJ_3200.html) - Card Trick *Ad-Hoc*
 - [ ]  [3201](https://www.beecrowd.com.br/repository/UOJ_3201.html) - Traveling Salesman *Estruturas e Bibliotecas*
@@ -25,7 +25,7 @@
 - [ ]  [3222](https://www.beecrowd.com.br/repository/UOJ_3222.html) - Cifra Playfair *Ad-Hoc*
 - [ ]  [3223](https://www.beecrowd.com.br/repository/UOJ_3223.html) - Permutações de Código *Matemática*
 - [x]  [3224](https://www.beecrowd.com.br/repository/UOJ_3224.html) - [Aaah!](https://github.com/potigol/beecrowd/blob/master/src/3200/3224.poti) *Iniciante*
-- [ ]  [3225](https://www.beecrowd.com.br/repository/UOJ_3225.html) - Ordenação dos Pães *Ad-Hoc*
+- [x]  [3225](https://www.beecrowd.com.br/repository/UOJ_3225.html) - [Ordenação dos Pães](https://github.com/potigol/beecrowd/blob/master/src/3200/3225.poti) *Ad-Hoc*
 - [ ]  [3226](https://www.beecrowd.com.br/repository/UOJ_3226.html) - Seleção de Biscoito *Ad-Hoc*
 - [x]  [3227](https://www.beecrowd.com.br/repository/UOJ_3227.html) - [Doorman](https://github.com/potigol/beecrowd/blob/master/src/3200/3227.poti) *Ad-Hoc*
 - [ ]  [3228](https://www.beecrowd.com.br/repository/UOJ_3228.html) - Eco-driving *Ad-Hoc*

src/3400/3444.poti

@@ -6,18 +6,20 @@ var p, h := BigInt(a[2]) - 1 , BigInt(a[3]) - 1
 
 w = para k de n até 1 passo -1 gere
   c = pot2(k - 1, h) <= -1
-  se c então h := pot2(k, h) fim
+  se c então h := pot2(k, h) fim 
   c
 fim
 
 V, F = verdadeiro, falso
-ans = para k de n até 1 passo -1 gere
+saida = para k de n até 1 passo -1 gere
   pk1 = pot2(k - 1, p)
-  escolha (w[k], pk1 >= 0)
-    caso (V, V) => p := pk1          'L'
-    caso (F, F) => p := -(pk1 + 1)   'L'
-    caso (V, F) => p := pot2(k, p)   'R'
-    caso (F, V) =>                   'R'
+  p := escolha (w[k], pk1 >= 0)
+    caso (V, V) => pk1           # L
+    caso (F, F) => -(pk1 + 1)    # L
+    caso (V, F) => pot2(k, p)    # R
+    caso (F, V) => p             # R
   fim
-fim
-escreva ans.junte("")
+  se w[k] == (pk1 >= 0) então 'L' senão 'R' fim
+fim.junte("")
+
+escreva saida