a program napφÜe hlßÜenφ, zda-li byl zadßn °et∞zec odpovφdajφcφho tvaru. (V²Üe uveden² zßpis znamenß, ₧e zadanΘ slovo je posloupnost libovolnΘho poΦtu ßΦek, nßsledovanΘ libovoln²m poΦtem bΘΦek)
╪eÜenφ
#!/usr/bin/perl print "Zadej n∞jak² °et∞zec \n"; $retezec = <STDIN>; print "Zadan² °et∞zec byl po₧adovanΘho tvaru \n" if ($retezec =~ /a*b*/); print "Zadan² °et∞zec nenφ po₧adovanΘho tvaru \n" unless ($retezec =~ /a*b*/); |
| [Zp∞t] | [Zm∞na k≤dovßnφ] | [Domovskß strßnka] | á[StromeΦek] |
 |
| 
| 
|