File: file.impl

package info (click to toggle)
gtksourceview5 5.18.0-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 13,780 kB
  • sloc: ansic: 71,161; xml: 1,493; javascript: 866; perl: 216; sh: 144; java: 49; php: 48; yacc: 45; ruby: 38; ml: 36; python: 33; sql: 30; makefile: 23; cobol: 20; objc: 19; lisp: 19; fortran: 14; awk: 9; cpp: 8
file content (11 lines) | stat: -rw-r--r-- 269 bytes parent folder | download | duplicates (17) 
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