Whitespace clean
This commit is contained in:
parent
60ff9daafd
commit
c407594146
@ -5,7 +5,10 @@
|
|||||||
% support for a single sequence.
|
% support for a single sequence.
|
||||||
%
|
%
|
||||||
|
|
||||||
:- module(fasta, [fa2atoms/2,fa2atoms/3]).
|
:- module(fasta,
|
||||||
|
[fa2atoms/2,
|
||||||
|
fa2atoms/3
|
||||||
|
]).
|
||||||
|
|
||||||
fa2atoms(F, L) :-
|
fa2atoms(F, L) :-
|
||||||
fa2atoms(F, L, []).
|
fa2atoms(F, L, []).
|
||||||
@ -44,4 +47,3 @@ skip_header(_,S) :-
|
|||||||
skip_header(C,S).
|
skip_header(C,S).
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
@ -327,4 +327,3 @@ max_index([_|L],I0,Max0,MaxIndex0,Max,MaxIndex) :-
|
|||||||
I is I0+1,
|
I is I0+1,
|
||||||
max_index(L,I,Max0,MaxIndex0,Max,MaxIndex).
|
max_index(L,I,Max0,MaxIndex0,Max,MaxIndex).
|
||||||
|
|
||||||
|
|
||||||
|
@ -9,8 +9,7 @@
|
|||||||
[fa2atoms/3]).
|
[fa2atoms/3]).
|
||||||
|
|
||||||
:- use_module(library(lists),
|
:- use_module(library(lists),
|
||||||
[
|
[nth/3,
|
||||||
nth/3,
|
|
||||||
append/3
|
append/3
|
||||||
]).
|
]).
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user