File: file.impl

package info (click to toggle)
gtksourceview4 4.0.3-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 15,840 kB
  • sloc: ansic: 49,715; sh: 4,917; xml: 1,302; makefile: 1,010; python: 230; perl: 52; yacc: 45; cobol: 20; objc: 19; sed: 16; fortran: 14; cpp: 8; ml: 3
file content (11 lines) | stat: -rw-r--r-- 269 bytes parent folder | download | duplicates (16) 
1
2
3
4
5
6
7
8
9
10
11
 
-- Opal test
IMPLEMENTATION LeapYear

IMPORT Nat COMPLETELY

DEF leapYear(year) ==
  IF (year % ("400"!) = 0) THEN true
  IF (year % ("400"!) |= 0) and (year % 100 = 0) THEN false
  IF (year % 100 |= 0) and (year % 4 = 0) THEN true
  IF (year % 4 |= 0) THEN false
  FI