59 lines
1.7 KiB
Plaintext
59 lines
1.7 KiB
Plaintext
#This file is part of SECONDO.
|
|
|
|
#Copyright (C) 2004, University in Hagen, Department of Computer Science,
|
|
#Database Systems for New Applications.
|
|
|
|
#SECONDO is free software; you can redistribute it and/or modify
|
|
#it under the terms of the GNU General Public License as published by
|
|
#the Free Software Foundation; either version 2 of the License, or
|
|
#(at your option) any later version.
|
|
|
|
#SECONDO is distributed in the hope that it will be useful,
|
|
#but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
#GNU General Public License for more details.
|
|
|
|
#You should have received a copy of the GNU General Public License
|
|
#along with SECONDO; if not, write to the Free Software
|
|
#Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
delete ai;
|
|
delete al;
|
|
|
|
let ai = makearray(0,1,2,3);
|
|
let al = makearray(100,200);
|
|
|
|
query ai sortarray[.*-1];
|
|
|
|
query ai loop[get(ai,.)];
|
|
|
|
query ai loop[put(ai,999,.)];
|
|
|
|
# Neuer Operator tie!
|
|
|
|
query ai tie[.+..];
|
|
|
|
query ai loop[.*2];
|
|
query ai al loopb[.*..];
|
|
|
|
delete plzArray;
|
|
let plzArray = plz feed extend[pkg : log(randint(65536))] distribute[pkg];
|
|
|
|
query plzArray loop[. count];
|
|
query plzArray loop[. feed filter[.Ort contains "wald"] consume];
|
|
|
|
delete ar;
|
|
create ar : array(rel(tuple((no:int))));
|
|
update ar := [const array(rel(tuple((no:int))))
|
|
value ( ((1)) ((2)(3)) ((4)(5)(6)) ((7)(8)(9)(10)) )];
|
|
|
|
query ar ar loopb[. feed .. feed rename[A] product consume] sortarray[. count];
|
|
|
|
# Zählen, wie oft ein Ort mit "wald" vorkommt!
|
|
|
|
query plz feed filter[.Ort contains "wald"] count;
|
|
|
|
query plz feed extend[pkg : log(randint(65536))] distribute[pkg]
|
|
loop[. feed filter[.Ort contains "wald"] count]
|
|
tie[.+..];
|