Is it a geometric sequence or not?
Jelly, 4 bytes
Ṣ÷ƝE
Try it online!
Thanks to fireflame241 for pointing out a mistake
How it works
Ṣ÷ƝE - Main monadic link, takes an array as input
- e.g A = [2, 8, 4] or A = [2, 6, 14]
Ṣ - Sort [2, 4, 8] [2, 6, 14]
Ɲ - Over overlapping pairs [x, y]... [[2, 4], [4, 8]] [[2, 6], [6, 14]]
÷ - ...divide x by y? [0.5, 0.5] [0.33, 0.43]
E - Is the list all the same? 1 0
J, 15 14 13 bytes
1=&#&=2%/\/:~
Try it online!
-1 byte thanks to xash
-1 byte thanks to Bubbler
1=
Does one equal...&#&=
the length of the uniq of...2%/\
the list created by dividing each element by its right neighbor in the input list.../:~
sorted.
APL (Dyalog Unicode), 25 19 bytes
{~∨/⌈(⊣-⊃)2÷/⍵[⍋⍵]}
Try it online!
-6 bytes thanks to @Adám
⍵[⍋⍵] ⍝ sort ⍵
2÷/ ⍝ Take the quotient of all consecutive pairs
⍝ Check if all are equal:
(⊣-⊃) ⍝ Subtract the first quotient
~∨/⌈ ⍝ Are all 0?