Gro-Tsen

#! /usr/local/bin/perl -w

use strict;
use warnings;
use utf8;

my %results;
my %lists;
my @revlists;
my $nblists = 0;

Gro-Tsen

Gro-Tsen

01001	46.153482/4.932753	L'Abergement-Clémenciat
01002	46.006821/5.427596	L'Abergement-de-Varey
01004	45.958184/5.374963	Ambérieu-en-Bugey
01005	45.995555/4.914269	Ambérieux-en-Dombes
01006	45.749037/5.593317	Ambléon
01007	46.002726/5.364199	Ambronay
01008	45.937040/5.331642	Ambutrix
01009	45.784362/5.655285	Andert-et-Condon
01010	45.909606/5.795569	Anglefort
01011	46.206625/5.656232	Apremont

Gro-Tsen

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <time.h>

#ifndef M_PI
#define M_PI 3.14159265358979323846264338327950288419716939937511
#endif

#ifndef DEBUG

Gro-Tsen

#! /usr/local/bin/perl -w

# Convert a decimal number to its literal expression in English.

use strict;
use warnings;
use Getopt::Std;

my %opts;
getopts("u", \%opts);

Gro-Tsen

#! /usr/local/bin/perl -w

# Generate a graphical representation of either the Stern-Brocot or
# (with option -d) the dyadic tree on the interval [0,1].
# -- David A. Madore <http://www.madore.org/~david/> 2023-12-23
# Public Domain

use strict;
use warnings;

Gro-Tsen

-- (This is the Haskell version)
-- Define pairing and projection functions by storing values in a closure
let pairing = \x -> \y -> \f -> f x y
let proj1 = \p -> p (\x -> \y -> x)
let proj2 = \p -> p (\x -> \y -> y)
-- Conversion from and to native pairs
let fromnative = \(x,y) -> pairing x y
let tonative = \p -> p (\x -> \y -> (x,y))
let tonative_broken = \p -> (proj1 p, proj2 p)
-- This works as expected:

Gro-Tsen

graph cant {
c0101 [label="0101"];
c0104 [label="0104"];
c0101 -- c0104;
c0107 [label="0107"];
c0101 -- c0107;
c0110 [label="0110"];
c0101 -- c0110;
c0111 [label="0111"];
c0101 -- c0111;

Gro-Tsen

sudo apt-get install postgresql-13-postgis-3 postgresql-13-postgis-3-scripts
createdb admin-express
sudo -u postgres psql -d admin-express -c 'CREATE EXTENSION postgis ;'
sudo -u postgres psql -d admin-express -c 'GRANT ALL ON TABLE public.spatial_ref_sys TO david ;'
## Go to <URL: https://geoservices.ign.fr/adminexpress >
## and download ADMIN-EXPRESS_3-2__SHP_LAMB93_FXX_2023-10-16.7z to /data/FTP
cd /data/tmp
7z x /data/FTP/ADMIN-EXPRESS_3-2__SHP_LAMB93_FXX_2023-10-16.7z
cd /data/tmp/ADMIN-EXPRESS_3-2__SHP_LAMB93_FXX_2023-10-16/ADMIN-EXPRESS/1_DONNEES_LIVRAISON_2023-10-16/ADE_3-2_SHP_LAMB93_FXX
ogr2ogr -f postgresql PG:"host=localhost dbname=admin-express" REGION.shp -nlt PROMOTE_TO_MULTI

Gro-Tsen