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 Mustard Shama, 6 Years ago, written in Haskell.
URL http://geopaste.scratchbook.ch/view/6b3629d6
Embed
Download Paste or View Raw
  1. import Text.Regex(subRegex, mkRegex)
  2. import Text.Regex.Posix
  3.  
  4. -- convert the motif into a proper regex string
  5. motifToRegex :: String -> String
  6. motifToRegex motif = subRegex (mkRegex "\\{([A-Z])\\}") motif "[^\\1]"
  7.  
  8. -- search for a motify (as a regex string) in the sequence and return all matches
  9. -- as a list of strings
  10. searchMotif :: String -> String -> [[String]]
  11. searchMotif motif sequence = sequence =~ (motifToRegex motif) :: [[String]]
  12.  
  13. main = do
  14.     putStrLn("Enter a motif: ")
  15.     motif <- getLine
  16.     putStrLn("Enter a sequence to search: ")
  17.     sequence <- getLine
  18.     putStrLn("Converted motif: " ++ motifToRegex motif)
  19.     putStrLn("Results: ")
  20.     print(searchMotif motif sequence)

Reply to "Untitled"