)clear
CLEAR WS
a←20?100
b←15?100
a
77 7 19 54 24 32 84 40 5 95 97 76 82 92 63 26 10 98 21 50
b
38 80 99 90 26 30 74 50 85 81 47 76 93 95 88
a∘.=b
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 1 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 1 0 0 0 0 0 0 0
cmp←{(∨/[1] ⍺∘.= ⍵) / ⍵}
a cmp b
26 50 76 95
b cmp a
95 76 26 50
)save
NOT SAVED: THIS WS IS CLEAR WS
)wsid test
WAS CLEAR WS
)save
2016-05-25 22:33:41 (GMT-4) test
cmp←{{⍵[⍋⍵]} (∨/[1] ⍺∘.= ⍵) / ⍵}
)save
2016-05-25 22:34:23 (GMT-4) test
a cmp b
====================================================
SEGMENTATION FAULT
----------------------------------------
-- Stack trace at main.cc:63
----------------------------------------
0x7fc41397d9f0
0x4495e7
========================================
====================================================
Goodbye.
[xtian@fc-23:/home/xtian] $ apl
______ _ __ __ __ ___ ____ __
/ ____// | / // / / / / | / __ \ / /
/ / __ / |/ // / / / / /| | / /_/ // /
/ /_/ // /| // /_/ / / ___ | / ____// /___
\____//_/ |_/ \____/ /_/ |_|/_/ /_____/
Welcome to GNU APL version 1.5 / 731
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.
SAVED 2016-05-17 21:09:56 (GMT-4)
)load test
SAVED 2016-05-25 22:34:23 (GMT-4)
a cmp b
26 50 76 95
b cmp a
26 50 76 95
)off
Goodbye.
[xtian@fc-23:/home/xtian] $
