struct (** {1 Effaçage de la mémoire des jeux de tirettes} {C Copyright Stéphane Grognet } {C IREM des Pays de la Loire - Université de Nantes } {C Laboratoire de mathématiques Jean Leray UMR 6629 CNRS } {C version 0.1} @version 0.1 @author Stéphane Grognet @since 2014, 2015 *) let init_jeux = function () -> let oc = open_out Data.adresse_archive_jeux in for i = 0 to 59 do for j = 1 to 9 do output_char oc '\x7F' ; done ; for j = 1 to 9 do output_char oc '\x40' ; done ; done ; for j = 1 to 9 do output_char oc '\x00' ; done ; for j = 1 to 9 do output_char oc '\x40' ; done ; for j = 1 to 9 do output_char oc '\x00' ; done ; output_char oc '\x00' ; output_char oc '\x0F' ; output_char oc '\x20' ; output_char oc '\x30' ; output_char oc '\x40' ; output_char oc '\x50' ; output_char oc '\x60' ; output_char oc '\x70' ; output_char oc '\x7F' ; for j = 1 to 9 do output_char oc '\x00' ; done ; output_char oc '\x7F' ; output_char oc '\x70' ; output_char oc '\x60' ; output_char oc '\x50' ; output_char oc '\x40' ; output_char oc '\x30' ; output_char oc '\x20' ; output_char oc '\x0F' ; output_char oc '\x00' ; for i = 63 to 127 do for j = 1 to 9 do output_char oc '\x7F' ; done ; for j = 1 to 9 do output_char oc '\x40' ; done ; done ; close_out_noerr oc ;; init_jeux () ;; end