A PHP Error was encountered

Severity: 8192

Message: Function create_function() is deprecated

Filename: geshi/geshi.php

Line Number: 4698

Backtrace:

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 4698
Function: _error_handler

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 4621
Function: _optimize_regexp_list_tokens_to_string

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 1655
Function: optimize_regexp_list

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2029
Function: optimize_keyword_group

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2168
Function: build_parse_cache

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/Process.php
Line: 45
Function: parse_code

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/models/Pastes.php
Line: 517
Function: syntax

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/controllers/Main.php
Line: 693
Function: getPaste

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/index.php
Line: 315
Function: require_once

Untitled - Stikked
Stikked

Untitled

From Cobalt Lion, 12 Years ago, written in OCaml (Objective Caml).
URL http://geopaste.scratchbook.ch/view/7b1a79e3
Embed
Download Paste or View Raw
  1. type arete = Arete of (int * int);;
  2. type graphe = Graphe of (int * arete list);;
  3.  
  4. let rec insere_acc : int list -> int list -> int -> int list =
  5.   fun acc liste i -> match liste with
  6.     | [] -> acc @ [i]
  7.     | l::ls ->
  8.       if i == l then acc @ l::ls
  9.       else if i < l then acc @ i::l::ls
  10.       else insere_acc (acc @ [l]) ls i
  11. ;;
  12.  
  13. let insere = insere_acc [];;
  14.  
  15. let rec voisins_rec : int list -> graphe -> int -> int list =
  16.   fun acc g s -> match g with
  17.     | Graphe (_, []) -> acc
  18.     | Graphe (0, _) -> acc
  19.     | Graphe (n, (Arete (a, b))::ls) ->
  20.       if s == a then voisins_rec (insere acc b) (Graphe (n, ls)) s
  21.       else if s == b then voisins_rec (insere acc a) (Graphe (n, ls)) s
  22.       else voisins_rec acc (Graphe (n, ls)) s
  23. ;;
  24.  
  25. let voisins = voisins_rec [];;
  26.  
  27. let gex1 = Graphe (5, [Arete (0, 4); Arete (4, 3); Arete (0, 3);
  28.                        Arete (1, 3); Arete (0, 3); Arete (3, 0)]);;
  29.  

Reply to "Untitled"