Revision as of 01:01, 17 November 2022 (view source) Christophoro S (talk \| contribs) (→‎{{header\|Palo Alto Tiny BASIC}}: Added.) ← Older edit		Revision as of 16:22, 10 December 2022 (view source) Querfeld (talk \| contribs) m (even more concise) Newer edit →
Line 2,861: Or more concisely: <syntaxhighlight lang="perl">sub isleap { !(not $_[0] % ~~100) ? !~~($_[0] % ~~400)~~100 :? ~~!($_[0]~~4 %: 4400) }</syntaxhighlight> Alternatively, using functions/methods from CPAN modules:

Leap year: Difference between revisions

Leap year (view source)