Diskuse:Čtyřverší Omara Chajjáma: Porovnání verzí
Smazaný obsah Přidaný obsah
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. |
||
< |
<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
}