Kisfejű (Haskell)
=================

Kisfejűnek nevezünk egy (vezető nullákat nem tartalmazó) számsorozatot,
amelynek első eleme kisebb az utolsónál, második eleme kisebb az utolsó
előttinél s.í.t. Pontosítva:

Egy a(1), a(2), ..., a(n) számsorozat kisfejű, ha a(1) > 0, és minden i-re,
amelyre 1 <= i <=n (n div 2) (ahol div az egészosztást jelenti), a(i) <
a(n+1-i).

Példák kisfejű sorozatokra: 1 2; 4 2 5 3 5; 1 2 3 4 3 2.
Ellenpéldák: 1 1; 4 2 5 3 4; 1 2 3 3 1 0.

Írjon olyan függvényt kisfeju néven, amely kielégíti az alábbi
specifikációt:

(* kisfeju :: int -> int
   kisfeju a = b, ahol 'b' >= 2 a legkisebb olyan természetes szám,
               amelyre a 'b' alapú számrendszerben felírt 'a' szám
               kisfejű számsorozatot ad eredményül
*)

Segédfüggvényeket definiálhat.

Példák

kisfeju 4   = 5 (* mert 4_5 = 4 kisfejű, de 4_4 = 1 0, 4_3 = 1 1,
                   4_2 = 1 0 0 nem az *)

kisfeju 11  = 3 (* mert 11_3 = 1 0 2 kisfejű, de 11_2 = 1 0 1 1 nem az *)

kisfeju 145 = 7 (* mert 145_7 = 2 6 5 kisfejű, de ... *)

kisfeju 293 = 3 (* mert 293_3 = 1 0 1 2 1 2 kisfejű, de ... *)

Megjegyzés: a példákban d_r a d decimális szám r számrendszerbeli
megfelelőjét jelenti.