Drag the lowercase letters onto their corresponding uppercases
u
s
d
c
l
p
a
q
v
h
y
w
i
b
f
e
o
z
t
n
x
m
j
k
g
r
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
:class Alphabet :MiPageSample
⍝
⍝
:Field Public COUNT←0
:Field Public START←0
:field Public _Sessioned←1
∇ Compose
:Access Public
⎕RL←⍬ ⋄ COUNT←0
Add _.title'ABC'
Add _.Script'' '../Data/jquery.ui.touch-punch.min.js' ⍝
Add _.StyleSheet'../Data/Alphabet.css' ⍝
'score'Add _.div,'output'New _.span'Drag the lowercase letters onto their corresponding uppercases'
Add _.div,{New _.div ⍵}¨¨{⍺[?⍨≢⍺]⍵}/↓⍉↑Pair¨⎕A
∇
∇ (lc uc)←Pair L;l
(L l)←'#',¨L,#.Strings.lc L
(lc uc)←'.lc' '.uc'{⍵ ⍺ New _.div(_.span ⍵)}¨⊢/¨l L
(lc.Add _.jqDraggable l).Set'revert' 'invalid'
(uc.Add _.jqDroppable L l).On'drop' 'Accept'
∇
∇ r←Accept;L
:Access Public
L←'#',_target
r←'head'Append _.jqAddClass(L'ok')
r,←Execute(#.Strings.lc L)Css'visibility' 'hidden'
:If 1=COUNT←1+COUNT ⋄ START←#.Dates.Now ⋄ :EndIf
r,←'#output'Replace{1≡⍵:'1 pairing done' ⋄ ⍵,' pairings done in',(2⍕86400×#.Dates.Now-START),' seconds'}COUNT
∇
:endclass
