przypisz "lista [ame amf bme bmf]

oto lista :litera
jeśli element? :litera "qwertyuiopasdfghjklzxcvbnm
[
niech "liczba (ascii :litera) - (ascii "a ) + 1
niech "list zaglab_liste [] :liczba
wy :list
]
wy :litera
już

oto zd :liczba
niech "wynik "

powtórz długość :liczba
[

]

już

oto DT :trasa
niech "odleglosc 0
;szukamy przed rostkow 'el 'la
niech "nowatrasa []
powtórz (długość :trasa)
[
niech "el element npw :trasa
jeżeli lub [element? :el "la] [element? :el "el ]
[
niech "trasa zastąp npw :trasa []
]
[niech "nowatrasa zdanie :nowatrasa element npw :trasa]

]
niech "trasa :nowatrasa
pisz :trasa
powtórz (długość :trasa) - 1
[
niech "el element npw  :trasa
niech "el2 element npw + 1 :trasa
niech "odleglosc :odleglosc + odl :el :el2
]
 wy :odleglosc
już

oto zaglab_liste :list :ile
jeśli :ile = 1 [ wy :list stop ]
niech "list zdanie :list [[]]
niech "list zastąp 1 :list zaglab_liste element 1 :list :ile - 1
wy :list


już

oto lks :słowo
niech "list []
powtórz długość :słowo
[
niech "list zastąp npw :list (lista element npw :słowo)

]
 wy :list
już

oto desz :litera :kod
niech "nowalitera (ascii :litera) - (reszta :kod 26)
jeśli :nowalitera < (ascii "a )
[
niech "nowalitera :nowalitera + 26
]

wy znak :nowalitera

już

oto deszyfr :zaszyfr :klucz1 :klucz2
niech "slowo "
przypisz "lista []
kombinacje :zaszyfr :klucz1 :klucz2 1
wy :lista
już

oto kombinacje :slowo :kl1 :kl2 :el
 jeśli :el > długość :slowo [
 powtórz długość :lista
 [
 ;sprawdzamy czy danej nie ma juz na liscie
 jeśli element npw :lista = :slowo [stop]
 ]
 przypisz "lista zdanie :lista :slowo
 stop]



 niech "zn ascii element :el :slowo
 jeśli element? desz znak :zn :kl1 "aeyuio
 [
 niech "noweslowo :slowo
 niech "noweslowo zastąp :el :noweslowo desz znak :zn :kl1
  kombinacje :noweslowo :kl1 :kl2 :el + 1
 ]
 jeśli element? desz znak :zn :kl2 "qwrtpsdfghjklzxcvbnm
 [
 niech "noweslowo :slowo
 niech "noweslowo zastąp :el :noweslowo desz znak :zn :kl2

  kombinacje :noweslowo :kl1 :kl2 :el + 1
 ]

już

oto odl :skad :dokad
niech "w1 liczba_wyspy :skad
niech "w2  liczba_wyspy :dokad

niech "tabl
[ [0 28 85 88]
  [28 0 58 61]
  [85 58 0 68]
  [88 61 68 0] ]
  wy element :w2 (element :w1 :tabl)

już

oto liczba_wyspy :wyspa
jeśli :wyspa = "Tenerife [ wy 1]
jeśli :wyspa = "Gomera  [ wy 2 ]
jeśli :wyspa = "Palma [ wy 3 ]
jeśli :wyspa = "Hierro [ wy 4 ]
wy 0

już

oto zasz :klucz :slowo
niech "wynik "
powtórz długość :slowo
[
niech "el element npw :slowo
niech "el (ascii :el) - (ascii  "a ) + 1
niech "el reszta :el długość :klucz
niech "elk element :el :klucz
niech "wynik słowo :wynik :elk
]
 wy :wynik
już

oto stworz_klucz :klucz
niech "alf "
powtórz 26
[
jeżeli element? znak ( npw + (ascii "a ) - 1) :klucz
[][
niech "alf słowo :alf znak ( npw + (ascii "a ) - 1)]
]

niech "kl2 "
powtórz długość :klucz
[
niech "el element npw :klucz
jeżeli element? :el :kl2
[

][
niech "kl2 słowo :kl2 :el
]
]

wy słowo :kl2 :alf

już

oto szyfr :klucz :list
niech "klucz stworz_klucz :klucz
niech "wynik "
powtórz długość :list
[
niech "el element npw :list
niech "wynik słowo :wynik zasz :klucz :el
]
 wy :wynik
już

oto nad :liczba
niech "wynik "
dopóki [:liczba <> 0 ]
[
niech "r reszta :liczba 2
niech "liczba int(:liczba / 2)
niech "wynik słowo :r :wynik
]
wy :wynik

już

oto dłmp :kd
niech "kd nad :kd
niech "max 0
niech "maxp 0
powtórz długość :kd
[
niech "el element npw :kd
jeżeli :el = 0 [ niech "maxp 0 ]
[
niech "maxp :maxp + 1
jeśli :maxp > :max [ niech "max :maxp ]
]
]
 wy :max
już

oto pot :m :w
niech "wynik 1
niech "mnoznik 1
powtórz :w
[
niech "wynik :wynik * :m
niech "mnoznik :mnoznik * :m

]
wy :wynik
już