Skip to main content

ocaml random string and word generation

Goal

I had to insert sample data in a database:

  • Users
    • username
    • enabled
  • Products
    • name
    • description
    • price
All should be random, and to "benchmark" the rendering (HTML/CSS), I must make the effort to have different text and number length. I decide to generate the sample data with OCaml.

Random Int

Generate a random integer between 1 and 1000 and return it as a string:

         let rand_price () = string_of_int (1+ (Random.int 999)) ;;        

Random Char

Generate a random lowercase character (between 'a' and 'z'). 'a' ASCII code is 97 and the 26 following letters are the 26 following numbers:

              let rand_chr () = (Char.chr (97 + (Random.int 26)));;        

Random vowel

Generate a random character until it matches a vowel. Please add a comment if you would suggest another algorithm:

              let rec rand_voy () =          let got = (rand_chr ())           in            match got with              | 'a' | 'e' | 'i' | 'o' | 'u' | 'y' ->  got              | _ -> rand_voy ();;        

Random consonant

Generate a random character until it doesnt matche a vowel. Please add a comment if you would suggest another algorithm:

         let rec rand_con () =            let got = (rand_chr ())             in              match got with                | 'a' | 'e' | 'i' | 'o' | 'u' | 'y' ->  rand_con ()               | _ -> got ;;        

Random syllable(s)

In this document, a syllable is a consonant followed by a vowel. Generate a finite number of random syllables:

         let rec rand_convoy acc syll_number () =           match syll_number with              | 0 -> acc;             | _ -> rand_convoy (acc ^ (Char.escaped (rand_con ())) ^ (Char.escaped(rand_voy()))) (syll_number - 1) ();;        
The final goal is to use all this as a "string", so we make "char" to "string" conversion at this level with the "Char.escaped" function.

Random short word

Short word: between 3 and 6 syllables.

         (* mot: entre 3 et 6 syllabes *)         let rand_word () = (rand_convoy "" (3 + (Random.int 3)) ());;        
Wel will also need a fixed length word, of 4 syllables.
           (* nom: 4 syllabes c'est tout *)         let rand_name () = rand_convoy "" 3 ();;        

Random sentence

Random sentence is a random number of random words. We will limit the number of words (to avoid bloating the database). Wel will end the sentences with a ".".

         let rec rand_sentence acc word_number () =           match word_number with              | 0 ->               (acc ^ (rand_word ()) ^ ".");             | _ -> rand_sentence (acc ^ (rand_word ()) ^ " ") (word_number - 1) ();;        

Utilities

Generate a "description", and quote a string in preparation for INSERT in the database:

         let rand_description () = rand_sentence "" (10 + (Random.int 10))  ();;         let sql_quote a_string = "'"^a_string^"'";;         let generate_insert_user () = "INSERT INTO users VALUES ("^sql_quote (rand_name ())^" ,1)" ;;         let generate_insert_product p_id  =            "INSERT INTO products VALUES ("^(string_of_int p_id)^", '"^(rand_name ())^"', '"^(rand_description ())^"', "^(rand_price ())^")";;        

SQLite filling

SQLite manipulation has already been introduced in another post.

         let db = Sqlite3.db_open "/var/www/database.db";;          Sqlite3.exec db (generate_insert_user ());;         let rec fill_users number =            match number with              | 0 -> ()             | _ ->                Sqlite3.exec db (generate_insert_user ()) ;                fill_users (number-1);                ();;                  let rec fill_products number =             match number with              | 0 -> ()             | _ ->                Sqlite3.exec db (generate_insert_product number) ;                fill_products (number-1);                ();;        

Popular posts from this blog

npm run build base-href

Using NPM to specify base-href When building an Angular application, people usually use "ng" and pass arguments to that invocation. Typically, when wanting to hard code "base-href" in "index.html", one will issue: ng build --base-href='https://ngx.rktmb.org/foo' I used to build my angular apps through Bamboo or Jenkins and they have a "npm" plugin. I got the habit to build the application with "npm run build" before deploying it. But the development team once asked me to set the "--base-href='https://ngx.rktmb.org/foo'" parameter. npm run build --base-href='https://ngx.rktmb.org/foo did not set the base href in indext.html After looking for a while, I found https://github.com/angular/angular-cli/issues/13560 where it says: You need to use −− to pass arguments to npm scripts. This did the job! The command to issue is then: npm run build -- --base-href='https://ngx.rktmb.org/foo&

Emacs Pulumi LSP

Install Pulumi Emacs Mode The source code is on https://github.com/pulumi/pulumi-lsp. At the very bottom of the page are the instructions on how to install. You Need to have make installed. $ make install emacs-client mkdir -p ./bin go build -ldflags "-X github.com/pulumi/pulumi-lsp/sdk/version.Version=v0.2.3-6-gec49054" -o ./bin -p 10 ./cmd/... go: downloading github.com/pulumi/pulumi/sdk/v3 v3.53.1 ... ... ... go install -ldflags "-X github.com/pulumi/pulumi-lsp/sdk/version.Version=v0.2.3-6-gec49054" ./cmd/... mkdir -p editors/emacs/bin cd editors/emacs && emacs -Q --batch --eval "(progn (setq package-user-dir \"$(pwd)/bin\" \ package-archives '((\"melpa\" . \"https://melpa.org/packages/\") \

emacs29 intelephense

Emacs 29 and PHP Intelephense I use to use Emacs and PHP Intelephense for PHP development. I recently upgraded to Emacs 29 and PHP Intelephense stopped working. I found a solution on Reddit Based on that, I rewrote my .emacs file to use eglot instead of lsp-mode, and this is the result. (use-package eglot :ensure t) (add-hook 'php-mode-hook 'eglot-ensure) (use-package php-mode :ensure t :mode ("\\.php\\'" . php-mode)) (add-to-list 'auto-mode-alist '("\\.php$" . php-mode)) (provide 'lang-php) (use-package company :ensure t :config (setq company-idle-delay 0.3) (global-company-mode 1) (global-set-key (kbd "M- ") 'company-complete)) (require 'eglot) (add-to-list 'eglot-server-programs '((php-mode :language-id "php") . ("intelephense" "--stdio" :initializationOptions (:licenseKey "98989898989898989898"