//file_text_getln(file)
var numb, text;
numb=0
text=file_text_open_read(argument0)
do{file_text_readln(text)
numb+=1}
until(file_text_eof(text))
file_text_close(text)
return numb;

#define ds_list_bigger
//retourne la plus grande valeur d'une liste
var memory_lst, lst;
lst=argument0 memory_lst=ds_list_find_value(lst,0)
for (l=0; l<ds_list_size(lst); l+=1)
{memory_lst=max(memory_lst,ds_list_find_value(lst,l))}
return memory_lst;
#define ds_list_smaller
//retourne la plus petite valeur d'une liste
var memory_lst, lst;
lst=argument0 memory_lst=ds_list_find_value(lst,0)
for (l=0; l<ds_list_size(lst); l+=1)
{memory_lst=min(memory_lst,ds_list_find_value(lst,l))}
return memory_lst;
#define ds_list_mean
//retourne la moyenne mathématique d'une liste
var avg, lst;
lst=argument0 avg=0
for (l=0; l<ds_list_size(lst); l+=1)
{avg+=real(ds_list_find_value(lst,l))}
return (avg/ds_list_size(lst));
#define ds_list_copy
///copie une liste
var lst, newlst;
lst=argument0
newlst=ds_list_create()
for (l=0; l<ds_list_size(lst); l+=1)
{ds_list_add(newlst,ds_list_find_value(lst,l))}
return newlst;
#define ds_list_copy_part
var lst, newlst, frm, to;
lst=argument0
frm=abs(argument1)
to=abs(argument2)
newlst=ds_list_create()
for (l=frm; l<min(to,ds_list_size(lst)); l+=1)
{ds_list_add(newlst,ds_list_find_value(lst,l))}
return newlst;
#define ds_list_draw
///affiche le contenu d'une list
var lst,xx,yy,value;
lst=argument0
xx=argument1 yy=argument2
for (l=0; l<ds_list_size(lst); l+=1)
{value=string(ds_list_find_value(lst,l))
draw_text(xx,yy+string_height(value)*l,value)}