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 Ungracious Dolphin, 12 Years ago, written in Haskell.
URL http://geopaste.scratchbook.ch/view/3ccebe14
Embed
Download Paste or View Raw
  1. data Arete = Arete Integer Integer
  2. data Graphe = Graphe Integer [Arete]
  3.  
  4. insere :: [Integer] -> Integer -> [Integer]
  5. insere = insere_acc []
  6.  
  7. insere_acc :: [Integer] -> [Integer] -> Integer -> [Integer]
  8. insere_acc acc [] i = acc ++ [i]
  9. insere_acc acc (l:ls) i
  10.         | i == l = acc ++ (l:ls)
  11.         | i < l = acc ++ i:l:ls
  12.         | i > l = insere_acc (acc ++ [l]) ls i
  13.  
  14.  
  15. voisins :: Graphe -> Integer -> [Integer]
  16. voisins = voisins_rec []
  17.  
  18. voisins_rec :: [Integer] -> Graphe -> Integer -> [Integer]
  19. voisins_rec acc (Graphe _ []) _ = acc
  20. voisins_rec acc (Graphe 0 _) _ = acc
  21. voisins_rec acc (Graphe n ((Arete a b):ls)) s
  22.   | (s == a) =  voisins_rec (insere acc b) (Graphe n ls) s
  23.   | (s == b) =  voisins_rec (insere acc a) (Graphe n ls) s
  24.   | otherwise = voisins_rec acc (Graphe n ls) s
  25.  
  26. gex1 = Graphe 5 [(Arete 0 4), (Arete 4 3), (Arete 0 3), (Arete 1 3),
  27.                  (Arete 0 3), (Arete 0 3), (Arete 3 0)]
  28.  

Reply to "Untitled"