about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--apl/dyalog/MakeNormalArray.aplf8
-rw-r--r--apl/dyalog/RandomArray.aplf1
-rw-r--r--apl/dyalog/roll.aplf1
3 files changed, 9 insertions, 1 deletions
diff --git a/apl/dyalog/MakeNormalArray.aplf b/apl/dyalog/MakeNormalArray.aplf
new file mode 100644
index 0000000..18ca88b
--- /dev/null
+++ b/apl/dyalog/MakeNormalArray.aplf
@@ -0,0 +1,8 @@
+ MakeNormalArray←{
+    ⍝ ⍵ is the shape of the array
+     U1←?⍵⍴0
+     U2←?⍵⍴0
+     S←(¯2×⍟U1)*0.5
+     C←2○2×○U2
+     C×S
+ }
diff --git a/apl/dyalog/RandomArray.aplf b/apl/dyalog/RandomArray.aplf
new file mode 100644
index 0000000..a1baa78
--- /dev/null
+++ b/apl/dyalog/RandomArray.aplf
@@ -0,0 +1 @@
+ RandomArray←{?⍵⍴0}
diff --git a/apl/dyalog/roll.aplf b/apl/dyalog/roll.aplf
deleted file mode 100644
index 08a00b7..0000000
--- a/apl/dyalog/roll.aplf
+++ /dev/null
@@ -1 +0,0 @@
- roll←{?⍵} ⍝ roll a dice