ABC problem: Difference between revisions

Content added Content deleted
m (→‎{{header|Wren}}: Minor tidy)
imported>Thebeez
Line 10,578: Line 10,578:
For x = 0 To Len (a)-1 : @b(x) = Or(Peek(a, x), Ord(" ")) : Next
For x = 0 To Len (a)-1 : @b(x) = Or(Peek(a, x), Ord(" ")) : Next
' push words onto stack
' push words onto stack
Push Dup("A"), Dup("Bark"), Dup("Book"), Dup("Treat")
Push "A", "Bark", "Book", "Treat", "Common", "Squad", "Confuse"
Push Dup("Common"), Dup("Squad"), Dup("Confuse")


Do While Used() ' as long as words on the stack
Do While Used() ' as long as words on the stack