Diskuse:Čtyřverší Omara Chajjáma: Porovnání verzí

Obsah stránky není podporován v jiných jazycích.
Z Wikizdrojů, volně dostupné knihovny
Smazaný obsah Přidaný obsah
Čočkin (diskuse | příspěvky)
m 700 -> 770
<source> -> <syntaxhighlight>
 
Řádek 1: Řádek 1:
Generování vnitřku obsahové tabulky skriptem v [[w:Perl|Perlu]]; šlo by to i jedním printem, ale za cenu méně přehledného zápisu.
Generování vnitřku obsahové tabulky skriptem v [[w:Perl|Perlu]]; šlo by to i jedním printem, ale za cenu méně přehledného zápisu.
<source lang="perl">
<syntaxhighlight lang="perl">
for ($i=1; $i<=770; $i++) {
for ($i=1; $i<=770; $i++) {
print "|" if $i % 10 != 1; # všechny buňky kromě první začínají dvěma místo jedním svislítkem
print "|" if $i % 10 != 1; # všechny buňky kromě první začínají dvěma místo jedním svislítkem
Řádek 6: Řádek 6:
print "\n|-\n" unless $i % 10; # konec řádku a wikisyntaxe nového řádku tabulky po poslední buňce
print "\n|-\n" unless $i % 10; # konec řádku a wikisyntaxe nového řádku tabulky po poslední buňce
}
}
</syntaxhighlight>
</source>

Aktuální verze z 20. 4. 2020, 18:07

Generování vnitřku obsahové tabulky skriptem v Perlu; šlo by to i jedním printem, ale za cenu méně přehledného zápisu.

for ($i=1; $i<=770; $i++) {
    print "|" if $i % 10 != 1; # všechny buňky kromě první začínají dvěma místo jedním svislítkem
    print "| [[/$i.|$i.]] ";
    print "\n|-\n" unless $i % 10; # konec řádku a wikisyntaxe nového řádku tabulky po poslední buňce
}