Adventures in Prolog - Computations with lists VI

Today's post is merely to get the flow going and the blog updated. That is it is about the simple concatenation of two lists. Just like the append predicate appends some element at the end of a list, concatenate_list joins two lists by recursively reducing one list until it is the empty list.

%concatenate_list/3
concatenate_list([], List, List).
concatenate_list([H1¦T1], [H2¦T2], [H1¦T3]) :-
concatenate_list(T1, [H2¦T2], T3).

Comments

Post a Comment

Popular posts from this blog

Adventures in F# - F# and ADO.NET

Today's post is rather simplistic in what it does, but it illustrates some key language elements of F#, such as exception handling.  The task to accomplish is quite it easy, nameley, to connect to a SQL Server 2005 database called "TestDB" on my local machine, using ADO.NET to pull out some rows of the "Person" table having the following schema: Person (   PersonID: int ;   FirstName nvarchar (50);   LastName nvarchar (50);   Street nvarchar (50);   City nvarchar (50);   ZIP int ) The code we use in F# is a rather straightforward conversion of some typical C# code, and as such is probably not the best way to do things, but it gets the task done, and may illustate the point. #light We use the lightweight syntax option. open System.Data; open System; open System.Data.SqlClient; As a next step, we have to open the correct namespaces. let ADONetTest =    let conStringBuilder = new SqlConnectionStringBuilder()   conStringBuilder.IntegratedSecurity   conStringB...
Read more

Adventures In Prolog - ProjectEuler20

Continuing with the Euler Quest, a simple and straight-forward solution to Project Euler's problem 20 is presented. The problem statement reads: Find the sum of the digits in the number 100! Where ! denotes the faculty operator. One (simple) way to solve the problem goes as follows: Firstly, calculate the value of 100!. Secondly, convert the value into a list of digits. Thirdly, sum each digit. Lastly, output the cumulative result. A translation of this solution may read like: euler_20_1(F, Out) :- fac(F, Fac), string_to_list(Fac, CList), euler_20_1_t(CList, 0, Out), !. euler_20_1_t([], Current, Current). euler_20_1_t([X|Y], Current, Out) :- number_chars(N, [X]), NewCurrent is Current + N, euler_20_1_t(Y, NewCurrent, Out). The fac predicate computes the faculty of some positive integer number. string_to_list is a built-in predicate converting a string into its character list representation and number chars converts between ascii character code and number. Building only...
Read more

AI is evolving and we must with it

The field of technology is characterized by ongoing development, and the current advancements in Artificial Intelligence (AI) are bringing about notable changes. For technical professionals, including data scientists, simulation specialists, and software engineers, staying informed about these trends is essential not only for personal and career development, but also to anticipate and creating effective solutions to existing and more importantly novel problems. Recently, I came across a great talk of Bret Taylor co-founder of Sierra (been with key role at Google, CTO of FB), called " How AI is reinventing Software Business Models " - a clear recommendation. In this video Bret talks about Key trends and what this implies for how enterprises engage with customers, the implications for software and the crafts- and salesmen thereof. Below, I will briefly discuss these. Key Developments in the Application of AI The way AI is being integrated into business processes and product of...
Read more