[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Bug-apl] Power Operator (⍣) broken at svn 740 ?
|
From: |
Christian Robert |
|
Subject: |
[Bug-apl] Power Operator (⍣) broken at svn 740 ? |
|
Date: |
Sat, 11 Jun 2016 23:58:14 -0400 |
|
User-agent: |
Mozilla/5.0 (Windows NT 10.0; WOW64; rv:45.0) Gecko/20100101 Thunderbird/45.1.1 |
At svn 739:
-----------
address@hidden:/home/xtian] $ apl
______ _ __ __ __ ___ ____ __
/ ____// | / // / / / / | / __ \ / /
/ / __ / |/ // / / / / /| | / /_/ // /
/ /_/ // /| // /_/ / / ___ | / ____// /___
\____//_/ |_/ \____/ /_/ |_|/_/ /_____/
Welcome to GNU APL version 1.5 / 739
Copyright (C) 2008-2015 Dr. Jürgen Sauermann
Banner by FIGlet: www.figlet.org
This program comes with ABSOLUTELY NO WARRANTY;
for details run: apl --gpl.
This program is free software, and you are welcome to redistribute it
according to the GNU Public License (GPL) version 3 or later.
)load test
SAVED 2016-06-11 23:48:15 (GMT-4)
f←{3↓ {⍵,+/¯2↑⍵}⍣{(↑⍵)≤¯3+⍴⍺ ⊣ ⎕←('debug:') (↑⍵) ('vs') (¯3+⍴⍺)} ⊢ ⍵, 0 1}
df
┌→─────────────────────────────────────────────────────────────────────────────┐
│┌→┐ ┌→───────────────────────────────────────────────────────────────────────┐│
││f│ ↓λ←λ1 ⍵ ││
│└─┘ │λ←3↓ {⍵,+/¯2↑⍵}⍣{(↑⍵)≤¯3+⍴⍺ ⊣ ⎕←('debug:') (↑⍵) ('vs') (¯3+⍴⍺)} ⊢ ⍵, 0 1││
│ └────────────────────────────────────────────────────────────────────────┘│
└∊─────────────────────────────────────────────────────────────────────────────┘
f 26
debug: 26 vs 1
debug: 26 vs 2
debug: 26 vs 3
debug: 26 vs 4
debug: 26 vs 5
debug: 26 vs 6
debug: 26 vs 7
debug: 26 vs 8
debug: 26 vs 9
debug: 26 vs 10
debug: 26 vs 11
debug: 26 vs 12
debug: 26 vs 13
debug: 26 vs 14
debug: 26 vs 15
debug: 26 vs 16
debug: 26 vs 17
debug: 26 vs 18
debug: 26 vs 19
debug: 26 vs 20
debug: 26 vs 21
debug: 26 vs 22
debug: 26 vs 23
debug: 26 vs 24
debug: 26 vs 25
debug: 26 vs 26
1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 17711
28657 46368 75025 121393 196418
)off
Goodbye.
At svn 740:
-----------
address@hidden:/home/xtian] $ apl
______ _ __ __ __ ___ ____ __
/ ____// | / // / / / / | / __ \ / /
/ / __ / |/ // / / / / /| | / /_/ // /
/ /_/ // /| // /_/ / / ___ | / ____// /___
\____//_/ |_/ \____/ /_/ |_|/_/ /_____/
Welcome to GNU APL version 1.5 / 740
Copyright (C) 2008-2015 Dr. Jürgen Sauermann
Banner by FIGlet: www.figlet.org
This program comes with ABSOLUTELY NO WARRANTY;
for details run: apl --gpl.
This program is free software, and you are welcome to redistribute it
according to the GNU Public License (GPL) version 3 or later.
)load test
WARNING: this workspace was )SAVEd with SVN version 739
but is now being )LOADed with SVN version 740
Expect problems, in particular when the )SI was not clear.
In case of problems, please try )COPY instead of )LOAD.
SAVED 2016-06-11 23:48:15 (GMT-4)
df
┌→─────────────────────────────────────────────────────────────────────────────┐
│┌→┐ ┌→───────────────────────────────────────────────────────────────────────┐│
││f│ ↓λ←λ0 ⍵ ││
│└─┘ │λ←3↓ {⍵,+/¯2↑⍵}⍣{(↑⍵)≤¯3+⍴⍺ ⊣ ⎕←('debug:') (↑⍵) ('vs') (¯3+⍴⍺)} ⊢ ⍵, 0 1││
│ └────────────────────────────────────────────────────────────────────────┘│
└∊─────────────────────────────────────────────────────────────────────────────┘
f 26
debug: 26 vs 1
debug: 26 vs 2
debug: 26 vs 3
debug: 26 vs 4
debug: 26 vs 5
debug: 26 vs 6
debug: 26 vs 7
debug: 26 vs 8
debug: 26 vs 9
debug: 26 vs 10
debug: 26 vs 11
debug: 26 vs 12
debug: 26 vs 13
debug: 26 vs 14
debug: 26 vs 15
debug: 26 vs 16
debug: 26 vs 17
debug: 26 vs 18
debug: 26 vs 19
debug: 26 vs 20
debug: 26 vs 21
debug: 26 vs 22
debug: 26 vs 23
debug: 26 vs 24
debug: 26 vs 25
debug: 26 vs 26
debug: 26 vs 27
debug: 26 vs 28
debug: 26 vs 29
debug: 26 vs 30
debug: 26 vs 31
debug: 26 vs 32
debug: 26 vs 33
debug: 26 vs 34
debug: 26 vs 35
debug: 26 vs 36
debug: 26 vs 37
debug: 26 vs 38
debug: 26 vs 39
debug: 26 vs 40
debug: 26 vs 41
debug: 26 vs 42
debug: 26 vs 43
debug: 26 vs 44
debug: 26 vs 45
debug: 26 vs 46
debug: 26 vs 47
debug: 26 vs 48
debug: 26 vs 49
debug: 26 vs 50
debug: 26 vs 51
debug: 26 vs 52
debug: 26 vs 53
debug: 26 vs 54
debug: 26 vs 55
debug: 26 vs 56
debug: 26 vs 57
debug: 26 vs 58
debug: 26 vs 59
debug: 26 vs 60
debug: 26 vs 61
debug: 26 vs 62
debug: 26 vs 63
debug: 26 vs 64
debug: 26 vs 65
debug: 26 vs 66
debug: 26 vs 67
debug: 26 vs 68
debug: 26 vs 69
debug: 26 vs 70
debug: 26 vs 71
debug: 26 vs 72
debug: 26 vs 73
debug: 26 vs 74
debug: 26 vs 75
debug: 26 vs 76
debug: 26 vs 77
debug: 26 vs 78
debug: 26 vs 79
debug: 26 vs 80
debug: 26 vs 81
debug: 26 vs 82
debug: 26 vs 83
debug: 26 vs 84
debug: 26 vs 85
debug: 26 vs 86
debug: 26 vs 87
debug: 26 vs 88
debug: 26 vs 89
debug: 26 vs 90
debug: 26 vs 91
debug: 26 vs 92
debug: 26 vs 93
debug: 26 vs 94
debug: 26 vs 95
debug: 26 vs 96
debug: 26 vs 97
debug: 26 vs 98
debug: 26 vs 99
debug: 26 vs 100
[... and continue until WS_FULL ...]
- [Bug-apl] Power Operator (⍣) broken at svn 740 ?,
Christian Robert <=