blob: c43f038cd2578cca1933ed8ebdfdec85c80827c7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# For up to date code:
# https://github.com/codereport/bqn-code/blob/main/pwc/340-1.bqn
u ⇐ •Import "/home/cph/bqn-test/test.bqn"
fn ⇐ •Import "/home/cph/bqn-code/lib/fun.bqn"
RemoveDuplicates ← (∾·(1<≠)◶⟨⊢,2⊸↓⟩¨fn.Group)⍟≠
# Tests
u.UnitTest (RemoveDuplicates "abbaca") ≡ "ca"
u.UnitTest (RemoveDuplicates "azxxzy") ≡ "ay"
u.UnitTest (RemoveDuplicates "aaaaaaaa") ≡ ""
u.UnitTest (RemoveDuplicates "aabccba") ≡ "a"
u.UnitTest (RemoveDuplicates "abcddcba") ≡ ""
|
