Anonymous user
Common list elements: 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 56 ⟶ 58:
RETURN (count)
PROC CommonListElements(
BYTE ARRAY lengths BYTE count
BYTE ARRAY res BYTE POINTER resLen)
Line 96 ⟶ 98:
RETURN
PROC Test(
BYTE ARRAY res(100)
BYTE len,i
Line 111 ⟶ 113:
PROC Main()
BYTE ARRAY
lengths(3)=[8 7 5],
| |||