13 lines
333 B
Text
13 lines
333 B
Text
|
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
|