math_4X_eq_4_mul_X4.pl

#! /usr/bin/perl
=pod
  Feladat:
    Melyik az a legkisebb termeszetes szam, amelyiknek
    - első jegye 4 es
    - ha ezt a szamot a szam elejerol toroljuk es a szam vegere irjuk,
      akkor at eredeti szam negyedreszet kapjuk.
   __    __
   4X == X4 * 4
=cut

# induljunk el 1-től, és amíg nincs találat keressük azt.
$i = 1;

while (1)
{
  # 4essel kezdődik a szám?
  if ($i =~ m/^(4)(\d+)$/)
  {
    # az első 4-est a végére rakom
    $j = int($2.$1);

    # megkaptam az eredeti szám 4szeresét?
    if ($i == $j * 4)
    {
      # ha a válasz igen, írassuk ki és hagyjuk abba a ciklust
      print "$i == $j * 4\n";
      last;
    }
  }

  $i++;
}