nst

import random

#texte d'apprentissage:
phrases ="""
Titouan court dans la forêt. Il grimpe aux arbres et creuse des trous.
Titouan explore la campagne à la recherche d'os.
Titouan croise un arbre et il grimpe.
Titouan court jusqu'à la maison pour manger le gouter.
Titouan gambade dans la prairie et tombe par terre.
Titouan s'amuse à jouer à cache-cache.

nst

#!/usr/bin/env python3
# midascii.py - Listen to ASCII strings as MIDI notes
# Nicolas Seriot - 2024-05-14
# https://gist.github.com/nst/bccc3dc2d2318cf637e65e1a03c1c9f7
# Minimal midi file thanks to @corkami
# https://github.com/corkami/pics/blob/master/binary/midi.png

def ascii_to_midi(s, filename):

    header = list(b'MThd') + [0,0,0,6,0,1,0,1,0,60] # ticks per quarter note

nst

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN"
	"http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">

<!--
    Nicolas Seriot
    2024-01-24
    https://gist.github.com/nst/56744072a0f8c298f6426d7a98803e9f
-->

nst

% A Brainfuck interpreter written in PostScript
% 2023-12-05 Nicolas Seriot https://github.com/nst/bfps
% ps2pdf bf_tiny.ps && open bf_tiny.ps

/P(+[-[<<[+[--->]-[<<<]]]>>>-]>-.---.>..>.<<<<-.<+.>>>>>.>.<<.<-.)def

/Courier findfont 12 scalefont setfont 32 740 moveto

/p 0 def/M 30000 string def/m 0 def/V{M m get}def/j P length array def 0 1 P
length 1 sub{/i exch def/c P i 1 getinterval def c([)eq{i}if c(])eq{/x exch def

nst

// Tiny Turing machine in C
// for 2-symbols Busy Beavers
// Nicolas Seriot, 2023-05-07

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

#define TAPE_LEN 50000
#define MAX_COUNT 100000000

nst

#!/usr/bin/env python3

# Nicolas Seriot
# 2023-03-31
# https://gist.github.com/nst/f9269ff6b8cadd619b9c3058868da70f

# https://seriot.ch/visualization/wang_pipes.png

import random
import cairo

nst

%!PS
 
<< /PageSize [780 600] >> setpagedevice
 
/S 5 def % step height
 
% draw one face of a brick
/f {
    /M exch def
    /C exch def

nst

<</PageSize[800 600]>>setpagedevice/S 5 def/f{/M exch def/C exch def/h exch def
/w exch def gsave M concat C setgray 0 0 w h rectfill 0 setgray 0 0 w h
rectstroke grestore}def/b{/H exch def/W exch def gsave W H 2 div 0.8[1 0 -1 1 0
S]f W S 1[1 0 0 1 0 0]f H 2 div S 1[-1 1 0 1 0 0]f grestore}def/U{/H2 exch def{
H 2 div neg H 2 div S add translate W H2 b}repeat}def/D{/H exch def{H 2 div H 2
div neg S sub translate W H b}repeat}def/L{/W2 exch def{W2 neg S neg translate
W2 H b}repeat}def/R{/W2 exch def{W S translate W2 H b}repeat}def/s{save}def/r{
restore}def/W 60 def/H 60 def 100 200 translate 2 30 L 2 30 D s 12 5 D 1 60 D 1
265 R 9 10 R 4 5 R r 2 30 R 1 30 U 1 60 U 1 60 R 1 60 U 5 10 R 1 30 R 1 60 R s 
5 20 D s 10 5 L r s 18 5 D r 10 5 R r 10 10 R 1 60 R s 20 10 D 1 60 D 10 5 R 1

nst

%!PS
200 200 translate/W 300 def/H 200 def/w 150 def/h 100 def/P{1 setgray 0 0 W H
rectfill 0 setgray 0 0 W H rectstroke 0 10 W{dup 0 moveto H lineto}for stroke}
def/A[1 0.6 -1 0.6 50 60]def/B[0 1 1 0.6 0 0]def/C[1 -0.6 0 1 -50 200]def/p{
gsave concat exec P grestore}def 1 0 0{}A p 0 1 0{}B p 1 0 0{0 0 W h rectclip}A
p 0 0 1{}C p 1 0 0{0 0 w H rectclip}A p 0 1 0{w 0 w h rectclip}B p showpage

nst

%!PS Swissquote logo in 3 lines 2022-09-28 Nicolas Seriot https://seriot.ch/
2.5 2.5 scale /l { lineto } def 1 0.4 0.2 setrgbcolor
(0.33# D636.:.=3# D@3@.D.D:,:,.,>8$!884 h) { 32 sub 5 mul } forall
arc fill setgray rectfill moveto l l l l l arc l l l arc l fill showpage