From b950e986561dd3718769ce6041971ee70880639f Mon Sep 17 00:00:00 2001 From: elioat Date: Fri, 19 May 2023 21:30:48 -0400 Subject: * --- apl/dyalog/MakeNormalArray.aplf | 8 ++++++++ apl/dyalog/RandomArray.aplf | 1 + apl/dyalog/roll.aplf | 1 - 3 files changed, 9 insertions(+), 1 deletion(-) create mode 100644 apl/dyalog/MakeNormalArray.aplf create mode 100644 apl/dyalog/RandomArray.aplf delete mode 100644 apl/dyalog/roll.aplf 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 -- cgit 1.4.1-2-gfad0