13 lines
333 B
Plaintext
13 lines
333 B
Plaintext
void local fn perm( w as CFStringRef )
|
|
Short a, b, c, d
|
|
for a = 0 to 3 : for b = 0 to 3 : for c = 0 to 3 : for d = 0 to 3
|
|
if a != b and a != c and a != d and b != c and b != d and c != d
|
|
print mid(w,a,1); mid(w,b,1); mid(w,c,1); mid(w,d,1)
|
|
end if
|
|
next : next : next : next
|
|
end fn
|
|
|
|
fn perm (@"abel")
|
|
|
|
handleevents
|