French Republican calendar: Difference between revisions

=={{header|BBC BASIC}}==

Computes leap years using the "continuous" method: a year in the Republican calendar is a leap year if and only if the number of the <i>following</i> year is divisible by 4 but not by 100 unless also by 400. No attempt is made to deal with ill-formed or invalid input dates.

:

DIM gregorian$(11)

:

DEF FN_gre_leap(year%)

<b>Output for the test dates:</b>

<pre>*** French Republican ***

{{trans|BBC BASIC}}

Computes leap years using the "continuous" method: a year in the Republican calendar is a leap year if and only if the number of the <i>following</i> year is divisible by 4 but not by 100 unless also by 400. No attempt is made to deal with ill-formed or invalid input dates.

' compile with: fbc -s console

' retained the original comments for then BBC BASIC entry

Loop Until src = ""

 

{{out}}

<pre>> 1 Vendemiaire 1 > 22 September 1792 > 1 Vendemiaire 1 > 23 September 1806 > 1 Vendemiaire 15

1 Vendemiaire 14 23 September 1805</pre>

 

=={{header|Go}}==

{{trans|BBC Basic}}

A rather literal port, just for reference. Far from idiomatic Go.

 

import (

func greLeap(year int) bool {

return year%4 == 0 && (year%100 != 0 || year%400 == 0)

{{out}}

<pre>

 

A start anyway. Computations extracted to a package, a type defined for French Republican Dates, time package from standard library used. Ignores invalid input rather than panicking.

 

import (

func greLeap(year int) bool {

return year%4 == 0 && (year%100 != 0 || year%400 == 0)

 

import (

}

}

 

=={{header|Julia}}==

To stay within historical dates, will throw a domain error if the French Republican date is outside the interval the calendar was actually used.

 

const GC_FORMAT = DateFormat("d U y")

 

testrepublicancalendar()

<pre>

French Republican to Gregorian

 

=={{header|Kotlin}}==

 

import java.time.format.DateTimeFormatter

println("${frcDate.padEnd(25)} => $lds")

}

 

{{out}}

=={{header|Nim}}==

As was done in Julia version, we have limited the date range to historical dates only.

import strformat, strscans, strutils, times

 

let day = (rdate.day - 1) + (rdate.month - 1) * 30 + (rdate.year - 1) * 365 + rdate.year div 4

result = FirstRcDate + initTimeInterval(days = day)

 

proc toGregorian(rdate: string): string =

echo "From gregorian dates to French republican dates:"

for gdate in GregorianDates:

 

{{out}}

 

=={{header|Perl}}==

use DateTime;

my @month_names = qw{

2016-09-22 1 Vendémiaire 225

2017-09-22 1 Vendémiaire 226

{{Out}}

<pre>All tests successful.</pre>

 

=={{header|Phix}}==

 

{{out}}

<pre>

=={{header|Raku}}==

(formerly Perl 6)

constant @month_names = <

Vendémiaire Brumaire Frimaire Nivôse Pluviôse Ventôse

or Republican_to_Gregorian(Gregorian_to_Republican($g)) != $g;

}

{{Out}}

<pre>All tests successful.</pre>

=={{header|Sidef}}==

{{trans|Perl}}

 

var month_names = %w(

2015-09-23 1 Vendémiaire 224

2016-09-22 1 Vendémiaire 225

{{out}}

<pre>

{{libheader|Wren-seq}}

{{libheader|Wren-fmt}}

 

class FrenchRCDate {

var lds = thisDate.toLocalDate.format(fmt)

Fmt.print("$-25s => $s", frcDate, lds)

 

{{out}}