1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14

<table border='0' cellspacing='1' cellspacing='1' width=707>
  <thead>
    <a>
      <th width=44 align='center'>
        <IMG name='Image300' SRC='images/check.gif' height='22' width='44'>
      </th>
    </a>
    <a href=javascript:SortForm('Agent_Name');>
      <th  class='header'>Name</th>
    </a>
    <a href=javascript:SortForm('Description');>
      <th class='header'>Description</th>
    </a>
  </thead>

1. 1

http://<api-host>/admin/questions?utf8=✓&skill_id=71

1. 1

f = (((.) flip) . (((flip (.)) flip) . ((.) . (.))))

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7

s f g x = f x (g x)
k x y   = x
b f g x = f (g x)
c f g x = f x g
y f     = f (y f)
cond p f g x = if p x then f x else g x
fac  = y (b (cond ((==) 0) (k 1)) (b (s (*)) (c b pred)))

1. 1

append x = foldr (map (:) x) id

1. 1
2. 2

import Control.Monad.Reader
head >>= (:)

1. 1

foldr ((.) . (:)) id

1. 1
2. 2
3. 3
4. 4
5. 5

Вакансия: Программист Java
Требования:
    ....
    знание компьютерных программ: Java, pl/sql, Eclipse, Oracle Repotrs приветствуется;
    ....

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6

IF NOT SY-SUBRC IS INITIAL.
*  Do nothing
ELSE.
*  MESSAGE 'Дебитор не найден'(040) TYPE 'S' DISPLAY LIKE 'E'. 
*  Do nothing xD
ENDIF.

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9

count c l = length $ filter (c==) l
 
main = do 
        l <- getLine
        let
                f = count '(' l
                s = count ')' l
        in
        print $ f s (f==s)