Anonymous user
Common sorted list: Difference between revisions
m
→{{header|Action!}}
(Added solution for Action!) |
|||
Line 29:
{{libheader|Action! Tool Kit}}
<lang Action!>INCLUDE "D2:SORT.ACT" ;from the Action! Tool Kit
DEFINE PTR="CARD"
PROC PrintArray(BYTE ARRAY a BYTE len)
Line 55 ⟶ 57:
RETURN (0)
PROC CommonListElements(
BYTE ARRAY lengths BYTE count
BYTE ARRAY res BYTE POINTER resLen)
Line 85 ⟶ 87:
RETURN
PROC Test(
BYTE ARRAY res(100)
BYTE len,i
Line 100 ⟶ 102:
PROC Main()
BYTE ARRAY
lengths(3)=[8 5 4],
| |||