Answered: extend the program, the editor(edit) to…

Database System Concepts

7th Edition

ISBN:9780078022159

Author:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan

Publisher:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan

Chapter1: Introduction

Section: Chapter Questions

Problem 1PE

See similar textbooks

Related questions

Question

PROLOG: extend the program, the editor(edit) to handle move the cursor down N lines edit :- edit(file([],[])). edit(File) :- write_prompt, read(Command), edit(File,Command). edit(_,exit) :- !. edit(File,Command) :- apply(Command,File,Filel),!,edit(Filel). edit(File,Command) :- writeln([Command,' is not applicable']),!,edit(File). apply(up,file([X|Xs],Ys),file(Xs,[X|Ys])). apply(up(N),file(Xs,Ys),file(Xsl,Ysl)) :- N > 0,up(N,Xs,Ys,Xsl,Ysl). apply(down,file(Xs,[Y|Ys]),file([Y|Xs],Ys)). apply(insert(Line),file(Xs,Ys),file(Xs,[Line|Ys])). apply(delete,file(Xs,[_|Ys]),file(Xs,Ys)). apply(print,file([X|Xs],Ys),file([X|Xs],Ys)) :- write(X),nl. apply(print(*),file(Xs,Ys),file(Xs,Ys)) :- reverse(Xs,Xsl),write_file(Xsl),write_file(Ys). up(_,[],Ys,[],Ys). up(0,Xs,Ys,Xs,Ys). up(N,[X|Xs],Ys,Xs1,Ys1) :- N > 0, Nl is N-1, up(Nl,Xs,[X|Ys],Xs1,Ys1). write_file([X|Xs]) :- write(X), nl, write_file(Xs). write_file([]). write_prompt :- write

Expert Solution

Trending now

This is a popular solution!

Step by step

Solved in 2 steps

SEE SOLUTION Check out a sample Q&A here

Knowledge Booster

Learn more about

Need a deep-dive on the concept behind this application? Look no further. Learn more about this topic, computer-science and related others by exploring similar questions and additional content below.

Similar questions