X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=gesamt_arm%2Fcodeb_abgabe_bg.0;fp=gesamt_arm%2Fcodeb_abgabe_bg.0;h=21e3b7bc892a044f219224c6fa0742f4bcc9bb33;hb=9cce0a17be37a392051e00bf360d7abf23e25933;hp=0000000000000000000000000000000000000000;hpb=7c63017bb2fb3b9b2050728fde8f22236c30bbc3;p=testub10.git

diff --git a/gesamt_arm/codeb_abgabe_bg.0 b/gesamt_arm/codeb_abgabe_bg.0
new file mode 100644
index 0000000..21e3b7b
--- /dev/null
+++ b/gesamt_arm/codeb_abgabe_bg.0
@@ -0,0 +1,11 @@
+struct next end;
+
+method length()
+  var l:=this;
+  var len:=0;
+  while l do
+    l:=l.next;
+    len:=len--1;
+  end;
+  return len;
+end;