upstream/kallithea Files · rhodecode/public/js/mode/haskell/index.html

Update minified YUI to version 2.9 built from Source....

Update minified YUI to version 2.9 built from Source. yui.2.9.js used to be a minified version of YUI 2.9 until updated it to something else and applied more aggresive minification. We stick to a clean but minified version 2.9. The license of YUI is BSD 3-clause, as described on http://yuilibrary.com/license/ . Since the minified version combines with GPLv3'd Javascript, it is only GPLv3'd compliant to distribute this Object Code version with the Corresponding Source (or offer therefor). This yui.2.9.js is built from Source this way: git clone https://github.com/yui/builder git clone https://github.com/yui/yui2 cd yui2/ git checkout hudson-yui2-2800 ln -sf JumpToPageDropDown.js src/paginator/js/JumpToPageDropdown.js # work around inconsistent casing rm -f tmp.js for m in yahoo event dom connection animation dragdrop element datasource autocomplete container event-delegate json datatable paginator; do rm -f build/$m/$m.js; ( cd src/$m && ant build deploybuild ) && sed -e 's,@VERSION@,2.9.0,g' -e 's,@BUILD@,2800,g' build/$m/$m.js >> tmp.js done java -jar ../builder/componentbuild/lib/yuicompressor/yuicompressor-2.4.4.jar tmp.js -o yui.2.9.js The source is mirrored and available on https://kallithea-scm.org/repos/mirror .

marcink - - Load All Authors

File last commit:

r4029:c9bcfe2d default


                r4131:31f510a8

rhodecode-2.2.5-gpl

Download file

             index.html
        
                    62 lines
            
             | 1.8 KiB
            
                | text/html
            
             |
                HtmlLexer
            
             / rhodecode / public / js / mode / haskell / index.html
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

      <!doctype html>

      <html>

        <head>

          <meta charset="utf-8">

          <title>CodeMirror: Haskell mode</title>

          <link rel="stylesheet" href="../../lib/codemirror.css">

          <script src="../../lib/codemirror.js"></script>

          <script src="../../addon/edit/matchbrackets.js"></script>

          <script src="haskell.js"></script>

          <link rel="stylesheet" href="../../theme/elegant.css">

          <style type="text/css">.CodeMirror {border-top: 1px solid black; border-bottom: 1px solid black;}</style>

          <link rel="stylesheet" href="../../doc/docs.css">

        </head>

        <body>

          <h1>CodeMirror: Haskell mode</h1>

      <form><textarea id="code" name="code">

      module UniquePerms (

          uniquePerms

          )

      where

      -- | Find all unique permutations of a list where there might be duplicates.

      uniquePerms :: (Eq a) => [a] -> [[a]]

      uniquePerms = permBag . makeBag

      -- | An unordered collection where duplicate values are allowed,

      -- but represented with a single value and a count.

      type Bag a = [(a, Int)]

      makeBag :: (Eq a) => [a] -> Bag a

      makeBag [] = []

      makeBag (a:as) = mix a $ makeBag as

        where

          mix a []                        = [(a,1)]

          mix a (bn@(b,n):bs) | a == b    = (b,n+1):bs

                              | otherwise = bn : mix a bs

      permBag :: Bag a -> [[a]]

      permBag [] = [[]]

      permBag bs = concatMap (\(f,cs) -> map (f:) $ permBag cs) . oneOfEach $ bs

        where

          oneOfEach [] = []

          oneOfEach (an@(a,n):bs) =

              let bs' = if n == 1 then bs else (a,n-1):bs

              in (a,bs') : mapSnd (an:) (oneOfEach bs)

          apSnd f (a,b) = (a, f b)

          mapSnd = map . apSnd

      </textarea></form>

          <script>

            var editor = CodeMirror.fromTextArea(document.getElementById("code"), {

              lineNumbers: true,

              matchBrackets: true,

              theme: "elegant"

            });

          </script>

          <p><strong>MIME types defined:</strong> <code>text/x-haskell</code>.</p>

        </body>

      </html>

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages

				<!doctype html>
				<html>
				<head>
				<meta charset="utf-8">
				<title>CodeMirror: Haskell mode</title>
				<link rel="stylesheet" href="../../lib/codemirror.css">
				<script src="../../lib/codemirror.js"></script>
				<script src="../../addon/edit/matchbrackets.js"></script>
				<script src="haskell.js"></script>
				<link rel="stylesheet" href="../../theme/elegant.css">
				<style type="text/css">.CodeMirror {border-top: 1px solid black; border-bottom: 1px solid black;}</style>
				<link rel="stylesheet" href="../../doc/docs.css">
				</head>
				<body>
				<h1>CodeMirror: Haskell mode</h1>

				<form><textarea id="code" name="code">
				module UniquePerms (
				uniquePerms
				)
				where

				-- \| Find all unique permutations of a list where there might be duplicates.
				uniquePerms :: (Eq a) => [a] -> [[a]]
				uniquePerms = permBag . makeBag

				-- \| An unordered collection where duplicate values are allowed,
				-- but represented with a single value and a count.
				type Bag a = [(a, Int)]

				makeBag :: (Eq a) => [a] -> Bag a
				makeBag [] = []
				makeBag (a:as) = mix a $ makeBag as
				where
				mix a [] = [(a,1)]
				mix a (bn@(b,n):bs) \| a == b = (b,n+1):bs
				\| otherwise = bn : mix a bs

				permBag :: Bag a -> [[a]]
				permBag [] = [[]]
				permBag bs = concatMap (\(f,cs) -> map (f:) $ permBag cs) . oneOfEach $ bs
				where
				oneOfEach [] = []
				oneOfEach (an@(a,n):bs) =
				let bs' = if n == 1 then bs else (a,n-1):bs
				in (a,bs') : mapSnd (an:) (oneOfEach bs)

				apSnd f (a,b) = (a, f b)
				mapSnd = map . apSnd
				</textarea></form>

				<script>
				var editor = CodeMirror.fromTextArea(document.getElementById("code"), {
				lineNumbers: true,
				matchBrackets: true,
				theme: "elegant"
				});
				</script>

				<p><strong>MIME types defined:</strong> <code>text/x-haskell</code>.</p>
				</body>
				</html>