mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed list length error.

Browse Source
This commit is contained in:
gheber 2016-03-16 19:10:01 -05:00
parent 87124b7468
commit 3a7e20e0e7
1 changed files with 11 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
examples/Chapter15.ipynb
View File

@ -153,7 +153,7 @@
"output_type": "stream",
"text": [
"SIMPLE-STYLE-WARNING: \n",
" #<SB-INT:SIMPLE-STYLE-WARNING \"undefined ~(~A~): ~S\" {1005353B63}>\n"
" #<SB-INT:SIMPLE-STYLE-WARNING \"undefined ~(~A~): ~S\" {1005354EC3}>\n"
]
},
{
@ -502,10 +502,7 @@
"output_type": "stream",
"text": [
"SIMPLE-STYLE-WARNING: \n",
" #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {1005C2D303}>\n",
"\n",
"SIMPLE-STYLE-WARNING: \n",
" #<SB-INT:SIMPLE-STYLE-WARNING \"undefined ~(~A~): ~S\" {1005C5C533}>\n"
" #<SB-INT:SIMPLE-STYLE-WARNING \"undefined ~(~A~): ~S\" {1005C5E003}>\n"
]
},
{
@ -526,7 +523,7 @@
" :sorc space \n",
" :trgt (loop-space space) \n",
" :degr -1\n",
" :sintr #'(lambda (dmns gmsm)\n",
" :sintr #'(lambda (dmns gmsm) (declare (ignore dmns))\n",
" (absm 0 (loop3 0 gmsm 1)))\n",
" :orgn `(total-fibration ,space))))"
]
@ -1413,10 +1410,10 @@
"output_type": "stream",
"text": [
"SIMPLE-STYLE-WARNING: \n",
" #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10070CDB13}>\n",
" #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10070CDE53}>\n",
"\n",
"SIMPLE-STYLE-WARNING: \n",
" #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10070CE1E3}>\n"
" #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10070CE523}>\n"
]
},
{
@ -1797,10 +1794,7 @@
"output_type": "stream",
"text": [
"SIMPLE-STYLE-WARNING: \n",
" #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10074A1213}>\n",
"\n",
"SIMPLE-STYLE-WARNING: \n",
" #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10074A18E3}>\n"
" #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10074B1333}>\n"
]
},
{
@ -1819,7 +1813,7 @@
" :sorc 3-left\n",
" :trgt 3-right\n",
" :degr 0\n",
" :intr #'(lambda (degr a2-a) \n",
" :intr #'(lambda (degr a2-a) (declare (ignore degr))\n",
" (with-tnpr (degra2 gnrta2 degra gnrta) a2-a\n",
" (with-tnpr (degr1 gnrt1 degr2 gnrt2) gnrta2\n",
" (cmbn (+ degr1 degr2 degra) \n",
@ -3869,14 +3863,6 @@
"collapsed": false
},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"SIMPLE-STYLE-WARNING: \n",
" #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10052B6D53}>\n"
]
},
{
"data": {
"text/plain": [
@ -3893,7 +3879,7 @@
" :sorc tw \n",
" :trgt (z-chcm) \n",
" :degr 0\n",
" :intr #'(lambda (degr gnrt)\n",
" :intr #'(lambda (degr gnrt) (declare (ignore gnrt))\n",
" (if (zerop degr)\n",
" (term-cmbn 0 1 :z-gnrt)\n",
" (zero-cmbn degr)))\n",
@ -3908,14 +3894,6 @@
"collapsed": false
},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"SIMPLE-STYLE-WARNING: \n",
" #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10053C9373}>\n"
]
},
{
"data": {
"text/plain": [
@ -3932,7 +3910,7 @@
" :sorc (z-chcm) \n",
" :trgt tw \n",
" :degr 0\n",
" :intr #'(lambda (degr gnrt)\n",
" :intr #'(lambda (degr gnrt) (declare (ignore gnrt))\n",
" (if (zerop degr)\n",
" (term-cmbn 0 1 (tnpr 0 1 0 +null-loop+))\n",
" (zero-cmbn degr)))\n",
@ -4358,32 +4336,10 @@
"collapsed": false
},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"TYPE-ERROR: \n",
" #<TYPE-ERROR expected-type: SEQUENCE datum: \n",
"----------------------------------------------------------------------{CMBN 5}\n",
"<1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-1-0 (DELT ..)][4-3-2 (DELT ..)]>>>>\n",
"<1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-1-0 (DELT ..)][4-3-2 (DELT ..)\\2]>>>>\n",
"<1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-1-0 (DELT ..)][4-3-2 (DELT ..)\\3]>>>>\n",
"<-1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-1-0 (DELT ..)][4-3-2-0 (DELT ..)][4-3-2-1 (DELT ..)]>>>>\n",
"<-1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-1-0 (DELT ..)][4-3-2-0 (DELT ..)][4-3-2-1 (DELT ..)\\2]>>>>\n",
"<-1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-1-0 (DELT ..)][4-3-2 (DELT ..)]>>>>\n",
"<-1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-1-0 (DELT ..)][4-3-2 (DELT ..)\\2]>>>>\n",
"<1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-2-0 (DELT ..)][4-3-0 (DELT ..)][4-3-2-1 (DELT ..)]>>>>\n",
"<1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-2-0 (DELT ..)][4-3-0 (DELT ..)][4-3-2-1 (DELT ..)\\2]>>>>\n",
"<-1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-2-0 (DELT ..)][4-3-1 (DELT ..)]>>>>\n",
"... ...\n",
"------------------------------------------------------------------------------\n",
">\n"
]
},
{
"data": {
"text/plain": [
"NIL"
"535"
]
},
"execution_count": 151,
@ -4392,7 +4348,7 @@
}
],
"source": [
"(length *)"
"(length (cmbn-list *))"
]
},
{