Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
#######
#
# E-scripts on APL.
#
# Note 1: use the eev command (defined in eev.el) and the
# ee alias (in my .zshrc) to execute parts of this file.
# Executing this file as a whole makes no sense.
#
# Note 2: be VERY careful and make sure you understand what
# you're doing.
#
# Note 3: If you use a shell other than zsh things like |&
# and the for loops may not work.
#
# Note 4: I always run as root.
#
# Note 5: some parts are too old and don't work anymore. Some
# never worked.
#
# Note 6: the definitions for the find-xxxfile commands are on my
# .emacs.
#
# Note 7: if you see a strange command check my .zshrc -- it may
# be defined there as a function or an alias.
#
# Note 8: the sections without dates are always older than the
# sections with dates.
#
# This file is at <http://angg.twu.net/e/apl.e>
#           or at <http://angg.twu.net/e/apl.e.html>.
#        See also <http://angg.twu.net/emacs.html>,
#                 <http://angg.twu.net/.emacs[.html]>,
#                 <http://angg.twu.net/.zshrc[.html]>,
#                 <http://angg.twu.net/escripts.html>,
#             and <http://angg.twu.net/>.
#
#######




# «.apl-chars»		(to "apl-chars")
# «.J»			(to "J")
# «.learning-J»		(to "learning-J")
# «.J-primer»		(to "J-primer")
# «.Kx»			(to "Kx")
# «.J-plotting»		(to "J-plotting")
# «.merge-overlapping»	(to "merge-overlapping")



http://www.google.com.br/url?sa=t&source=web&cd=3&ved=0CCcQFjAC&url=http%3A%2F%2Fwww.emacswiki.org%2Femacs-en%2FAplInDebian&ei=dnDaTYHoLcndgQfAkJFX&usg=AFQjCNF2LXQAK0cuJkPXP5KcHWnBP17CDw

http://web.student.tuwien.ac.at/~e0225855/unicapl/unicapl.html
http://www.emacswiki.org/emacs-en/AplInDebian
http://lambda-the-ultimate.org/node/4271
ftp://rtfm.mit.edu/pub/usenet-by-group/comp.lang.apl/APL_language_FAQ
http://www.thefreecountry.com/compilers/apl.shtml

apti aplus-fsf-dev



# (find-status   "aplus-fsf-dev")
# (find-vldifile "aplus-fsf-dev.list")
# (find-udfile   "aplus-fsf-dev/")
# (find-status   "aplus-fsf-doc")
# (find-vldifile "aplus-fsf-doc.list")
# (find-udfile   "aplus-fsf-doc/")
# (find-status   "aplus-fsf-el")
# (find-vldifile "aplus-fsf-el.list")
# (find-udfile   "aplus-fsf-el/")
# (find-status   "aplus-fsf")
# (find-vldifile "aplus-fsf.list")
# (find-udfile   "aplus-fsf/")




#####
#
# APL chars
# 2012nov20
#
#####

# «apl-chars» (to ".apl-chars")
# http://www.emacswiki.org/emacs-en/AplInDebian#toc7
# http://stud4.tuwien.ac.at/~e0225855/unicapl/apl.el
# http://www.emacswiki.org/emacs/inferior-apl.el
# http://www.emacswiki.org/emacs/download/inferior-apl.el

# (find-zsh "dmissing apl.el")




#####
#
# J
# 2011oct25
#
#####

# «J»  (to ".J")
# http://en.wikipedia.org/wiki/J_(programming_language)
# http://www.jsoftware.com/help/primer/contents.htm
# http://www.jsoftware.com/help/primer/get_started.htm
# http://www.jsoftware.com/stable.htm
# http://www.jsoftware.com/download/j701a_linux32.sh
# http://www.jsoftware.com/download/j701_b_source.tar.gz
# http://www.jsoftware.com/source.htm
# http://www.jsoftware.com/jwiki/Interfaces/GTK
# http://www.jsoftware.com/jwiki/Guides/Gtk%20IDE
# http://www.jsoftware.com/jwiki/System/Installation/J701/Gtk

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd $S/http/www.jsoftware.com/download/
rm -Rv ~/usrc/j/
mkdir  ~/usrc/j/
sh j701a_linux32.sh -install ~/usrc/j/

# (find-fline   "~/usrc/j/j701/")
# (code-c-d "J" "~/usrc/j/j701/")
# (find-Jfile "")
# (find-Jfile "bin/")
# (find-Jsh "find * | sort")
# (find-Jfile "addons/docs/")
# (find-Jfile "addons/docs/gtk/tutorial/")

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd ~/usrc/j/j701/bin/
laf

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -Rv ~/usrc/jgplsrc/
tar -C ~/usrc/ -xvzf \
  $S/http/www.jsoftware.com/download/j701_b_source.tar.gz
cd     ~/usrc/jgplsrc/

./bin/build_libj   |& tee oblj

# (find-Jsrcfile "bin/build_libj")
# (find-Jsrcfile "bin/")
# (find-Jsrcfile "make.txt")


# (code-c-d "Jsrc" "~/usrc/jgplsrc/")
# (find-Jsrcfile "")
# (find-Jsrcfile "docs/")
# (find-Jsrcfile "docs/ioj/")
# (find-Jsrcfile "docs/readme.txt")
# (find-Jsrcfile "test/")

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd ~/usrc/j/j701/bin/
laf
./jgtk
install'gtkide'


./jconsole 
2 + 3
a =. 2 2 $ 1 2 3 4
b =. 2 2 $ 5 6 7 8
a
b
a * b
a +/ . * b

./jconsole gtkide



* (eepitch-J)
* (eepitch-kill)
* (eepitch-J)
install'doc/help'
install'doccc/help'

2 + 3
+/ "."0 ": !100x
that's the sum of 

* (eepitch-J)
* (eepitch-kill)
* (eepitch-J)
]a=.5 5 $ i.25
<"0 a
<"0 a
<"1 a
10 #. 1 9 9 6


9!:6''
9!:6''

<cfa> aha
<cfa> do you have config/base.cfg in your j user dir?
<edrx> no
<edrx> I have used it really little
<cfa> do you have a user dir?
<edrx> no :-)
<cfa> here it's ~/j64-701-user/config/base.cfg 

9!:7'+++++++++|-'
<"0 +5 5 $i.25





#####
#
# Learning J
# 2011nov02
#
#####

# «learning-J»  (to ".learning-J")
# http://www.jsoftware.com/help/primer/contents.htm
# To install the add-on:
#     jgtk > Tools > Package Manager > docs/help
#   (find-Jsh "find * | sort")
#   (find-Jfile "addons/docs/")
#   (find-Jfile "addons/docs/help/")
#   (find-Jfile "addons/docs/help/learning/")
# As a single file:
#   http://www.rogerstokes.free-online.co.uk/book.zip
# (find-learningJfile "")
# (find-learningJw3m "contents.htm")
# (find-learningJw3m "01.htm")
# (find-learningJw3m "01.htm" "NB.")




#####
#
# The J Primer
# 2011nov18
#
#####

# «J-primer»  (to ".J-primer")
# (find-Jprimerfile "")
# (find-Jprimerw3m  "contents.htm")

# (find-sh0 "cp -v ~/usrc/j/j701/addons/docs/help/primer/contents.htm /tmp/o")
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
bigstr = readfile "/tmp/o"
for _,li in ipairs(splitlines(bigstr)) do
  if li == "<br>" then print() else
    h, t = li:match '<a href="(.*)">(.*)</a><br>'
    if h then printf("# (find-Jprimerw3m %q %q)\n", h, t) end
  end
end

# (find-Jprimerw3m "start_here.htm" "Start here")
# (find-Jprimerw3m "why_j.htm" "Why J")
# (find-Jprimerw3m "purpose.htm" "Purpose of this book")
# (find-Jprimerw3m "your_background.htm" "Your background")
# (find-Jprimerw3m "how_to_use.htm" "How to use this book")
# (find-Jprimerw3m "get_started.htm" "Get started")
# (find-Jprimerw3m "experiment.htm" "Experiment")
# (find-Jprimerw3m "standard_profile.htm" "Standard profile")
# (find-Jprimerw3m "terminology.htm" "Terminology")
# (find-Jprimerw3m "alphabet.htm" "Alphabet")
# (find-Jprimerw3m "word.htm" "Word")
# (find-Jprimerw3m "sentence.htm" "Sentence")
# (find-Jprimerw3m "verb.htm" "Verb")
# (find-Jprimerw3m "noun.htm" "Noun")
# (find-Jprimerw3m "number.htm" "Number")
# (find-Jprimerw3m "negative_number.htm" "Negative number")
# (find-Jprimerw3m "primitive.htm" "Primitive")
# (find-Jprimerw3m "name.htm" "Name")
# (find-Jprimerw3m "comment.htm" "Comment")
# (find-Jprimerw3m "error.htm" "Error")
# (find-Jprimerw3m "ambivalence.htm" "Ambivalence")
# (find-Jprimerw3m "dyad.htm" "Dyad")
# (find-Jprimerw3m "monad.htm" "Monad")
# (find-Jprimerw3m "vocabulary.htm" "Vocabulary")
# (find-Jprimerw3m "checkpoint_a.htm" "Checkpoint A")
#
# (find-Jprimerw3m "numeric_constant.htm" "Numeric constant")
# (find-Jprimerw3m "string.htm" "String")
# (find-Jprimerw3m "word_formation.htm" "Word formation")
# (find-Jprimerw3m "space.htm" "Space")
# (find-Jprimerw3m "precedence.htm" "Precedence")
# (find-Jprimerw3m "parentheses.htm" "Parentheses")
# (find-Jprimerw3m "order_of_eval.htm" "Order of evaluation")
# (find-Jprimerw3m "verb_definition.htm" "Verb definition")
# (find-Jprimerw3m "monad_dyad_def.htm" "Monad/dyad defined")
# (find-Jprimerw3m "script_file.htm" "Script file")
# (find-Jprimerw3m "local.htm" "Local")
# (find-Jprimerw3m "global.htm" "Global")
# (find-Jprimerw3m "debug_global.htm" "Debug global")
# (find-Jprimerw3m "when_same.htm" "When =.and =:are alike")
# (find-Jprimerw3m "when_not_same.htm" "When they aren't")
# (find-Jprimerw3m "locale.htm" "Locale")
# (find-Jprimerw3m "z_locale.htm" "z locale")
# (find-Jprimerw3m "script_load.htm" "Script load")
# (find-Jprimerw3m "checkpoint_b.htm" "Checkpoint B")
#
# (find-Jprimerw3m "debug_verb.htm" "Debug - step through")
# (find-Jprimerw3m "debug_error.htm" "Debug - an error")
# (find-Jprimerw3m "comparative.htm" "Comparative")
# (find-Jprimerw3m "control_structure.htm" "Control structure")
# (find-Jprimerw3m "checkpoint_c.htm" "Checkpoint C")
#
# (find-Jprimerw3m "basic_list_adding.htm" "Adding lists")
# (find-Jprimerw3m "j_list_adding.htm" "J way of adding lists")
# (find-Jprimerw3m "more_primitives.htm" "A few more primitives")
# (find-Jprimerw3m "plot.htm" "Plot")
# (find-Jprimerw3m "plot_locale.htm" "Plot locale")
# (find-Jprimerw3m "print_precision.htm" "Print precision")
# (find-Jprimerw3m "inexact_numbers.htm" "Inexact numbers")
# (find-Jprimerw3m "tolerance.htm" "Tolerance")
# (find-Jprimerw3m "checkpoint_d.htm" "Checkpoint D")
#
# (find-Jprimerw3m "atom.htm" "Atom")
# (find-Jprimerw3m "list.htm" "List")
# (find-Jprimerw3m "table.htm" "Table")
# (find-Jprimerw3m "array.htm" "Array")
# (find-Jprimerw3m "axis.htm" "Axis")
# (find-Jprimerw3m "shape.htm" "Shape")
# (find-Jprimerw3m "rank.htm" "Rank")
# (find-Jprimerw3m "empty_array.htm" "Empty Array")
# (find-Jprimerw3m "single_atom_array.htm" "Single atom array")
# (find-Jprimerw3m "verb_arguments.htm" "Verb arguments")
# (find-Jprimerw3m "frame_and_cell.htm" "Frame and cell")
# (find-Jprimerw3m "item.htm" "Item")
# (find-Jprimerw3m "k_cell.htm" "k-cell")
# (find-Jprimerw3m "verb_rank.htm" "Verb rank")
# (find-Jprimerw3m "agreement.htm" "Agreement")
# (find-Jprimerw3m "rank_conjunction.htm" "Rank conjunction \"")
# (find-Jprimerw3m "result_shape.htm" "Result shape")
# (find-Jprimerw3m "checkpoint_e.htm" "Checkpoint E")
#
# (find-Jprimerw3m "adverb.htm" "Adverb")
# (find-Jprimerw3m "insert_adverb.htm" "Insert adverb")
# (find-Jprimerw3m "table_adverb.htm" "Table adverb")
# (find-Jprimerw3m "conjunction.htm" "Conjunction")
# (find-Jprimerw3m "order_ex_adverbs_conjunc.htm" "Order of execution")
# (find-Jprimerw3m "box_monad.htm" "Box - monad &lt;")
# (find-Jprimerw3m "link_dyad.htm" "Link - dyad ;")
# (find-Jprimerw3m "open_monad.htm" "Open - monad &gt;")
# (find-Jprimerw3m "from_dyad.htm" "From - dyad {")
# (find-Jprimerw3m "from_boxed_indexes.htm" "From - boxed indexes")
# (find-Jprimerw3m "from_scattered_index.htm" "Scattered indexing")
# (find-Jprimerw3m "amend.htm" "Amend }")
# (find-Jprimerw3m "select_without_from.htm" "Selecting without from")
# (find-Jprimerw3m "cut.htm" "Cut ;.")
# (find-Jprimerw3m "each.htm" "Each")
# (find-Jprimerw3m "hook.htm" "Hook")
# (find-Jprimerw3m "fork.htm" "Fork")
# (find-Jprimerw3m "tacit_definition.htm" "Tacit definition")
# (find-Jprimerw3m "explicit_tacit_trans.htm" "Explicit-to-tacit")
# (find-Jprimerw3m "checkpoint_f.htm" "Checkpoint F")
#
# (find-Jprimerw3m "foreign.htm" "Foreign !:")
# (find-Jprimerw3m "files.htm" "Files")
# (find-Jprimerw3m "component_files.htm" "Component files")
# (find-Jprimerw3m "gui.htm" "GUI part 1")
# (find-Jprimerw3m "data_processing.htm" "Data processing")
# (find-Jprimerw3m "gui2.htm" "GUI part 2")
# (find-Jprimerw3m "where_to_go.htm" "Where next?")
# (find-Jprimerw3m "online.htm" "Online Documentation")
# (find-Jprimerw3m "dictionary.htm" "J Dictionary")
# (find-Jprimerw3m "phrases.htm" "J Phrases")
# (find-Jprimerw3m "end.htm" "end.")





#####
#
# Kx
# 2011nov02
#
#####

# «Kx»  (to ".Kx")
# http://archive.vector.org.uk/art10500700
#
#   The k binary weighs in at about 50Kb. Someone asked about the
#   interpreter source code. A frown flickered across the face of our
#   visitor from Microsoft: what could be interesting about that? "The
#   source is currently 264 lines of C," said Arthur. I thought I
#   heard a sotto voce "that's not possible." Arthur showed us how he
#   had arranged his source code in five files so that he could edit
#   any one of them without scrolling. "Hate scrolling," he mumbled.

# http://en.wikipedia.org/wiki/K_(programming_language)
# http://www.kx.com/
# http://kx.com/trialsoftware.php
# https://sites.google.com/site/iversoncollege/
# http://code.kx.com/wiki/Main_Page
# http://code.kx.com/wsvn/code
#   (root)/kx/kdb+/c/c/

https://github.com/kevinlawler/kona




#####
#
# J: plotting
# 2012jan30
#
#####

# «J-plotting»  (to ".J-plotting")
# http://0branch.com/highlight/snippets/plotting.ijs

* (eepitch-J)
* (eepitch-kill)
* (eepitch-J)
require'pacman'
'install'jpkg_pacman_'afm'
load'plot'
load'afm'

* (eepitch-J)
* (eepitch-kill)
* (eepitch-J)

NB. -- Setup ----------------------------------------------------

plotFmt=: 3 :'CONSOLEOUTPUT_jzplot_=:y' NB. make setting simpler
plotFmt 'pdf'                           NB. {'gtk','png','pdf'}
boxdraw_j_ 1                            NB. ensure ascii boxing
require'plot'

NB. -- Demo -----------------------------------------------------

coclass'plotting'                       NB. plotting namespace
sin=:1&o.
plot 1 10                               NB. linear fn plot
plot 1 100                              NB. ...larger range
plot 1 10  ; 'sin'                      NB. sine plot
plot 1 100 ; 'sin'                      NB. ...larger range
'dot' plot 1 50; 'sin'                  NB. dot plot sine
'radar' plot 1 50; 'sin'                NB. radar plot sine
'density' plot i.100                    NB. density plot [0,100)
'density' plot ?100$100                 NB. density plot random
'bar' plot i.10                         NB. bar chart [0,10)
'bar' plot ?10$10                       NB. bar chart random

NB. -------------------------------------------------------------





#####
#
# Merge overlapping ranges
# 2012feb11
#
#####

# «merge-overlapping»  (to ".merge-overlapping")

* (eepitch-J)
* (eepitch-kill)
* (eepitch-J)
NB. Merge overlapping ranges.

mix        =: {.@[ , {:@[ >. {:@]
combine    =: mix`] @. ({.@] > {:@[)
merge      =: [: (#~ ~:@{.@|:)&.|. combine/\@/:~
data       =: 7 2 $ 3 40 1 45 2 50 70 75 75 90 80 85 100 200

data
merge data

NB. http://www.jsoftware.com/help/dictionary/vocabul.htm
NB. http://www.jsoftware.com/help/dictionary/partsofspeech.htm
NB. Grammar:     http://www.jsoftware.com/help/dictionary/dict2.htm
NB. Verbs:       http://www.jsoftware.com/help/dictionary/dictb.htm
NB. Conj/adv:    http://www.jsoftware.com/help/dictionary/dictc.htm
NB. Trains:      http://www.jsoftware.com/help/dictionary/dictf.htm

NB. >. Max       http://www.jsoftware.com/help/dictionary/d021.htm
NB. $  Shape     http://www.jsoftware.com/help/dictionary/d210.htm
NB. ~  Evoke     http://www.jsoftware.com/help/dictionary/d220n.htm
NB. ~  Reflex    http://www.jsoftware.com/help/dictionary/d220v.htm
NB. ~: Nub sieve http://www.jsoftware.com/help/dictionary/d222.htm
NB. |. Reverse   http://www.jsoftware.com/help/dictionary/d231.htm
NB. |: Transpose http://www.jsoftware.com/help/dictionary/d232.htm
NB. ,  Ravel     http://www.jsoftware.com/help/dictionary/d320.htm
NB. #  Copy      http://www.jsoftware.com/help/dictionary/d400.htm
NB. #: Antibase  http://www.jsoftware.com/help/dictionary/d402.htm
NB. /  Insert    http://www.jsoftware.com/help/dictionary/d420.htm
NB. /: Sort up   http://www.jsoftware.com/help/dictionary/d422.htm
NB. \  Prefix    http://www.jsoftware.com/help/dictionary/d430.htm
NB. [  Same      http://www.jsoftware.com/help/dictionary/d500.htm
NB. ]  Same      http://www.jsoftware.com/help/dictionary/d500.htm
NB. [: Cap       http://www.jsoftware.com/help/dictionary/d502.htm
NB. {. Head      http://www.jsoftware.com/help/dictionary/d521.htm
NB. {: Tail      http://www.jsoftware.com/help/dictionary/d522.htm
NB. `  Tie       http://www.jsoftware.com/help/dictionary/d610.htm
NB. @  Atop      http://www.jsoftware.com/help/dictionary/d620.htm
NB. @. Agenda    http://www.jsoftware.com/help/dictionary/d621.htm
NB. &. Under     http://www.jsoftware.com/help/dictionary/d631.htm






consider this,


* (eepitch-J)
* (eepitch-kill)
* (eepitch-J)
  (<1),:(<2)
$((<1),:(<2))
  1;'abc';2.5;'qwerty'
$(1;'abc';2.5;'qwerty')
  2 2$1;'abc';2.5;'qwerty'
$(2 2$1;'abc';2.5;'qwerty')

+-+---+---+------+
|1|abc|2.5|qwerty|
+-+---+---+------+
+---+------+
|1  |abc   |
+---+------+
|2.5|qwerty|
+---+------+











Linux Installs
If downloaded to ~/temp , do a standard install with:
...> sh ~/temp/j701a_linux32.sh -install



# http://citeseerx.ist.psu.edu/viewdoc/download?doi=10.1.1.98.3105&rep=rep1&type=pdf
# (find-xpdfpage "~/tmp/10.1.1.98.3105.pdf")

http://www.jsoftware.com/papers/fork.htm

http://jsoftware.com/pipermail/programming/2011-November/025113.html
http://jsoftware.com/pipermail/programming/2011-November/025139.html
http://jsoftware.com/pipermail/programming/2011-November/025156.html
http://jsoftware.com/pipermail/programming/2011-November/025158.html

https://github.com/dlaurie/lua-apl





#  Local Variables:
#  coding:               raw-text-unix
#  ee-delimiter-hash:    "\n#*\n"
#  ee-delimiter-percent: "\n%*\n"
#  ee-anchor-format:     "«%s»"
#  End: