File: caseq.mac

package info (click to toggle)
maxima 5.21.1-2squeeze
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 94,928 kB
  • ctags: 43,849
  • sloc: lisp: 298,974; fortran: 14,666; perl: 14,325; tcl: 10,494; sh: 4,052; makefile: 2,975; ansic: 471; awk: 24; sed: 7
file content (25 lines) | stat: -rw-r--r-- 793 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
/*-*-Macsyma-*-*/


/*
CASEQ(<var>,'[<keys1>],<stmt1>,
            '[<keys2>],<stmt2>,
            ....,
            '[<keysn>],<stmtn>
            {,'otherwise,<code for no match>})

where the first <stmt> that has <var> as a member of the associated
<keys> is the one chosen to execute.  */


sstatus(feature,"gcook caseq")$

caseq(var,[pairs])::=
   if length(pairs)<=2 then
      block([keys:first(pairs),statement:last(pairs)],
         if keys=otherwise then buildq([var,statement],statement)
         else buildq([var,keys,statement],if member(var,'keys) then statement))
   else buildq([var,keys:first(pairs),statement:first(rest(pairs)),
                pairs:rest(rest(pairs))],
          if member(var,'keys) then statement else caseq(var,splice(pairs)))$