about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorelioat <elioat@tilde.institute>2023-05-19 21:30:48 -0400
committerelioat <elioat@tilde.institute>2023-05-19 21:30:48 -0400
commitb950e986561dd3718769ce6041971ee70880639f (patch)
tree4d34ee292c31c6086867d7fa3cefe98c495cf9a2
parent32d4082d688cb7d818c98f0c1d375c8341b8f555 (diff)
downloadtour-b950e986561dd3718769ce6041971ee70880639f.tar.gz
*
-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