repo.or.cz
/
piplib.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Test "PIP2" interface example.
[piplib.git]
/
example
/
max.ll
blob
6ece1025bf75fa7cfd2baf10ee74efae4d703dbc
1
[PIP2-like future input] Please enter:
2
- the context matrix,
3
0 3
4
- the bignum column (start at 0, -1 if no bignum),
5
-1
6
- the constraint matrix.
7
4 5
8
1 -1 0 1 0
9
1 0 -1 1 0
10
1 -1 3 -2 12
11
1 2 -1 -1 3
12
13
(if #[ -1 3]
14
(list
15
#[ 0 0]
16
#[ 0 0]
17
)
18
(if #[ -5 27]
19
(newparm 1 (div #[ 1 1] 2))
20
(list
21
#[ 1 -1 -1]
22
#[ 0 0 0]
23
)
24
(list
25
#[ 1 -4]
26
#[ 1 -5]
27
)
28
)
29
)