)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] $

Reply via email to