simyager/html-jen
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

dosya okumadan metinden okur yapma

Browse Source
This commit is contained in:
riton
2025-03-26 22:03:04 +03:00
parent 37406afc30
commit f5f425a4cd
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
okur.lisp
View File

@@ -31,6 +31,9 @@
(dosya-metni-oku dosya-ismi) (dosya-metni-oku dosya-ismi)
(make-instance 'okur :metin metin :uzunluk uzunluk :dosya-ismi dosya-ismi))) (make-instance 'okur :metin metin :uzunluk uzunluk :dosya-ismi dosya-ismi)))
(defun metin-okur! (metin)
(make-instance 'okur :metin metin :uzunluk (length metin) :dosya-ismi ""))
(defmethod son? ((okur okur) index) (defmethod son? ((okur okur) index)
(>= index (>= index
(uzunluk okur))) (uzunluk okur)))