Difference between revisions of "Sandbox"

From HaskellWiki
Jump to navigation Jump to search
 
(24 intermediate revisions by 13 users not shown)
Line 1: Line 1:
  +
''Feel free to edit as you wish on this page. It is here for you to experiment with WIKI edit syntax.''
−
Sample page.
  
  +
  +
==fooling around==
  +
{{Standard class|State|module=Control.Monad.State.Lazy|module-doc=Control.Monad.State.Lazy|package=test}}
  +
  +
{| border=0 align=right cellpadding=4 cellspacing=0 style="border:1px #aaa solid"
  +
| <TT>import [http://www.haskell.org/ghc/docs/latest/html/testp/testmd.html testm]</TT>
  +
|}
  +
TADA! [http://google.com this is a link to google, surprisingly]
  +
  +
[[User:Siers|Siers]] Fri Jun 27 02:36:37 EEST 2014
  +
  +
==section==
  +
[[Sandbox#secton]]<br>
  +
[[#Links]]<br>
  +
  +
  +
  +
--[[User:Lars|Lars]] 11:14, 27 July 2009 (UTC)
  +
----
  +
<math>Insert formula here</math>[[Media:Example.ogg]][[Image:Example.jpg]]
  +
== Headline text ==
  +
''Italic text'''''Bold text'''
  +
{| border="1"
  +
|-
  +
|Pavillon || Uge || Uge
  +
|}
  +
  +
Matrix:
  +
:<math>\left[ \begin{matrix}1 & 2 \\ 3 & 4\end{matrix} \right]</math>
  +
  +
Embedded matrix:
  +
:<math>\left[ \begin{matrix}1 & 2 \\ 3 & \left[ \begin{matrix}5 & 6 \\ 7 & 8\end{matrix}\right] \end{matrix} \right]</math>
  +
  +
== Links ==
  +
  +
An [[internal]] link.
  +
  +
=== External ===
  +
http://cs.pdx.edu/
  +
:
  +
http://cs.pdx.edu/~dick/HaskellSemantics/jpf05.pdf
  +
:
  +
http://cs.pdx.edu/~dick/HaskellSemantics/Haskell98.pdf
  +
  +
Text taken from http://hpaste.org/3881: this wiki's syntax highlight at least does not garble the source, unlike hpaste's highlight.
  +
  +
An [http://www.haskell.org external link] using text instead of the raw link address.
  +
  +
<haskell>
  +
module Main where
  +
  +
import Prelude hiding (putStrLn, print)
  +
import System.IO.UTF8
  +
import Data.List (intersperse, find)
  +
  +
type Персонаж = String
  +
type Персонажи = [Персонаж]
  +
  +
едоки :: Персонажи
  +
едоки = [ "дедка", "бабка", "внучка", "жучка", "кошка", "мышка" ]
  +
  +
подходы :: [ Персонажи ]
  +
подходы = scanl позвать [] едоки
  +
where позвать тянущие подмога = подмога:тянущие
  +
  +
построились :: Персонажи -> [ (Персонаж, Персонаж) ]
  +
построились едоки = zip едоки ("репка":едоки)
  +
  +
диспозиции = map (построились.reverse) подходы
  +
  +
описать [] = "Посадил дед репку ..."
  +
описать диспозиция =
  +
unwords ["Взялись:"
  +
, concat $ intersperse ", " $ map за диспозиция
  +
, ". Тянут-потянут -- " ++ result
  +
]
  +
where
  +
за (кто,кого) = кто ++ " за " ++ винительный_падеж кого
  +
винительный_падеж ы = init ы ++ "у"
  +
result = case find ((=="мышка").fst) диспозиция of
  +
Just _ -> "вытянули репку!"
  +
Nothing -> "вытянуть не могут!"
  +
  +
main = mapM_ putStrLn $ map описать диспозиции</haskell>
  +
  +
== Section ==
  +
=== Subsection ===
  +
==== Subsubsection ====
  +
  +
huhu
  +
  +
===== Subsubsubsection =====

Revision as of 00:22, 27 June 2014

Feel free to edit as you wish on this page. It is here for you to experiment with WIKI edit syntax.

fooling around

State class (test)
import Control.Monad.State.Lazy
import testm

TADA! this is a link to google, surprisingly

Siers Fri Jun 27 02:36:37 EEST 2014

section

Sandbox#secton
#Links


--Lars 11:14, 27 July 2009 (UTC)

Media:Example.oggFile:Example.jpg

Headline text

Italic textBold text

Pavillon Uge Uge

Matrix:

Embedded matrix:

Links

An internal link.

External

http://cs.pdx.edu/

http://cs.pdx.edu/~dick/HaskellSemantics/jpf05.pdf

http://cs.pdx.edu/~dick/HaskellSemantics/Haskell98.pdf

Text taken from http://hpaste.org/3881: this wiki's syntax highlight at least does not garble the source, unlike hpaste's highlight.

An external link using text instead of the raw link address. 

module Main where

import Prelude hiding (putStrLn, print)
import System.IO.UTF8
import Data.List (intersperse, find)

type Персонаж = String
type Персонажи = [Персонаж]

едоки :: Персонажи
едоки = [ "дедка", "бабка", "внучка", "жучка", "кошка", "мышка" ]

подходы :: [ Персонажи ]
подходы = scanl позвать [] едоки
  where позвать тянущие подмога = подмога:тянущие

построились :: Персонажи -> [ (Персонаж, Персонаж) ]
построились едоки = zip едоки ("репка":едоки)

диспозиции = map (построились.reverse) подходы

описать [] = "Посадил дед репку ..."
описать диспозиция = 
  unwords ["Взялись:"
          , concat $ intersperse ", " $ map за диспозиция
          , ". Тянут-потянут -- " ++ result
          ]
  where 
    за (кто,кого) = кто ++ " за " ++ винительный_падеж кого
    винительный_падеж ы = init ы ++ "у"
    result = case find ((=="мышка").fst) диспозиция of
                  Just _  -> "вытянули репку!"
                  Nothing -> "вытянуть не могут!"

main = mapM_ putStrLn $ map описать диспозиции

Section

Subsection

Subsubsection

huhu

Subsubsubsection
Retrieved from "https://wiki.haskell.org/index.php?title=Sandbox&oldid=58377"