fuminashi

(* sum of list *)
let rec sum lst =
  match lst with
    [] -> 0
  | x :: xs -> x + sum xs

(* erase n elements of list *)
let rec erase n lst =
  if n > 0 then erase (n-1) (List.tl lst) else lst
(*  match lst with *)

fuminashi

let cmp = Pervasives.compare 

(* search : 'a list -> 'a list -> bool *)
(* trans 中の ptn 出現を探索 *)
let rec search ptn trans =
  match ptn with
    [] -> true
  | head :: tail ->
     List.mem head trans && search tail trans

fuminashi

/* petdatabase2file2.c */
#include<stdio.h>
#include<string.h>
#include<stdlib.h>
#include<pet.h>
#include<owner.h>
#include<lstowner.h>
#include<lstpet.h>

int main(){

fuminashi

fail